1、首先设置好页面：
3个文本框分别为：
Text1
Text2
Text3
加法，减法，乘法，除法，退出分别为：
Command1
Command2
Command3
Command4
Command5
2、接下来是代码:
Option Explicit
Dim parameter1 As Single
Dim parameter2 As Single
Dim parameter3 As Long
Private Sub Command1_Click()
parameter1 = Text1.Text
parameter2 = Text2.Text
parameter3 = parameter1 + parameter2
Text3.Text = parameter3
End Sub
Private Sub Command2_Click()
parameter1 = Text1.Text
parameter2 = Text2.Text
parameter3 = parameter1 - parameter2
Text3.Text = parameter3
End Sub
Private Sub Command3_Click()
parameter1 = Text1.Text
parameter2 = Text2.Text
parameter3 = parameter1 * parameter2
Text3.Text = parameter3
End Sub
Private Sub Command4_Click()
parameter1 = Text1.Text
parameter2 = Text2.Text
If parameter2 = 0 Then
MsgBox "除数不能是零！", vbCritical, "警告"
Else
parameter3 = parameter1 / parameter2
Text3.Text = parameter3
End If
End Sub
Private Sub Command5_Click()
End
End Sub
