VB实验要求(菜单).docVIP

VB实验要求 在D盘建立自己的文件夹（学号+班级+姓名），用于保存实验内容 启动VB系统 完成下列实验： （2）教案内容1：菜单应用: 建立如下要求的菜单应用系统. 工程名(VB菜单工程), 窗体名：form1 ~ form5） 关闭---------------- Private Sub end0_Click() End End Sub 加法---------form1 Private Sub add_Click() Dim a%, b%, C% Randomize a = Int(Rnd * 10) b = Int(Rnd * 10) Print a + b =; C = Val(InputBox(a + b =)) Print C; If a + b = C Then Print ok Else Print error End If End Sub 减法-------------------- Private Sub red_Click() Form2.Show End Sub 乘法-------------------- Private Sub rid_Click() Form3.Show End Sub 除法------------------ Private Sub div_Click() Form5.Show End Sub 清0----------------form2 Private Sub Command1_Click() Text1 = Text2 = Label4.Caption = End Sub ----------------form2 Private Sub Text2_Change() Label4.Caption = Val(Text1) - Val(Text2) End Sub ------------------form3 Private Sub Form_Click() Dim a%, b% a = Val(InputBox(a=)) b = Val(InputBox(b=)) Form3.Print a * b = a * b End Sub ------------form5 Private Sub Form_Load() Combo1.AddItem 张三丰 Combo1.AddItem 刘姥姥 Combo1.AddItem 李白 Text1.PasswordChar = *“ Combo1.Text = “ Text1 = End Sub 确定------------------form5 Private Sub Command1_Click() Static n% If Combo1.Text = 刘姥姥 And Text1 = 2923083 Then Form4.Show ：Form5.Hide Else n = n + 1 MsgBox 密码第 n 次错误，请再试一次 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1) If n 3 Then Form5.Hide End If End Sub 清0---------------------form4 Private Sub Command1_Click() Text1 = Text2 = Label4.Caption = End Sub ---------------form4 Private Sub Text2_Change() Dim a%, b% a = Val(Text1) b = Val(Text2) If b 0 Then Label4.Caption = a / b End Sub 4、将自己的文件夹进行压缩成同名文件 5、提交到3 本班…第十周文件夹