1、国家二级 VB机试（上机操作）模拟试卷 230及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个名称为 cmdArray的命令按钮数组，含 3个命令按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “是 ”、 “否 ”、 “取消 ”，每个按钮的高、宽均为 400、 900。窗体的标题为 “按钮示例 ”。运行后的窗体如图 2 26所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsjl vbp，窗体文件名为 vbsi1 frm。 (2)在名称为 Forml的窗
2、体上画一个名称为 Drv1的驱动器列表框，一个名称为 Dir1的目录列表框，一个名称为 Filel的文件列表框，名称为Labell、标题为 “文件名 ”的标签和名称为 Label2、 BorderStyle为 1的标签。窗体的标题设置为 “文件系统控件 ”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在 Label2中，如图 2 27所示。注意：要求程序中 不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsi2 vbp，窗
3、体文件名为 vbsj2 frm。 二、简单应用题 2 (1)在考生文件夹下有工程文件 sjt3 vbp。程序运行时的窗体如图 2 185(a)所示。输入商品名称后，选中一种付款方式，则 “成交 ”按钮变为可用，选择一种或多种 “服务 ”后，单击 “成交 ”按钮，则把相应信息显示在下面的图片框中，如图2 185(b)所示。若不选任何 “服务 ”，则显示结果如图 2 185(c)所示。单击 “放弃 ”按钮，则恢复到图 (a)状态。 程 序已经给出但不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。(2
4、)在考生文件夹下有工程文件 sjt4 vbp，其中的列表框中已经有两个列表项 (均为数字 )。程序功能是在文本框中输入一个整数 n(例如 30)，单击命令按钮，则在列表框中追加若干数字，所有追加的数字按以下规律排列：每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于 n的数。如图 2 186(a)所示。若再输入一个更大的整数(如 100)，单击命令按 钮，则按上述规律继续追加数字。如图 2 186(b)所示。 程序已经给出但不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 三、综合应用
5、题 3 在考生文件夹下有一个工程文件 sit5 vbp，窗体如图 2 25所示。运行程序时，从数据文件中读取学生的成绩 (均为整数 )。要求编写程序，统计总人数，并统计不及格、 60 69、 70 79、 80 89及 90 100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之 前，必须单击 “保存 ”按钮，保存统计结果。 注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按 “保存 ”按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 230答案与解析 一、基本操作题 1 【正确答案】
6、第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，单击工具箱中的 CommandButton控件例标，在窗体 Forml上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为 cmdArray， Width属件值设置为 900。 Height属性值设置为 400。 步骤 2；选中 cmdArray控件，选择【编辑】 【复制】命令，然后选择【编辑】 【粘贴】命令，在弹出的询问是否建市控件数组的对话框中，选择 “是 ”按钮，如图 3一 1所示，则可以建立 cmdArray摔件数细的第 2个元素。再次选择【编辑】 【粘贴】命令建立 cmdArray控件数组的第 3个元素。步骤 3
7、：依次选中 cmdArray控件数组中各个元素，设置它们的相关属件，属性及其值如表 3 16所示。步骤 4：按要求将文件保存争考生文件夹中。第 2小题【操作步骤】步骤 1：新建 “标准 EXE”工程，行窗体 Forml中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表 3 17所示。步骤 2：打开代码编辑窗口，输入如下代码： 参考代码： Private Sub Drvl Change() Dirl Path=Drvl Drive End Sub Private Sub DirlChange() Filel Path=Dirl Path
8、End Sub Private Sub Fi lelClick() Label2 Caption=Filel FileName End Sub 步骤 3：按要求将义件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit3 vbp，打斗代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Checkl(k) Value=1 Then Textl Text=” Commandl Enabled=True 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打
9、开考生文件夹下的本题工程文件 sit4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： a=Val(List1 List(Listl ListCount一 2) a=b List1 AddItem c 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操 作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： Textl Text=n count1=0 count2=0 count3=0 count4=0 count5=0 count6=0 For i=
10、1 To n Y=Int(arr(i) 10) Select Case Y Case 1 2 3 t 4 l 5 countl=countl+1 Case 6 count2=count2+1 Case 7 count3=count3+1 Case 8 count4=count4+1 Case 9， 10 count5=count5+1 End Select Next Text2 Text=courtt1 Text3 Text=count2 Text4 Text=count3 Text5 Text=count4 Text6 Text=count5 步骤 2：按 键运行程序，先单击 “统计 ”按钮，冉单击 “保存 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
