能帮我写一段计算器程序的vb代码吗?
时间: 2024-05-07 14:21:03 浏览: 18
当然可以,以下是一个简单的计算器程序的VB代码:
```vb
Public Class Form1
Dim num1, num2 As Double
Dim op As String
Private Sub btnNum_Click(sender As Object, e As EventArgs) Handles btn0.Click, btn1.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click
Dim b As Button = sender
txtDisplay.Text += b.Text
End Sub
Private Sub btnOp_Click(sender As Object, e As EventArgs) Handles btnAdd.Click, btnSubtract.Click, btnMultiply.Click, btnDivide.Click
Dim b As Button = sender
op = b.Text
num1 = Val(txtDisplay.Text)
txtDisplay.Clear()
End Sub
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
txtDisplay.Clear()
End Sub
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
num2 = Val(txtDisplay.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
txtDisplay.Text = result
End Sub
End Class
```
在这个示例中,我们使用了4个按钮(加、减、乘、除)和一个文本框来实现计算器的基本功能。当用户点击数字按钮时,我们将数字附加到文本框中。当用户点击操作符时,我们将第一个数字保存在一个变量中,并清空文本框以准备下一个数字的输入。当用户点击计算按钮时,我们将第二个数字保存在另一个变量中,并根据所选操作符执行相应的计算。最后,我们将计算结果显示在文本框中。
这只是一个简单的示例,你可以根据需要扩展它,添加其他操作,如清除最后一个数字、添加小数点等等。