VB常用控件设计.docVIP

实验五 常用控件设计 一、实验目的 三、实验内容及要求 1.编写一个能完成加减乘除清空和退出功能的菜单程序，用户输入2个操作数，在选择了菜单功能选项后，能从结果标签中获得结果。若除数为0，有提示，运行用户重新输入。 2. 创建一个应用程序，由3个窗体Form1、Form2和Form3组成。Form1用于用户输入用户名和密码，输入正确时显示Form2，同时Form1隐藏，连续三次输入错误显示Form3。Form1中单“结束”按钮退出程序。Form2显示“欢迎使用本系统”，单击“返回”按钮回到Form1。Form3中显示“对不起，请向管理员查询”，单击“退出”按钮，结束程序。注意每次仅显示一个窗体。 四、说明 自学教材7.5节有关多窗体应用程序和SubMain过程内容。 五、程序代码草稿 六、实验结果 菜单程序最终代码： Dim a As Single, b As Single Private Sub add_Click() a = Val(Text1.Text) b = Val(Text2.Text) Text3.Text = a + b End Sub Private Sub sub_Click() a = Val(Text1.Text) b = Val(Text2.Text) Text3.Text = a - b End Sub Private Sub mul_Click() a = Val(Text1.Text) b = Val(Text2.Text) Text3.Text = a * b End Sub Private Sub div_Click() a = Val(Text1.Text) b = Val(Text2.Text) Dim p As Single If b = 0 Then p = MsgBox(x 请输入一个非0的除数) Else Text3.Text = a / b End If End Sub Private Sub clear_Click() Text1.Text = none Text2.Text = none Text3.Text = none End Sub Private Sub exit_Click() End End Sub  结果： 用户登录最终代码： Form1: Dim i As Integer Private Sub Command1_Click() Dim p As Single If Text2.Text = 123456 And Text1.Text = user Then Form2.Show Form1.Hide Text1.Text = none Text2.Text = none Else q = MsgBox(X 密码错误) Form1.Show Text1.Text = none Text2.Text = none i = i + 1 If i = 3 Then Form3.Show Form1.Hide End If End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Text1.Text = Text2.PasswordChar = * Text2.Text = End Sub Form2: Private Sub Command1_Click() Form1.Show Form2.Hide End Sub Form3: Private Sub Command1_Click() End End Sub  结果： 七、实验中遇到的问题与解决方法或实验收获