操作方法
首先设置好页面： 3个文本框分别为： Text1 Text2 Text3 加法，减法，乘法，除法，退出分别为： Command1 Command2 Command3 Command4 Command5
接下来是代码: 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