1、国家二级 VB机试（上机操作）模拟试卷 114及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个名称为 cmdArray的命令按钮数组，含 3个命令按钮，它们的 lndex属性分别为 0、 1、 2，标题依次为 “是 ”、 “否 ”、 “取消 ”，每个按钮的高、宽均为 400、 900。窗体的标题为 “按钮示例 ”。运行后的窗体如图 3 26所示。 注意：存盘时必须存放在考生文件灾下，工程文件名为vbsjl vbp，窗体文件名为 vbsil frm。 (2)在名称为 Forml的窗体
2、上画一个名称为Drvl的驱动器列表框，一个名称为 Dirl的目录列表框，一个名称为 Filel的文件列表框，名称为 Labell、标题为 “文件名 ”的标签和名称为 Label2、 BorderStyle为 1的标签。窗体的标题设置为 “文件系统控件 ”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选巾的文件名显示在 Label2中，如图 3 27所示。 注意：要求程序中不得使用变量，事件过程中只能，与一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsi2 vbp，窗
3、体文件名为 vbsj2 fm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击 “统计 ”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组 x中，如图3 132所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能 修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)考生文件夹下的工程文件 sjt4 vbp中有两个名称分别为 List1、 List2的列表框控件，两个名称分
4、别为 Commandl、 Command2，标题分别为 “”、 “ 程序的功能是：单击 “”按钮，将 List1中的表项添加到 List2中，同时将 IAst1清空；单击 “ 三、综合应用题 3 在考生目录下有一个工程文件 sjt5 vbp，其窗体上有一个文本框，名称为Textl；还有两个命令按钮，名称分别为 C1、 C2，标题分别为 “计算 ”、 “存 盘 ”，如图 3-20所示。并有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数 a是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得在运行时，单击 “计算 ”按钮，则找出大于
5、15000的第一个素数，并显示在 Text1中；单击 “存盘 ”按钮，则把 Text1中的计算结果存入考生文件夹下的out5 txt文件中。 注意：考生不得修改 isprime函数过程和控件的属性，必须把计算结果通过单击 “存盘 ”按钮存入 out5 txt文件中，否则无成绩。 国家二级 VB机试（上 机操作）模拟试卷 114答案与解析 一、基本操作题 1 【正确答案】 【操作步骤】步骤 1：新建一个 “标准 EXE”工程，单击工具箱中的CommandButton控件图标，在窗体 Forml上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为 cmdArray， Width属性值设置为 9
6、00， Height属性值设置为400。步骤 2：选中 cmdArray控件，选择【编辑】 【复制】命令，然后选择【编辑】 【粘贴】命令，在弹出的询问是否建立控件数组的对话框中，选择 “是 ”按钮，如图 4 1所示，则可以建立 cmdArray控件数组的第 2个元素。再次选择【编辑】 【粘贴】命令 ，建立 cmdArray控件数组的第 3个元素。步骤 3：依次选中 cmdArray控件数组中各个元素，设置它们的相关属性，属性及其值如表 4 16所示。步骤 4：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建 “标准 EXE”工程，往窗体 Fontal中加入驱动器列表框、目录
7、列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表 4 17所示。步骤 2：打开代码编辑窗口，输入如下代码：参考代码： Private Sub Drvl Change() Dirl Path=Drvl DriveEnd SubPrivate Sub Dirl Change() Filel Path=Dirl PathEnd SubPrivate Sub Filel Click() Label2 Caption=Filel FileNameEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤
8、1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： n=Len(Text1 Text) b=Asc(Mid(s， i， 1) Select Ca se b For i=0 To 2 x(i) =a(i) 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，通过 Listl列表框的 List属性添加四个项目：文本框、标签命令按钮、单选按钮。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码
9、： For i=0 To La Li stCount一 1 Lb AddItem La Li st(i) Next La Clear 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题对应工程文件 sjt5 vbp。 步骤 2：双击窗体 Forml上的 “计算 ”按钮，打开代码编辑窗口，在其 Click事件过程中输入如下代码： 参考代码： Private Sub C1 C1ick() a =15000 Do a =a +1 Loop Until isprime(a ) Text1 Text=a End Sub 步骤 3：双击窗体 Forml上的 “存盘 ”按钮，在代码编辑窗口其 Click事件过程中输入如下代码： 参考代码： Private Sub C2 C1ick() Open App Path&“ out5 txt”For Output AS#1 Print#1， Text1 Text C10se#1 End Sub 步骤 4：按要求将文件保存至考生文件夹中。
