1、首先设置好页面：3个文本框分别为：Text1Text2Text3加法，减法，乘法，除法，退出分别为：Command1Command2Command3Command4Command5
2、接下来是代码:Option ExplicitDim parameter1 As SingleDim parameter2 As Singl髫潋啜缅eDim parameter3 As LongPrivate Sub Command1_Click()parameter1 = Text1.Textparameter2 = Text2.Textparameter3 = parameter1 + parameter2Text3.Text = parameter3End SubPrivate Sub Command2_Click()parameter1 = Text1.Textparameter2 = Text2.Textparameter3 = parameter1 - parameter2Text3.Text = parameter3End SubPrivate Sub Command3_Click()parameter1 = Text1.Textparameter2 = Text2.Textparameter3 = parameter1 * parameter2Text3.Text = parameter3End SubPrivate Sub Command4_Click()parameter1 = Text1.Textparameter2 = Text2.TextIf parameter2 = 0 ThenMsgBox "除数不能是零！", vbCritical, "警告"Elseparameter3 = parameter1 / parameter2Text3.Text = parameter3End IfEnd SubPrivate Sub Command5_Click()EndEnd Sub
