[计算机类试卷]国家二级VB机试（上机操作）模拟试卷336及答案与解析.doc

1、国家二级 VB机试（上机操作）模拟试卷 336及答案与解析 一、基本操作题 1 (1)在名称为 Form1，标题为 “图书 ”的窗体上画 1个名称为 Cmbl的下拉式组合框。下拉列表中有 “少儿读物 ”“传记文学 ”和 “武侠小说 ”3个表项内容。运行后的窗体如图 3 14所示。 (1)在名称为 Form1，标题为 “图书 ”的窗体上画 1个名称为Cmbl的下拉式组合框。下拉列表中有 “少儿读物 ”“传记文学 ”和 “武侠小说 ”3个表项内容。运行后的窗体如图 3 14所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文 件名为 sjtl frm。 (2)在名称为

2、 Form1的窗体上，画 1个能根据标题内容自动调整大小的标签，其名称为 Label1，标题为 Visual Basic，字号为 14号字。再画 2个名称分别为 Command1、 Command2，标题分别为 “放大 ”“缩小 ”的命令按钮。效果如图 3 15所示。 要求：编写适当的事件过程，使得每单击 “放大 ”按钮一次， Label1中所显示的标题内容自动增大 3个字号；每单击 “缩小 ”按钮时， Label1中所显示的标题内容自动缩小 3个字号。注意：要求程序中不能使用变量，每个事件过程中只能写 一条语句。保存时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sj

3、t2 frm。 二、简单应用题 2 (1)在名称为 Form1的窗体上画一个名称为 Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为 “加粗 ”、 “斜体 ”、 “下划线 ”，名称分别为 M1、 M2、 M3。请编写适当的事件过程，在运行时当用鼠标右键单击窗体时，弹出此菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图 3 149所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3 vbp，窗体文件名为 sjt3 frm。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，含有 Form1和 Form2两个窗体， Form

4、1为启动窗体，窗体上的控件如图 3 150(a)所示。程序运行后，在 Form1窗体的文本框中输入有关信息 (“密码 ”框中显示 “*”字符 )，然后单击 “提交 ”按钮则弹出 “确认 ”对话框(即 Form2窗体 )，并在 Form2中显示输入的信息，如图 3 150(b)所示。单击 “确认 ”按钮则程序结束，单击 “重输 ”按钮，则 Form2消失，回到 Form1窗体。在给出的窗体文件中已经给出了 程序，但不完整。要求： 把 Form1的标题改为 “注册 ”，把 Form2的标题改为 “确认 ”； 设置适当的属性，使 Form2标题栏上的所有按钮消失 (如图 3 150(b)所示 )；

5、去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中进行。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生文件夹中有一个工程文件 vbsj5 vbp(相应的窗体文件为 vbsii5 frm)。窗体 Form1上有两个名称为 Labl和 Lab2的标签，它们的标题 分别为 “密码 “和 “允许次数 ”；一个名称为 Cmd1的命令按钮，其标题为 “确定 ”；两个名称分别为 Txt1和Txt2的文本框。其中 Txt1用来输入密码 (输入时显示 “*”)，无初始内容， Txt2的初始内容为 3。已给出了 Cmdl的事件过程

6、，但不完整，要求去掉程序中的注释符“*”，把程序中的问号 “?”改为正确内容，使得在运行时，在 Txt1中输入密码后，单击 “确定 ”按钮，如果输入的是 “123456”，则在 Txt1中显示 “密码正确 ”如图 3-66所示；如果输入其他内容，单击 “确定 ”后，弹出如图 3 67所示的错误提示对话框，并 且 Txt2中的数字减 1。最多可输入 3次密码，若 3次输入错误，则禁止再次输入。 程序源码：Private Sub Cmdl_Click() If?=“1234 56“Then Txt1 Text=“密码正确 “ Txt1 ?=“ Else Txt2 Text=Txt2 Text-1

