用VB设计一个计算器程序，急

简单的加减乘除。
界面：
窗体包含三个文本框，Text1与Text2用于输入计算数字，Text3用于显示计算结果。四个按钮（加减乘除）。一个标签Label4，用于显示计算方法。

代码：

Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
result = a + b
Text3.Text = result
Label4.Caption = "加法"
End Sub

Private Sub Command2_Click()
Dim a As Double
Dim b As Double
Dim result As Double
a = Text1.Text
b = Text2.Text
result = a - b
Text3.Text = result
Label4.Caption = "减法"
End Sub

Private Sub Command3_Click()
Dim a As Double
Dim b As Double
Dim result As Double
a = Text1.Text
b = Text2.Text
result = a + b
Text3.Text = result
Label4.Caption = "乘法"
End Sub

Private Sub Command4_Click()
Dim a As Double
Dim b As Double
Dim result As Double
a = Text1.Text
b = Text2.Text
If b = 0 Then
MsgBox "除数不能为0", 0, "错误"
Else
result = a / b
Text3.Text = result
Label4.Caption = "除法"
End If
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/ejefy3y2y.html