vb期末考试复习资料（经典总结版）(10)

在[2]所在的IF语句中，Then子句中把Text1的斜体属性设置为True，而对话框中Ch1复选框的标题是“斜体”，说明选中这个复选框应执行第一个IF语句中的Then子句，所以[2]处应填写Ch1.Value=1。同样道理，在[3]处应填写Ch2.Value=1。

【答案】 [1]Form2.Show或Form2.Load:Form2.Show [2]Ch1.Value=1 [3]Ch2.Value=1

例5 设计一个名称为Form1的窗体，含一个标题为“登录”的命令按钮，单击此按钮，则打开“登录”对话框，正确口令为字符串“123456”，若单击“确定”按钮，则检查口令，如果口令正确，则在Form1窗体上显示“登录成功”并关闭对话框，否则弹出错误提示。允许输入3次口令，输入口令的文本框的名称为Text1，显示输入的次数的文本框的名称为Text2，Text2不允许键盘输入。如果3次输入都是错误的，则再次输入时，弹出提示，然后焦点定位到“退出”按钮上。单击“退出”按钮则在Form1窗体上显示“登录失败”并关闭对话框。对话框中“确定”按钮的名称为C1，“退出”按钮的名称为C2。编写适当的事件过程实现本题的功能。

24

【分析】 (1)建立控件：创建Form1、Form2，并在Form2窗体上画出两个文本框、两个命令按钮和两个标签。

(2)设置属性：根据题意，文本框Text1的PasswordChar属性应设置为“*”；因Text2不允许键盘输入，Text2的Locked属性设置为True；Form2的标题设置为“登录”，ControlBox属性设置为False。

(3)编写事件过程

Form1上“登录”按钮的Click事件过程： Private Sub C1_Click( ) Form2.Show End Sub

Form2中“确定”按钮和“退出”按钮的Click事件过程： Private Sub C 1_Click( )

Text2.Text = Val(Text2.Text) + 1 If Text1.Text = \ Form1.Print\登录成功\ Unload Me

ElseIf Val(Text2.Text)＜3 Then

MsgBox\第\次口令错误，请重新输入\ Else

MsgBox Text2.Text&\次口令都错误，请退出\ Text1.Locked = True End If End Sub

Private Sub C2_Click( ) Form1.Print\登录失败\ Unload Me End Sub

在“确定”按钮的Click事件过程中，每单击此按钮一次，Text2中的数加1，从而记录输入口令的次数。如果在Text1中输入的是“123456”，表示口令正确，则在Form1上输出“登录成功”，然后卸载Form2如果口令错误，则要判断Text2中的数是否小于3，如果小于3，就用MsgBox对话框给出提示，否则，把Text1锁住(Locked=True)，不允许再次输入口令。

当输入口令3次都错误，不允许再次输入，如果把输入光标移到Text1上，应弹出图12-5所示的对话框。可以在Text1获得焦点时实现这一功能，所以编写Text1的GotFocus事件过程如下： Private Sub Text1_GotFocus ( ) If Val(Text2.Text) ＞= 3 Then

MsgBox\口令错误超过3次，请退出\ C2.SetFocus End If End Sub

第十章 多窗体例题分析

例1 下列操作中不能向工程中添加窗体的命令是 A．执行“工程”菜单中的添加窗体命令 B．单击工具栏上的“添加窗体”

C．右击窗体，在弹出的菜单中选择“添加窗体”命令

D．右击工程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择“添加窗体”命令

【分析】 在建立VB应用程序时，自动创建一个窗体。在需要建立多窗体程序时，可以使用多种方式向工程文件中添加窗体。可以使用“工程”菜单或工具栏中相应的按钮执行添加窗体的命令。另外，在工程资源管理器窗口中，单击鼠标右键，弹出的快捷菜单中有“添加窗体”命令。答案A．、B．、D．对应上述三种情况。按答案C操作不能完成添加窗体的操作。 【答案】 C

例2 当一个工程含有多个窗体时，其中的启动窗体是

25