1、国家二级 VB机试（上机操作）模拟试卷 22及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在 Forml的窗体上画一个名称为 Textl的文本框，然后建立一个主菜单，标题为 ”操作 ”，名称为 op，该菜单有两个子菜单，其标题分别为 ”显示 ”和 ”清除 ”，名称分别为 Dis和Clear，编写适当的事件过程。程序运行后，如果单击 ”操作 ”菜单中的 ”显示 ”命令，则在文本框显示 ”等级考试 ”；如果单击 ”清除 ”命令，则清除文本框中显示的内容。程序的运行情况如图 2-125所示。注意：存盘时必须存放在考生文件夹下，工
2、程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 2 在 Forml的窗体上画一个文本框，名称为 Textl， Text属性为空白。再画一个列表框，名称为 L1，通过属性窗口向列表框中添加 4个项目，分别为 ”AAAA”、 ”BBBB”、 ”CCCC”和 ”DDDD”，编写适当的事件过程。程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。程序的运行情况如图 2-126所示。 注意：存盘时必须存放在考生文件夹下，工程文件名 为 sjt2 vbp，窗体文件名为 sjt2 Frm 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt
3、3 vbp，请在窗体上画两个框架，其名称分别为 Fl和 F2，标题分别为 ”交通工具 ”和 ”到达目标 ”。在 Fl中画两个单选按钮，名称分别为 Opl和 Op2，标题分别为 ”飞机 ”和 ”火车 ”。在 F2中画两个单选按钮，名称分别为 Op3和 Op4，标题分别为 ”广州 ”和 ”昆明 ”。画一个称为 Labl的标签，宽度为 3000，高度为 375。编写适当事件过程。程序运行后，选择不同单选按钮并单击窗体后在标签上显示的结果见表 2-1。 程序的运行情况如图 2-127所示。存盘时，工程文件名为 sjt3 vbp，窗体文件名为sjt3 frm。注意：考生不得修改窗体文件中已经存在的程序，
4、在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。 4 在考生文件夹下有一个工程文件 sjt4 vbp，请在窗体上画两个文本框，其名称分别为 Textl、 Text2，文本框的内容分别设置为 ”计算机 ”、 ”等级考试 ”。然后画一个标签，其名称为 Labl，高度为 375，宽度为 2000。再画两个单选按钮，名称分别为 Opl和 Op2，标题 分别为 ”交换 ” 和 ”连接 ”，最后再画一个命令按钮，其名称为Cl，标题为 ”确定 ”，编写适当的事件程序。程序运行后，如果选中 ”交换 ”单选按钮并单击 ”确定 ”按钮，则 Textl文本框中的内容与 t
5、ext2文本框中的内容进行交换，并在标签处显示 ”交换成功 ”(如图 2-128所示 )；如果选中 ”连接 ”单选按钮并单击 ”确定 ”按钮后，则把交换后的 Textl和 Text2的内容连接起来，并在标签处显示连接后的内容。存盘时，工程文件名为 sjt4 vbp，窗体文件名为 sjt4 frm。注意：不得修改已经给出的程序。在结束程序运行之前， 必须选中一个单选按钮，并单击 ”确定 ”按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，请先装入该工程文件，然后完成以下操作：在名称为 Forml的窗体上画三个命令按钮
6、，其名称分别为 C1、 C2和 C3，标题分别为 ”读入数据 ”、 ”计算 ”和 ”存盘 ”(如图 2-129所示 )。程序运行后，如果单击 ”读入数据 ”按钮，则调用题目已提供的 ReadDatal和 ReadData2过程读入datainl txt和 datain2 txt文件中的各 20个 整数，分别放入 Arrl和 Arr2两个数组中；如果单击 ”计算 ”按钮，则把两个数组中对应下标的元素除以 10并截尾取整后相乘，其结果放入第三个数组中 (即把第一个数组的第 n个元素除以 10截尾取整，再把第二个数组的第刀个元素除以 10截尾取整，两者相乘后的结果作为第三个数组的第 n个元素。这里的
7、 n为 1， 2， ， 20)，最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击 ”存盘 ”按钮，则调用题目中给出的WriteData过程将所求得的和存入考生文件夹的 dataout txt文件中。注意：考生不得修改窗体文 件中已经存在的程序，必须把求得的结果单击 ”存盘 ”按钮存入考生文件夹下的 dataout txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 22答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画一个文本框，在属性设置窗口中将其 Nam
8、e属性值设置为 Textl。 步骤 2：选择 工具 菜单编辑器 命令，打开菜单设计器，如表 3-68中的设置建立菜单项。步骤 3：打开代码编辑窗口，编写以下事件过程：参考代码： PriVate Sub Dis_Click( )Textl Text=“等级考试 ”End SubPrivate Sub Clea_Cl ick( )Textl Text=“ End Sub 步骤 4：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中加入一个列表框，在属性设置窗口中将其 Name属性设置为 L1，在其 List属性中添加四个项目，依次为
9、”AAAA”、 ”BBBB”、 ”CCCC”和 ”DDDD”。注意：每输入完一项后按Ctrl+Enter键换行再输入下一项。在窗体上再画出一个文本框，名称为 Textl，Text属性为空白。 步骤 2：打开代码编辑窗口，编写列表框的 DblClick事件过程： 参考代码： Private Sub L1_DblClick( ) L1 AddItem Text1 Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp。步骤 2：在窗体 Forml中加入两个框 架和一个标签以及一个命令按钮，然
10、后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，其属性及值如表 3-69所示。步骤3：打开代码编辑窗口输入如下代码：参考代码： Private Sub Forml_Click( )If Opl And Op3 ThenLabl Caption=“坐飞机去广州 ”ElseIf Op1 And Op4 ThenLabl Caption=“坐飞机去昆明 ”ElseIf Op2 And Op3 ThenLabl Caption=“坐火车去广州 ”ElseI Op2 And Op4 ThenLabl Caption=“坐火车去昆明 ”EndIfEnd Sub步骤 4：按要求将文件保存至考生文件
11、夹中。步骤 5：按 F5键运行程序，选择一种交通工具和一个到达目标，并单击命令按钮，最后单击窗体右上角的关闭按钮退出程序。 4 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt4 vbp。步骤 2：在窗体 Forml中加入两个文本框、一个标签和两个单选按钮，分别设置它们的相关属性，其属性及值如表 3-70所示。步骤 3：打开代码编辑窗口输入如下代码：参考代码： Private Sub C1_Cl ick( )If Opl ThenLab1 Caption=Text1 TextText1 Text=Text2 TextText2 Text=Lab1 CaptionLab1 Capt
12、ion=“交换成功 ”ElseIf Op2 ThenLabl Caption=Text1 Text&Text2 TextEndIfEnd Sub步骤 4：按要求将文件保存至考生文件夹中。步骤 5：按 F5键运行程序，选择一个单选按钮，并单击命令按钮，最后单击窗体右上角的关闭按钮退出程序。三、综合应用题 5 【正确答案】 步 骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在窗体中如表3-71画出控件，并设置其属性。 步骤 2：在代码编辑窗口编写以下事件过程。参考代码： Dim Sum As IntegerPrivate Sub C1_Cl ick( )ReadData1ReadData2 End SubPrivate Sub C2_Cl ick( )Dim Arr3(20) As IntegerSum=0For i=1 To 20Arr3(i) = Int(Arrl(i) 10) *Int(Arr2(i) 1 0)Sum=Sum+Arr3(i)Next iPrint”Sum=“； SumEnd SubPrivate Sub C3_Cl ick( )WriteData “Dataout txt”， SumEnd Sub步骤 3：按要求将文件保存至考生文件夹中。步骤 4：按 F5键运行程序，先单击 ”读入数据 ”按钮，然后单击 ”计算 ”按钮，最后单击 ”存盘 ”按钮。
