科学计算器程序代码

Public Class Form1 Dim num1 As Double '第一个操作数 Dim num2 As Double '第二个操作数 Dim op As Char '运算符

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    '将数字添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    '将数字添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
    '将数字添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
    '将数字添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
    '将数字添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button6.Click
    '将数字添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button7.Click
    '将数字添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button8_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button8.Click
    '将数字添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button9_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button9.Click
    '将数字添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button10_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button10.Click
    '将数字添加到文本框中
    TextBox1.Text += sender.text
End Sub



Private Sub Button11_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button11.Click

    '保存第一个操作数和运算符，并清空文本框
    num1 = Val(TextBox1.Text)
    op = sender.text
    TextBox1.Clear()
End Sub

Private Sub Button12_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button12.Click

    '保存第一个操作数和运算符，并清空文本框
    num1 = Val(TextBox1.Text)
    op = sender.text
    TextBox1.Clear()
End Sub

Private Sub Button13_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button13.Click

    '保存第一个操作数和运算符，并清空文本框
    num1 = Val(TextBox1.Text)
    op = sender.text
    TextBox1.Clear()
End Sub



Private Sub Button14_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button14.Click

    '保存第一个操作数和运算符，并清空文本框
    num1 = Val(TextBox1.Text)
    op = sender.text
    TextBox1.Clear()
End Sub


Private Sub Button18_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button18.Click
    '求平方根并显示结果
    Dim result As Double = Math.Sqrt(Val(TextBox1.Text))
    TextBox1.Text = result.ToString()
End Sub

Private Sub Button15_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button15.Click
    '计算结果并显示
    num2 = Val(TextBox1.Text)
    Dim result As Double
    Select Case op
        Case "+"
            result = num1 + num2
        Case "-"
            result = num1 - num2
        Case "*"
            result = num1 * num2
        Case "/"
            result = num1 / num2
    End Select
    TextBox1.Text = result.ToString()
End Sub


Private Sub Button16_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button16.Click
    '清空文本框和操作数
    TextBox1.Clear()
    num1 = 0
    num2 = 0
    op = " "
End Sub

Private Sub Button17_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button17.Click
    '删除最后一位字符
    If TextBox1.Text.Length > 0 Then
        TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
    End If
End Sub

End Class