1、国家二级 VB机试（上机操作）模拟试卷 35及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在 Forml的窗体上画一个文本框，名称为 Textl。画一个命令按钮，名称为 C1，标题为 ”显示 ”， Tablndex属性为 0。请为 Cl设置适当的属性，使得按 Esc键时，可以调用 Cl的 Click事件，该事件过程的作用是在文本框中显示 ”等级考试 ”，程序运行结果如图 2-186所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。程序中不得使用任何变量。 2 在 Fo
2、rml的窗体上画一个名称为 Textl的文本框，然后建立一个主菜单，标题为 ”操作 ”，名称为 Op，该菜单有两个子菜单，其标题分别为 ”显示 ”和 ”隐藏 ”，名称分别为 Dis和 Hid，编写适当的事件过程。程序运行后，如果单击 ”操作 ”菜单中的 ”显示 ”命令，则在文本框中显示 ”等级考试 ”；如果单击 ”隐藏 ”命令，则隐藏文本框。程序的运行情况如图 2-187所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。程序中不得使用任何变量 。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，请在窗体上画两个框架，其名
3、称分别为 Fl和 F2，标题分别为 ”交通工具 ”和 ”到达目标 ”。在 F1中画两个单选按钮，名称分别为 Opl和 Op2，标题分别为 ”飞机 ”和 ”火车 ”。在 F2中画两个单选按钮，名称分别为 Op3和 Op4，标题分别为 ”广州 ”和 ”昆明 ”。然后画一个命令按钮，其名称为C1，标题为 ”确定 ”。再画一个标签，其名称为 Labl。编写适当的事件过程。程序运行后，选择不同的单选按钮并单击 ”确定 ”按钮后在标签框中显示的结果见表 2-6。 程序 的运行情况如图 2-188所示。存盘时，工程文件名为 sjt3 vbp，窗体文件名为 sjt3 frm。注意：考生不得修改窗体文件中已经存
4、在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。 4 在考生文件夹下有一个工程文件 sjt4 vbp，请在窗体上画三个文本框，其名称分别为 Textl、 Text2和 Text3，文本框内容分别设置为 ”等级考试 ”、 ”计算机 ”和空白。然后画两个单选按钮，其名称分别为 Opl和 Op2，标题分别为 ”交换 ”和 ”连接 ”(如图 2-189所示 )，编写适当的事件程序。程序运行后，如果选中 ”交换 ”单选按钮并单击窗体，则 Textl文本框中内容与 Text2文本框中的内容进行交换，并在Text3文本框中显示 ”交换成功 ”；如果选中
5、”连接 ”单选按钮并单击窗体，则把 Textl和 Text2的内容按 Textl在前、 Text2在后的顺序连接起来，并在 Text3文本框中显示连接后的内容。存盘时，工程文件名为 sjt4 vbp，窗体文件名为 sjt4 frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的 关闭按钮，否则无成绩。三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm，还有一个 datain txt文本文件，内容为：3243765828129857314253647586971324354
6、6576879805937。程序运行后，单击窗体，将把文件 datain txt中的数据输入到二维数组 Mat中，在窗体上按 5行、 5列的矩阵形式显示出来，然后交换矩阵第一行和第三行的数据，并在窗体上输出交换后的矩阵，如图 2-190所示。在窗体的代码窗口中已给出了部分 程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 35答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表
7、 3-105在窗体 Forml中画出控件，并分别设置它们的相关属性。 步骤 2：双击 ”显示 ”按钮，打开代码编辑窗口，输入如下代码：参考代码： Text1 Text=“等级考试 ”步骤 3：按要求将文件保存在考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画一个文本框，在属性设置窗口中将其 Name属性值设置为 Textl。步骤 2：选择 工具 菜单编辑器 命令，打开菜单设计器，如表 3-106中的设置建立菜单项。步骤 3：打开代码编辑窗口，编写以下事件过程：参考代码： Private Sub Dis_Click( )Textl Text=“等
8、级考试 ”End SubPrivate Sub Hid_Cl ick( )Textl Visible=FalseEnd Sub步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 l：打开考生文件夹下的本题工程文件 sjt3 vbp。步骤 2：在窗体 Forml中加入两个框架和一个标签以及一个命令按钮，然后在每个框架中各加入两个单选按钮，分别设置他们的相关属性，其属性及值如表 3-107所示。步骤 3：打开代码编辑窗口输入如下代码：参考代码：Private Sub C1_Click( )If Opl And Op3 ThenLabl Caption=“坐飞机去广州
9、 ”ElseIf Opl And Op4 ThenLabl Caption=“坐飞机去昆明 ”ElseIf Op2 And Op3 ThenLabl Caption=“坐火车去广州 ”ElseIf Op2 And Op4 ThenLabl Caption=“坐火车去昆明 ”EndIfEnd Sub步骤 4：按要求将文件保存至考生文件夹中。步骤 5：按F5键运行程序，选择一种交通工具和一个到达目标，并单击命令按钮，最后单击窗体右上角的关闭按钮退出 程序。 4 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件件 sjt4 vbp。步骤 2：在窗体 Forml中加入三个文本框和两个单选按钮，分
10、别设置它们的相关属性，其属性及值如表 3-108所示。 步骤 3：打开代码编辑窗口输入如下代码：参考代码： Private Sub Form_Click( )If Opl ThenText3 Text=Textl TextText1 Text=Text2 TextText2 Text=Text3 TextText3 Text=“交换成功 ”ElseIf Op2 ThenText 3 Text=Text 1 Text&Text2 TextEndIfEnd Sub步骤 4：按要求将文件保存至考生文件夹中。步骤 5：按 F5键运行程序，选择一个单选按钮，并单击窗体，最后单击窗体右上角的关闭按钮退出程序。 三、综合应用题 5 【正确答案】 步骤 1：打开本题对应工程文件 sjt5 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Dim Mat (M， N) As Integer Open App Path& “ ” & “datain txt”For_ Input As#1 Input#1， Mat(i， j) Mat(3， j)=t 步骤 3：按要求将文件保存在考生文件夹中。
