1、国家二级 VB机试（上机操作）模拟试卷 127及答案与解析 一、基本操作题 1 在名称为 Form1，标题为 “选课 ”的窗体上添加一个复选框数组，名称为 CH1，共有四个复选框，按顺序其标题分别是 “数学 ”、 “语文 ”、 “外语 ”、 “计算机 ”，其中 “语文 ”、 “计算机 ”复选框处在选中状态下，程序运行时的窗体如图所示。请按要求添加控件并设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 2 在名称为 Form1的窗体上添加一个名称为 HS1的水平滚动条，其 刻度值范围为1 100；添加一个命令按钮，名称为
2、C1，标题为 “移动滚动框 ”。请编写适当的事件过程，使得在程序运行时，每单击命令按钮一次 (假定单击次数不多于 10次 )，滚动框向右移动 10个刻度。程序运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 二、简单应用题 3 在名称为 Form1的窗体上添加一个名称为 Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项 ，标题分别为 “加粗 ”、 “斜体 ”、 “下划线 ”，名称分别为 M1、 M2、 M3。请编写适当的事件过程，在程序运
3、行时，当用鼠标右键单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt3 vbp，窗体文件名保存为 sjt3 frm。4 在考生文件夹下有一个工程文件 sjt4 vbp，含有 Form1和 Form2两个窗体，其中 Form1为启动窗体，窗体上的控件如图 1所示。程序运行后，在 Form1窗体的文本框中输入有关信息 (如 “密码 ”文本框中显示 “*”字符 )，然后单击 “提交 ”按钮，弹出 “确认 ”对话框 (Form2窗体 )，并在： Form2中显示 Form1中输入的信息，如图 2所示。单
4、击 “确认 ”按钮，程序结束，单击 “重输 ”按钮， Form2消失，回到 Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。要求： 将 Form1的标题改为 “注册 ”，将 Form2的标题改为 “确认 ”； 设置适当的属性，使 Form2标题栏右上角的所有按钮消失 (如图 2所示 )；去掉程序中的注释符，把其中的 ?改为正确的内容。注意：不能修改程序中的其他部分，标题等 属性的修改只能在属性窗口中进行。最后将修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有两个标签 L1和 L2，标题分别为 “口令 ”和 “允许次数 ”；
5、一个命令按钮 C1，标题为 “确定 ”；两个文本框名称分别为 Text1和 Text2。其中 Text1用来输入口令 (输入时，文本框内容显示 “*”)，初始内容为空； Text2的初始内容为 3。并给出了 C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容，使得程序运行时，在 Text1中输入口令后，单击 “确定 ”，如果输入的是 “123456”则在 Text1中显示 “口令正确 ”；如果输入其他内容，单击 “确定 ”后，弹出错误提示对话框 (如图所示 )，并且Text2中的数字减 1。最多可输入 3次口令，若 3次都输入错误，则禁止再次输入。注意：不能修改程序
6、中的其他部分。最后将修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 127答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1：新建窗体，按照题目要求建立控件并没置属性，如表 3 30所示。 步骤 2：调试并运行程序，关闭程序后按题目要求存 盘。 2 【正确答案】 操作步骤 步骤 1：新建一个窗体，按照题目要求建立滚动条控件及命令按钮控件并设置其属性，如图 3 25所示。程序中用到的控件及属性见表 3。 31。 步骤2：打开代码编辑窗口，在指定位置编写如下代码。参考代码 Private sub C1_Click()HS1 Value=HS1 Value+10当用
7、户单击 “移动滚动框 “按钮则滚动条的Value加 10End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1：新建一个窗体，按照题目要求建立名称为“Text1”的文本框控件及一个弹出式菜单并设置菜单属性，程序中用到菜单属性见表 3 32。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。参考代码 Private Sub M1_Click()Text1 FontBold=True设置字体为加粗 End SubPrivate Sub M2_Click()Text1 FontItalic=True设置字体为斜体 End SubP
8、rivate Sub M3_Click()Text1 FontUnderline=True为文字加下划线 End SUbPrivate Sub Text1_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)If Button=2 Then判断是否执行该事件 Me PopupMenu Format显示菜单 End IfEnd Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 1：打开本题工程文件，按照题目要求设置属性，如图 3 26所示。步骤 2：打开代码编辑
9、窗口，去掉程序中的注释符，将问号改为正确的内容，并在指定位置编写代码。参考代码 (画下划线部分是需填入的内容 )Private Sub C1_Click()Dim k As IntegerForm2 Show当单击 “提交 “按钮时，则显示 Form2Form2 Print Form L1 Caption； Form1 Text1Form2 Print Form1 L2 Caption；Form1 Text2Form2 Print Form1 L3 Caption； Form1 Text3Form2 Print Form1 Frame1 Caption； “”； 取框架 Frame1的标题名称
10、 “性别 “For k=0 To 1If Form1 Qp1(k) Value Then通过下一条语句确定 KForm2 Print Form1 Op1(k) CaptionEnd IfNext kEnd SubPrivate Sub Form Load()将 Password Char属性设为 *则密码输入后显示 *Text2 PasswordChar=“*“End Sub需考生编写的Form2中的代码 Private Sub C1 Click()EndEnd SubPrivate Sub C2 Click()Unload Form2End Sub步骤 3：调试并运行程序，关闭程序后按题目要
11、求存盘。 三、综合应用题 5 【正确答案】 操作步骤 步骤 1：打开本题工程文件，将文本框 Textl的 Password Char属性设置为 “水 ”。 步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Private Sub C1_Click() IfText1 Text=“123456“Then输入的口令与正确的口令相比较 Text1 Text=“口令正确 “ Text1 PasswordChar=“ Else Text2 Text=Text2 Text-1当密码错误时 Text2中的数减 1 If Text2 Text 0Then MsgBox“第 “&(3-Text2 Text)&“次口令错误，请重新输入 “ Else MsgBox“3次输入错误，请退出 “ Text1 Enabled=False当 Text1的 Enabled属性为 false时则文本不能输入 End If End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