7、If Txt2 Text ?Then MsgBox“第 “&(3-Txt2 Text)“ 次密码错误，请重新输入 ” Else MsgBox“3次输入错误，请退出 “ Txt1 Enabled=? End If End IfEnd Sub 国家二级 VB机试（上机操作）模拟试卷 336答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中加入一个组合框。按表 4-8设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中加入一个标签和两个命令按钮。按表 4-9设置

8、其相关属性。其中 FontSize的设置方法为，在标签的属性窗体里面找打 Font属性，点击 Font属性右边的 “” 按钮弹出字体设置对话框，在里面设置字体大小为 14。步骤 2：在打开的代码编辑窗口中，编写命令按钮的 Click事件代码。参考代码： Private Sub Command1_Click()Label1 FontSize=Label1 FontSize+3End SubPrivate Sub Command2_Click()Label1 FontSize=Label1 FontSize-3End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)根据题目

9、要求，在窗体上放置一个组合框，并设置窗体和组合框的属性。 (2)根据题目要求在点击 “放大 ”和 “缩小 ”命令按钮时修改 Label1控件显示的字体大小，可在命令按钮的 Click事件处理过程中，设置 Label1的 FontSize属性。 二、简单应用题 2 【正确答案】 (1)步骤 1：新 建一个 “标准 EXE”工程，选择【工具】 【菜单编辑器】命令，打开菜单设计器，按要求设置建立菜单项。 步骤 2：在窗体中画一个文本框，取名为 Text1。 步骤 3：打开代码编辑窗口，分别编写 “加粗 ”、 “斜体 ”和 “下划线 ”菜单项的事件过程。参考代码： Private Sub Form M

10、ouseDown(Button AS Integer， Shift AS Integer， X As Single， Y As Single) If Button=2 Then PopupMenu format End If End Sub Private Sub m1_Click() Text1 Font Bold=True End Sub Private Sub m3_Click() Text1 Font Underline=True End Sub Private Sub m2_Click() Text1 Font ItaliC=True End Sub 步骤 4：按要求将文件保存至考生

11、文件夹中。 (2)步骤 1：打开考生文件夹下的工程文件 sjt4 vbp。 步骤 2：按要求设置两个 窗体的相关属性。 步骤 3：打开 Form1的代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Form2 Show Form2 Print Form1 Framel Caption； ”： “； If Form1 Op1(k) Value Then Text2 PasswordChar=“*“ 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 (1)要创建本题的弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见 (即 Visible)属性值设置

12、为 False，然后在窗体的 MouseDown(或MouseUp)事件过程中，判断该事件的 BuRon参数值是否为 2，若是则执行窗体的PopupMenu方法来显示菜单。 在相应菜单项的 Click事件过程中，通过设置文本框的 FontBold属性值、FontItalic属性值和 FontUnderline属性值为 True，可分别将文本框中文本样式显示为加粗、斜体和下划线。 (2)在 Form1的单击事件中，首先显示出 Form2，然后按照要求在 Form2上先后显示出 Form1中的信息，其中单选按钮组需要使用 If语句 判断是哪个按钮被选中。文本框的 PasswordChar属性可以设

13、置文本框中显示的密码形式。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 vbsi5 vbp，将文本框Txt1的 PasswordChar属性值设置为 “*”。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： If Txt1 Text=“123456“Then Txt1 PasswordChar=“ If Txt2 Text0 Then Txt1 Enabled=False 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 根据题目源程序，判断文本框 Txt1输入的密码是否为 “123456”的条件表达式为： Txt1 Text=“123456“；要去掉对文本框中输入内容的屏蔽，需将其 PasswordChar属性值清空，即执行语句： Txt1 PasswordChar=“；每输入一次错误密码，文本框 Txt2中的数字减 1，当文本框 Txt2中数值还大于 0时，提示重新输入，否则提示错误，并禁用文本框 Txt1。