1、国家二级 VB机试（上机操作）模拟试卷 38及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在 Forml的窗体上画一个名称为 Textl的文本框，然后建立一个主菜单，标题为 ”操作 ”，名称为 Op，该菜单有两个子菜单，其标题分别为 ”显示 ”和 ”退出 ”，其名称分别为。Dis和 Exit，编写适当的事件过程。程序运行后，如果单击 ”操作 ”菜单中的 ”显示 ”命令，则在文本框中显示 ”等级考试 ”；如果单击 ”退出 ”命令，则结束程序运行。程序的运行情况如图 2-201所示。 注意：存盘时必须存放在考生文件夹下，工程文
2、件名为 sjtl vbp，窗体文件名为 sjtl frm。 2 在 Forml的窗体上画一个列表框，名称为 L1，通过属性窗口向列表框中添加四个项目，分别为 ”AAAA”、 ”BBBB”、 ”CCCC”和 ”DDDD”，编写适当的事件过程。程序运行后，如果单击列表框中的某一项，则该项就从列表框中消失。程序的运行情况如图 2-202所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个 工程文件 sjt3 vbp，请在窗体上画两个框架，其名称分别为 Fl和 F2，标题分别为 ”交通工具 ”和 ”到达目标
3、 ”。在 F1中画两个单选按钮，名称分别为 Opl和 Op2，标题分别为 ”飞机 ”和 ”火车 ”。在 F2中画两个单选按钮，名称分别为 Op3和 Op4，标题分别为 ”广州 ”和 ”昆明 ”。然后画一个命令按钮，其名称为C1，标题为 ”确定 ”。再画一个文本框，其名称为 Textl。编写适当事件过程。程序运行后，选择不同单选按钮并单击 ”确定 ”按钮后在文本框中显示的结果见表 2-8。程序的运行情况如图 2-203所示。存盘时，工程文件名为 sjt3 vbp，窗体文件名为 sjt3 frm。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时
4、必须通过单击窗体右上角的关闭按钮。4 在考生文件夹下有一个工程文件 sjt4 vbp，如图 2-204所示，请在窗体上画三个文本框，其名称分别为 Textl、 Text2和 Text3，文本框内容分别设置为 ”等级考试 ”、 ”计算机 ”和空白。然后画两个单选按钮，其名称分别为 Opl和 Op2，标题分别为 ”交换 ”和 ”连接 ”，编写适当的事件程序。要求在程序运行时，先单击 ”交换 ”单选按钮，使 Textl文本框中内容与 Text2文本框中的内容进行交换，并使 ”交换 ”单选按钮消失；然后单击 ”连接 ”单选按钮，则把交换后的 Textl和 Text2的内容以Textl在前、 Text2
5、在后的顺序连接起来，并在 Text3文本框中显示连接后的内容。存盘时，工程文件名为 sjt4 vbp，窗体文件名为 sjf4 frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击 ”交换 ”单选按钮，后单击 ”连接 ”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。三、综合应用题 5 在考生文 件夹下有一个工程文件 sjt5 vbp，请先装入该工程文件，然后完成以下操作：在名称为： Forml的窗体上画三个命令按钮，其名称分别为 C1、 C2和 C3，标题分别为 ”读入数据 ”、 ”计算 ”和 ”存盘 ”(如图 2-205所示 )。程序运行后，如果单击 ”读入
6、数据 ”按钮，则利用题目中提供的 ReadDatal、 ReadData2过程读入datainl txt和 datain2 txt文件中的各 20个整数，分别放入两个数组 Arrl和 Arr2中；如果单击 ”计算 ”按钮，则把两个数组中对应下标的元素相加，其结果放入第三个数组中 (即第一个 数组的第 n个元素与第二个数组的第 n个元素相加，其结果作为第三个数组的第 n个元素。这里的 n为 1， 2， ， 20)，最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击 ”存盘 ”按钮，则调用题目中给出的 WriteDate过程将计算结果存入考生文件夹下的 dataout txt文
7、件中。注意：请仔细阅读已有程序。考生不得修改窗体文件中已经存在的程序，必须把求得的结果单击 ”存盘 ”按钮存入考生文件夹下的 dataout txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 38答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画一个名为Text1的文本框。步骤 2：选择 工具 菜单编辑器 命令，打开菜单设计器，如表3-116中的设置建立菜单项。 步骤 3：打开代码编辑窗口，编写 ”显示 ”和 ”退出 ”菜单命令的单击事件过程。参考代码： Private Sub
8、 Dis_Click( )Text1 Text=“等级考试 ”End SubPrivate Sub Exlt_C1ick( )EndEnd Sub步骤 4：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中加入一个列表框，在属性设置窗口中将其 Name属性设置为 L1，在其 List属性中添加四个项目，依次为 ”AAAA”、 ”BBBB”、 ”CCCC”和 ”DDDD”。注意：每输入完一项后按Ctrl+Enter键换行再输入下一项。 步骤 2：打开代码编辑窗口，编写列表框的 Click事件过程： 参考代码： Private Sub
9、 L1_Click( ) L1 RemoveItem L1 ListIndex End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 l：打开考生文件夹下的本题工程文件 sjt3 vbp。步骤 2：在窗体 Forml中加入两个框架和一个文本框以及一个命令按钮，然后在每个框架中各加入两个单选按钮，分别设置他们的相关属性，其属性及值如表 3-117所示。步骤 3：打开代码编辑窗口输入如下代码：参考代码： Private Sub Cl_Click( )If Op1 And Op3 ThenTextl Text=“坐飞机去广州 ”ElseIf Opl An
10、d Op4 ThenTextl Text=“坐飞机去昆明 ”ElseIf Op2 And Op3 ThenTextl Text=“坐火车去广州 ”ElseIf Op2 And Op4 ThenTextl Text=“坐火车去昆明 ”End IfEnd Sub步骤 4：按要求将文件保存至考生文件夹中。步骤 5：按 F5键运行程序，选择一种交通工具和一个到达目标，并单击命令按钮，最后单击窗体右上角的关闭按钮退出程序。 4 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt4 vbp。步骤 2：在窗体 Forml中加入三个文本框和两个单选按钮，分别设置它们的相关属性，其属性及值如表 3-
11、118所示。 步骤 3：打开代码编辑窗口输入如下代码：参考代码： Private Sub Opl_Click( )a$=Textl TextTextl Text=Text2 TextText2 Text=a$Opl Visible=FalseEnd Subprivate Sub Op2_Click( )Text3 Text=Textl Text&Text2 TextEnd Sub步骤 4：按要求将文件保存至考生文件夹中。步骤 5：按 F5键运行程序，选择一个单选按钮，最后单击窗体右上角的关闭按钮退出程序。 三、综合应用题 5 【正确答案】 步骤 l：打开考生文件中的本题工程文件 sjt5 vb
12、p，在窗体中如表3-119画出控件，并设置其属性。 步骤 2：在代码编辑窗口编写以下事件过程。参考代码： Dim Sum As IntegerPrivate Sub C1_Click( )Read DatalRead Data2End SubPrivate Sub C2_Click( )Dim Arr3(20) As IntegerSum=0For i=1 To 2 0Arr3(i) =Arrl(i) +Arr2(i)Sum=Sum+Arr3(i)Next iPrint “Sum= “； SumEnd SubPrivate Sub C3_Click( )Write Data “Dataout txt”， SumEnd Sub步骤 3：按要求将文件保存至考生文件夹中。步骤 4：按 F5键运行程序，先单击 ”读入数据 ”按钮，然后单击 ”计算 ”按钮，最后单击 ”存盘 ”按钮。
