1、国家二级 VB机试（上机操作）模拟试卷 37及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上建立一个主菜单，标题为 ”操作 ”，名称为 Op，该菜单有两个子菜单，其标题分别为 ”显示 ”和 ”清除 ”，其名称分别为 Dis和 Clear，编写适当的事件过程。程序运行后，如果单击 ”操作 ”菜单中的 ”显示 ”命令，则在窗体上显示 ”等级考试 ”；如果单击 ”清除 ”命令，则清除窗体上显示的内容。程序的运行情况如图 2-196所示。注意：存盘时必须存放在考 生文件夹下，工程文件名为 sjtl vbp，
2、窗体文件名为 sjtl frm。 2 在名称为 Forml的窗体上画一个标签，其名称为 Labl；再画一个列表框，其名称为 Ll，通过属性窗口向列表框中添加若干项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序运行情况如图 2-197所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 3 在考生文 件夹下有一个工程文件 sjt3 vbp，请在窗体上画两个框架，其名称分别为 Fl和 F2，标题分别为 ”交通工具 ”和 ”到达
3、目标 ”。在 Fl中画两个单选按钮，名称分别为 Opl和 Op2，标题分别为 ”汽车 ”和 ”轮船 ”。在 F2中画两个单选按钮，名称分别为 Op3和 Op4，标题分别为 ”青岛 ”和 ”大连 ”。画一个文本框，其名称为Textl。编写适当事件过程。程序运行后，选择不同单选按钮并单击文本框后在文本框内显示结果见表 2 7。 程序的运行情况如图 2-198所示。存盘时，工程文件名为 sjt3 vbp，窗体文件名为sjt3 frm。注 意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮的方式。 4 在考生文件夹下有一
4、个工程文件 sjt4 vbp，请在窗体上画两个文本框，其名称分别为 Textl、 Text2，文本框内容分别设置为 ”计算机 ”、 ”等级考试 ”。然后画一个标签，其名称为 Labl，高度为 375，宽度为 2000。再画两个单选按钮，名称分别为Opl和 Op2，标题分别为 ”交换 ”和 ”连接 ”，编写适当的事件程序。程序运行后，如果选中 ”交换 ”单选按钮并单击窗体，则 Textl文本框中的内容与 Text2文本框中的内容进行交换，并在标签中显示 ”交换成功 ”(如图 2-199所示 )；如果选中 ”连接 ”单选按钮并单击窗体，则把 Textl和 Text2的内容按 Textl在前、 Te
5、xt2在后的顺序连接起来并在标签中显示。存盘时，工程文件名为 sit4 vbp，窗体文件名为sjt4 frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，请先装入该工程文件，然后完成以下操作：在名称为 Forml的窗体上画三个命令按钮，其名称分别为 Cl、 C2和 C3，标题分别为 ”读入数据 ”、 ”计算 ”和 ”存盘 ”(如图 2-200所示 )。程序运行后，如果单击 ”读入数据 ”按钮，则调用题目已提供的 ReadDatal
6、和 ReadData2过程读入datainl txt和 datain2 txt文件中的各 20个整数，分别放入 Arrl和 Arr2两个数组中；如果单击 ”计算 ”按钮，则把两个数组中对应下标的元素相除并截尾取整后，结果放入三个数组中 (即把第一个数组的第 n个元素除以第 二个数组的第 n个元素，结果截尾取整后作为第三个数组的第 n个元素。这里的 n为 1， 2， ， 20)，最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击 ”存盘 ”按钮，则调用题目中给出的 WriteData过程将所求得的和存入考生文件夹下的dataout txt文件中。注意：考生不得修改窗体文件中已
7、经存在的程序，必须把求得的结果单击 ”存盘 ”按钮存入考生文件夹下的 dataout txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 37答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，选择 工具 菜单编辑器 命令，打开菜单设计器，如表 3-112中的设置建立菜单项。步骤 2：打开代码编辑窗口，编写以下事件过程：参考代码： Private Sub Clea_Click( )ClsEnd SubPrivate Sub Dis_Click( ) Print”等级考试 ”End Sub步骤 3：按要求
8、将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中加入一个列表框，在属性设 置窗口中将其 Name属性设置为 Ll，在其 List属性中任意添加四个项目。注意：每输入完一项后按 Ctrl+Enter键换行再输入下一项。在窗体上再画出一个标签，名称为 Labl。 步骤 2：打开代码编辑窗口，编写列表框的 DblClick事件过程： 参考代码： Private Sub L1_DblClick( ) Labl Caption=L1 ListCount End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】
9、 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp。步骤 2：在窗体 Forml中加入两个框架和一个文本框，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，其属性及值如表 3-113所示。步骤 3：打开代码编辑窗口输入如下代码：参考代码： Private Sub Textl_Click( )If Opl And Op3 ThenTextl Text=“坐汽车去青岛 ”ElseIf Opl And Op4 ThenTextl Text=“坐汽车去大连 ”ElseIf Op2 And Op3 ThenTextl Text=“坐轮船去青岛 ”ElseIf Op2 And Op4
10、 ThenTextl Text=“坐轮船去大连 ”EndIfEnd Sub步骤 4：按要求将文件保存至考生文件夹中。步骤 5：按 F5键运行程序，选择一种交通工具和一个到达目标，并单击文本框，最后单击窗体右上角的关闭按钮退出程序。4 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt4 vbp。步骤 2：在窗体 Form1中加入两个文本框、一个标签和两个单选按钮，分别设置它们的相关属性，其属性及值如表 3-114所示。步骤 3：打开代码编辑窗口输入如下代码：参考代码： private Sub Form_Click( )If Op1 ThenLab1 Caption=Text1 Te
11、xtText1 Text=Text2 TextText2 Text = Lab1 CaptionLabl caption=“交换成功 ”ElseIf Op2 ThenLabl Caption=Textl Text&Text2 TextEndIfEnd Sub步骤 4：按要求将文件保存至考牛文件夹中。步骤 5：按 F5键运行程序，选择一个单选按钮，并单击窗体，最后单击窗体右上角的关闭按钮退出程序。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在窗体中如表3-115画出控件，并设置其属性。 步骤 2：在代码编辑窗口编写以下事件过程。参考代码： Dim
12、 Sum As IntegerPrivate Sub C1_Click( )ReadDatalReadData2End SubPrivate Sub C2_Click( )Dim Arr3(20) As IntegerSum=0For i=1 To 20Arr3(i) =Int(Arrl(i) Arr2(i)Sum=Sum+Arr3(i)Next iPrint “Sum= “； SumEnd SubPrivate Sub C3_Click( )WriteData “Dataout txt”， SumEnd Sub步骤 3：按要求将文件保存至考生文件夹中。步骤 4：按 F5键运行程序，先单击 ”读入数据 ”按钮，然后单击 ”计算 ”按钮，最后单击 ”存盘 ”按钮。
