Private Sub Command1_Click()
Dim a, b, result As Double
a = Text2.Text
b = Text3.Text
result = a + b
Text1 = result
End Sub

Private Sub Command2_Click()
Dim a, b, result As Double
a = Text2.Text
b = Text3.Text
result = a - b
Text1 = result
End Sub

Private Sub Command3_Click()
Dim a, b, result As Double
a = Text2.Text
b = Text3.Text
result = 0
If b <> 0 Then
result = a * b
Else
MsgBox "乘数不能为零"
End If
Text1 = result
End Sub

Private Sub Command4_Click()
Dim a, b, result As Double
a = Text2.Text
b = Text3.Text
result = 0
If b <> 0 Then
result = a / b
Else
MsgBox "除数不能为零"
End If
Text1 = result
End Sub

改进型计算器

Dim a, b, result As Double
Private Sub Command1_Click()
a = Text2.Text
b = Text3.Text
result = Val(a) + Val(b)
Text1 = result
End Sub

Private Sub Command2_Click()
a = Text2.Text
b = Text3.Text
result = Val(a) - Val(b)
Text1 = result
End Sub

Private Sub Command3_Click()
a = Text2.Text
b = Text3.Text
If a * b <> 0 Then
result = Val(a) * Val(b)
Text1 = result
Else
MsgBox "两数相乘，有一个为零则没有意义！结果为零！"
End If
End Sub

Private Sub Command4_Click()
a = Text2.Text
b = Text3.Text
If b <> 0 Then
result = Val(a) / Val(b)
Text1 = result
Else
MsgBox "好像除数不能为零哦！"
End If

End Sub

[ 本帖最后由 kengu2008 于 2010-7-13 01:11 编辑 ]

对呀，之前做的是还不知道val符号，所以加法有问题咯
后面才知道这个字符转数值的符号