VB计算器加减乘除代码
以下是一个简单的VB计算器程序，可以进行加减乘除运算。
```vb
Public Class Form1
Dim num1 As Double
Dim 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 btn As Button = DirectCast(sender, Button)
txtDisplay.Text += btn.Text
End Sub
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
txtDisplay.Text = ""
End Sub
python和vb的代码可以通用吗Private Sub btnOperator_Click(sender As Object, e As EventArgs) Handles btnPlus.Click, btnMinus.Click, btnMultiply.Click, btnDivide.Click
Dim btn As Button = DirectCast(sender, Button)
num1 = Double.Parse(txtDisplay.Text)
op = btn.Text
txtDisplay.Text = ""
End Sub
Private Sub btnEquals_Click(sender As Object, e As EventArgs) Handles btnEquals.Click
num2 = Double.Parse(txtDisplay.Text)
Dim result As Double
Select Case op
Case "+"
result = num1 + num2
Case "-"
result = num1 - num2
Case "*"
result = num1 * num2
Case "/"
If num2 <> 0 Then
result = num1 / num2
Else
MessageBox.Show("除数不能为0！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtDisplay.Text = ""
Return
End If
End Select
txtDisplay.Text = result.ToString
End Sub
End Class
```
在这个计算器程序中，我使用了一个文本框(txtDisplay)来显示用户输入的数字和运算结果。用户可以按下数字按钮(btn0到btn9)来输入数字，按下运算符按钮(btnPlus, btnMinus, btnMultiply, btnDivide)来选择运算符，按下等号按钮(btnEquals)来进行运算。清空按钮(btnClear)用于清空显示文本框。
在代码中，我使用了四个变量：num1用于存储第一个操作数，num2用于存储第二个操作数，op用于存储运算符。当用户按下运算符按钮时，程序会将当前显示的数字作为第一个操作数，并将运算符保存。当用户按下等号按钮时，程序会将当前显示的数字作为第二个操作数，根据运算符进行相应的运算，并将结果显示在文本框中。
此外，在除法运算中，由于除数不能为0，程序会进行判断。如果除数为0，弹出错误消息框提示用户，并清空显示文本框。
以上就是一个简单的VB计算器代码，可以进行加减乘除运算。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。