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