1、国家二级 VB机试（上机操作）模拟试卷 235及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界而和代码 )。 (1)在名称为 Forml、标题为 “测试 ”的窗体上画一个名称为 Framel、标题为 “字体 ”的框架。在框架内画两个单选按钮，其名称分别为 Opt1和 Opt2，标题分别为 “隶书 ”和 “宋休 ”。程序运行后的窗体如图 2-198所示。 注意：存盘时必须存放在考生义件夹下，工程文件名为 sitl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗休上用 名称为 shapel的形状控件画一个圆，其直径为
2、 1000(高、宽均为 1000)：再画两个命令按钮，标题分别是 “乖直线 ”和 “水平线 ”，名称分别为 Command1、Command2，如图 2199所示。然后编写两个命令按钮的 Click事件过程。程序运行后，如果单击 “垂直线 ”命令按钮，则圆的内部用垂直线填允；如果单击 “水平线 ”命令按钮，则圆的内部用水平线填充。注意：程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sit2 frm。 二 、简单应用题 2 (1)考生文件夹下的工程文件 sjt3 vbp中有一个菜单、两个标签和两个文本框。程序运行时
3、，用鼠标右键单击窗体会弹出一个弹出式菜单 (如图 2 160所示 )。当选中 “计算 100以内自然数之和 ”菜单项时，将计算 100以内自然数之和并放入Textl中；当选中 “计算 7!”菜单项时，将计算 7!并放入 Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名 存盘。 (2)考生文件夹下的工程文件 sjt4 vhp中有如图 2 161所示的控件。程序功能如下：程序运行时，在 Text1中输入一个商品名称，在 Text2中输入一个数
4、量，单击 “计算 ”按钮，则会在列表框中找到该商品的单价，乘以数量后显示在 Text3中 (如图2 161所示 )；若输入的商品名称是错误的，则在 Text3中显示 “无此商品 ”(为方便编程，列表框中的每个单价均为 4位 (含小数点 )。请将事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述科序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将 程序按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 vbsj5 vbp，请先装入该工程文件，然后完成以下操作：在名称为 Forml的窗体上画两个命令按钮，其名称分别为 cmdRead和cmdCal，标题分别为 “
5、读入数据 ”和 “汁算保存 ”(如图 2 42所示 )。程序运行后，如果单击 “跌入数据 ”按钮，则调用题目所提供的 RcadData1和 ReadData2过程读入in51 txt和 in52 txt文件中的各 20个整数，分别放入 A1和 A2两个数组中，如果单击 “计算保存 ”按钮，则把两个数组中对应 下标的元素相减，其结果放入第三个数组中 (即：第一个数组的第 n个元素减去第二个数组的第 n个元素，其结果作为第三个数组的第 n个元素。这里的 n为 1、 2、 、 20)，最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData过程将所求得的和存
6、入考生文件夹下的 0ut5 dat文件中。注意：考生不得修改窗体文件中已经存在的程序，且必须执行此程序一次，最后把修改后的文件以原来的文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 235答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3-104在窗体上绘制控件并设置属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3-105在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口编写两个命令按钮的单击事件过程。 参考代码： Private S
7、ub CommandlClick() Shapel FilIStyle=3 End Sub Private Sub Command2一 Click() Forml Shapel FillStyle=2 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开学生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Button=2 Then PopupMenu mypopmenu For k=n To 1 Step一 1 Text2=fac
8、t(7) 步骤 2：按要求将文件保存争考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt4 vbp，住代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For k=1 To Listl ListCount一 1 name=Left(Listl List(k)， n一 1) price=Val(Right(Listl List(k)， 4) Text3=”无此商品 ” 步骤 2：按要求将文 件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件vbsj5 vbp，按
9、表 3-26在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，分别编写 “读入数据 ”按钮和 “计算保存 ”按钮的单击事件过程。 参考代码： Private Sub cmdRead_C1ick() ReadDatal ReadData2 End Sub Private Sub cmdCal CiiCk() Dim Arr3(20)As Integer Dim Sum As Integer Sum=0 For i=1 To 20 Arr3(i)=Arrl(i)一 Arr2(i) Sum=Sum+Arr3(i) Next Print Sum WriteData”OHt5 dat”， Sum End Sub 步骤 3：按键运行程序，先单击 “读入数据 ”按钮，然后单击 “计算保存 ”按钮。 步骤 4：按要求将文件保存至考生文件央中。 【特别提示】为在多个过程中使用同一个变量，应将其声明为窗体变量。
