VB界面设计-1课件.pptVIP

Private Sub Mul_Click() ‘ 乘法菜单事件过程 Text3 = Val(Text1) * Val(Text2) Label1 = × Label2 = ＝ Label3 = 乘法运算 End Sub 　 Private Sub Div_Click() If Val(Text2) = 0 Then MsgBox 除数不能为零，请重新输入！, 16, 警告框 Text2 = Text2.SetFocus Else Text3 = Val(Text1) / Val(Text2) Label1 = ÷ Label2 = ＝ Label3 = 除法运算 End If End Sub 　 Private Sub quit_Click() End End Sub ④单击“启动”按钮运行应用程序。在Text1文本框中输入：25 ，在Text2文本框中输入：4 ，单击“×”菜单，屏幕显示如图所示。 　 二、 弹出菜单设计