1、国家二级 VB机试（上机操作）模拟试卷 211及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画出包含三个命令按钮的控件数组，名称为 cmdl，下标分别为 0、 1、 2， Caption分别为 “开始 ”、 “停止 ”和 “退出 ”，如图 2 208(a)所示。通过属性窗口设置各命令按钮的属性，使得程序开始运行时， “停止 ”按钮不可见， “退出 ”按钮不可用，如图 2 208(b)所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名 为 sjtl frm，工程文件名为sit1
2、vbp (2)在名称为Form1的窗体上画两个名称分别为 Command1和 Command2、标题分别为 “打开 ”和“保存 ”的命令按钮，和一个名称为 CD1的通用对话框，如图 2 209所示。请在属性窗口中设置 CD1的属性，使得打开通用对话框时，其初始路径是 “C： ”。再编写适当的事件过程，使得运行程序，分别单击 “打开 ”或 “保存 ”按钮时，相应地出现“打开 ”或 “保存 ”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，且窗 体文件名为 sjt2 frm，工程文件名为 sjl2 vbp。 二、简单应用题 2 (1)在考生文件
3、夹下有一个工程文件 sjt3 vbp，窗体上有两个列表框，名称分别为 List1、 List2，在 List2中已经预设了内容；还有两个命令按钮，名称分别为C1、 C2，标题分别为 “添加 ”、 “清除 ”，如图 2233所示。释序的功能是在运行时，如果选中右边列表框中的一个列表项，单击 “添加 ”按钮，则把该项移到左边的列表框中：若选中左边列表框中的一个列表项，单击 “清除 ”按钮，则把该项移刚右边的列表框中。 文件中已经给出了所 有摔件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。既不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘
4、。(2)在考生文件夹下有一个工程文件sjt4 vbp，请在 Forml窗体上建立一个名称为 Op1的单选按钮数组，含有三个单选按钮，其标题分别为 “10 1”、 “11!”、 “12”Index属性分别为 0、 1、 2；再面一个名称为 C1的命令按钮，标题为 “计算 ”；画一个名称为 Text1的文本框，如图 2 234所示。程序的功能是在选定一个单选按钮并单击 “计算 ”按钮后，可以计算出相应的阶乘值，在 Text1中显示该阶乘值。请画出上述控仲并编写程序。 注意：考生小得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。
5、最后按原文件名存盘。三、综合应用题 3 在考生目录下有一个工程文件 sit5 vbp。窗体中已经给出了所有控件 (如图2 82所示 )。请编写适当的事件过程完成以下功能：单击 “读数 ”按钮，则把考生目录下的 in5 txt文件中的一个整数放入 Text1；单击 “计算 ”按钮，则计算出大于该数的第一 个素数，并显示在 Text2中：单击 “存盘 ”按钮，则把找剑的素数存到考生目录下的 out5 txt文件中。 注意：在结束程序运行之前，必须单击 “存盘 ”按钮，把结果存入 out5 txt义件，否则无成绩。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 211答案与
6、解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3-109在窗体中用 “复制 ”和 “粘贴 ”画出控件数组并设置属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，选择【工程】 【部件】命令，在弹出的 “部件 ”对话框的列表中选中 “MicroSoft Common Dialog Contro16 0”项目，单击 “确定 ”按钮。 步骤 2：在窗体 Form1上面一个通用对话框，其相关属性设置如表 3-1 10所示。步骤 3：编写两个命令按钮的Click事件，加入下
7、面的代码： 参考代码： Private Sub CommandlClick() CDI ShowOpen -或 CD1 Action=1 End Sub Private Sub Command2一 Click() CD1 ShowSave -或 CD1 Action=2 End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【特别提示】通过对话框控件不是 VB内部控件，通常不会在 VB默认上具箱中列出。 二、简单应用题 2 【正确答案】 第 l小题 【操作步骤】 步骤 1：打开本题对应工程文件sit3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确
8、的内容。 参考代码： While(k 步骤 2：在代码编辑窗口，编写 “计算 ”按钮的单击事件过程。 参考代码： Private Sub C1一 Click() Dim k As Integer k=0 While Not Opl(k) Value And k键运行程序，先选中一个选项，接着单击 “计算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开木题对应工程文件 sjt5 vbp。 步骤 2：双击窗体 Form1上的 “计算 ”按钮，打开代码编辑窗口，在其 Click事件过程中输入 如下代码： 参考代码： Private Sub Coramand2 C1 iCk() a =CInt(Textl Text) Do a =a +1 Loop Until isprime(a ) Text2 Text=a End Sub 步骤 3：编写判断素数的函数过程 isprime，参考代码为： Function isprime(a As Integer) Dim flag As Boolean k =2 flag=True While k 键运行程序，先单击 “读数 ”按钮，接着单击 “计算 ”按钮，最后单击 “存盘 ”按钮。 少骤 5：按要求将文件保存至考生文件夹中。
