1、国家二级 VB机试（上机操作）模拟试卷 28及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在 Forml的窗体上画一个名称为 P1的图片框，然后建立一个主菜单，标题为 ”操作 ”，名称为 Op，该菜单有两个子菜单，其标题分别为 ”显示 ”和 ”清除 ”，名称分别为 Dis和Clear，编写适当的事件过程。程序运行后，如果单击 ”操作 ”菜单中的 ”显示 ”命令，则在图片框中显示 ”等级考试 ”；如果单击 ”清除 ”命令，则清除图片框中的信息。程序的运行情况如图 2-151所示。注 意：存盘时必须存放在考生文件夹下，工程文件
2、名为 sjtl vbp，窗体文件名为 sjtl frm。程序中不得使用任何变量。2 在 Forml的窗体上画一个列表框，名称为 Ll，通过属性窗口向列表框中添加 4个项目，分别为 ”AAAA”、 ”BBBB”、 ”CCCC”和 ”DDDD”，编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项添加到列表框中。程序的运行情况如图 2-152所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，请在窗体上画两个框架，其名称分别为 F1和 F
3、2，标题分别为 ”交通工具 ”和 ”到达目标 ”。在 F1中画两个单选按钮，名称分别为 Opl和 Op2，标题分别为 ”飞机 ”和 ”火车 ”。在 F2中画两个单选按钮，名称分别为 Op3和 Op4，标题分别为 ”广州 ”和 ”昆明 ”。画一个文本框，其名称为Textl。编写适当事件过程。程序运行后，选择不同单选按钮并单击窗体后在文本框中显示结果见表 2-3。程序的运行情况如图 2-153所示。存盘时以原文件名存盘。注意：考生不得修改窗 体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。4 在考生文件夹下有一个工程文件 sjt4
4、 vbp，请在窗体上画三个文本框，其名称分别为 Textl、 Text2和 Text3，文本框内容分别设置为 ”计算机 ”、 ”等级考试 ”和空白。然后画两个单选按钮，其名称分别为 Opl和 Op2，标题分别为 ”交换 ”和 ”连接 ”(如图 2-154所示 )，编写适当的事件程序。程序运行后，如果选中 ”交换 ”单选按钮并单击 Text3文本框，则 Textl文本框中的内容与 Text2文本框中的内容进行交换，并在 Text3文本框中显示 ”交换成功 ”；如果选中 ”连接 ”单选按钮并单击 Text3文本框，则把 Textl和 Text2的内容按 Textl、 Text2的顺序连接起来，并在
5、 Text3文本框中显示连接后的内容。存盘时，按原文件名存盘。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，然后单击 Text3。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，请先装入该工程文件，然后完成以下操作：在 名称为 Forml的窗体上画三个命令按钮，其名称分别为 Cl、 C2和 C3，标题分别为 ”读入数据 ”、 ”计算 ”和 ”存盘 ”(如图 2-155所示 )。程序运行后，如果单击 ”读入数据 ”按钮，则调用题目已提供的 ReadDatal和 ReadData2过程读入data
6、inl txt和 datain2 txt文件中的各 20个整数，分别放入 Arrl和 Arr2两个数组中；如果单击 ”计算 ”按钮，则把两个数组中对应下标的元素相整除，其结果放入第三个数组中 (即第一个数组的第 n个元素整除第二个数组的第刀个元素，其结果作为第三个数组的第 n个元素。 这里的 n为 1， 2， ， 20)，然后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击 ”存盘 ”按钮，则调用题目中给出的 WfiteData过程将所求得的和存入考生文件夹下的 dataout txt文件中。注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果单击 ”存盘 ”按钮存入
7、考生文件夹下的 dataout txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 28答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准。 EXE”工程，在窗体 Forml中画一个图片框，在属性设置窗口中将其 Name属性值设置为 P1。步骤 2：选择 工具 菜单编辑器 命令，打开菜单设计器，如表 3-84中的设置建立菜单项。步骤 3：打开代码编辑窗口，编写以下事件过程：参考代码： Private Sub Clea_Click( )P1 ClsEnd SubPrivate Sub Dis_Click( )P1 Pr
8、int”等级考试 ”End Sub步骤 4：按要求将文件保存至考生文件夹中。 2 【正确答案】 步 骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中加入一个列表框，在属性设置窗口中将其 Name属性设置为 L1，在其 List属性中添加四个项目，依次为 ”AAAA”、 ”BBBB”、 ”CCCC”和 ”DDDD”。注意：每输入完一项后按Ctrl+Enter键换行再输入下一项。 步骤 2：打开代码编辑窗口，编写列表框的 DblCliek事件过程： 参考代码： Private Sub L1_DblClick( ) L1 AddItem L1 Text End Sub 步骤 3：按要求将
9、文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp。 步骤 2：在窗体 Forml中加入两个框架和一个文本框，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，其属性及值如表 3-85所示。步骤 3：打开代码编辑窗口输入如下代码：参考代码： Private Sub Form_Click( )If Op1 And Op3 ThenTextl Text=“坐飞机去广州 ”ElseIf Op1 And Op4 ThenText1 Text=“坐飞机去昆明 ”ElseIf Op2 And Op3 ThenTextl Text
10、=“坐火车去广州 ”ElseIf Op2 And Op4 ThenText1 Text=“坐火车去昆明 ”End IfEnd Sub步骤 4：按要求将文件保存至考生文件夹中。步骤 5：按 F5键运行程序，选择一种交通工具和一个到达目标，并单击窗体，最后单击窗体右上角的关闭按钮退出程序。 4 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt4 vbp。 步骤 2：在窗体 Forml中加入三个文本框和两个单选按钮，分别设置它们的相关属性，其属性及值如表 3-86所示。 步骤 3：打开代码编辑窗口输入如下代码：参考代码： Private Sub Text3_Click( )If Op1
11、 ThenText3 Text=Textl TextTextl Text：Text2 TextText2 Text=Text3 TextText3 Text=“交换成功 ”ElseIf Op2 ThenText3 Text=Textl Text&Text2 TextEnd IfEnd Sub步骤 4：按要求将文件保存至考生文件夹中。步骤 5：按 F5键运行程序，选择一个单选按钮，并单击Text3，最后单击窗体右上角的关闭按钮退出程序。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在窗体中如表3-87画出控件，并设置其属性。 步骤 2：在代码编辑窗
12、口编写以下事件过程。参考代码： Dim Sum AS InteqerPrivate Sub C1_C1ick( )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键运行程序，先单击 ”读入数据 ”按钮，然后单击 ”计算 ”按钮，最后单击 ”存盘 ”按钮。
