1、国家二级 VB机试（上机操作）模拟试卷 202及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml标题为 “选课 ”的窗体上面一个复选框数组，名称为 CH1，共有四个复选框，按顺序其标题分别是 “数学 ”、 “语文 ”、 “外语 ”、 “计算机 ”，其中 “语文 ”、 “计算机 ”复选框处十选中状态，运行时的窗体如图 2 143所示。请画控件并设置相应属性。 注意：存盘时必须存放在考生文件夹下。工程文件名为 sjt1 vbp，窗体文件名为 sitl frm。 (2)在名称为 Forml的窗体卜画一个名
2、称为HS1的水平滚动条，其刻度值范围为 1 100；画一个命令按钮，名称为 C1，标题为 “移动滚动框 ”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次(假定单击次数少于 10次 )，滚动框向右移动 10个刻度。运行时的窗体如图 2 144所示。要求程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp， 相应的窗体文件为 sit3 frm，在窗体上有一个命令按钮 (名称为 Commandl，标题为 “计算并输出 ”)和
3、两个文本框 (名称分别为 Text1和 Text2)，如图 2-8所示。程序运行后，单击命令按钮，即可计算出数组 Arr中 10个数的正数之和 pos与负数之和 neg，并分别在两个文本框中显示出来。 该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序巾的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有 一个工程文件 sjt4 vbp，相应的窗体文件为 sit4 frm。 在窗体上有两个命令按钮，其名称分别为 Commandl、Command2；一个标签，其名称为 Labell：
4、一个计时器，其名称为 Timer1，如图2 9(a)所示。程序运行后，如果单击 “开始 ”命令按钮，则该按钮变为禁用，而标题变为 “继续 ”，同时标签中的字体每隔 100毫秒增大 0 1倍 (即变为原来的 1 1倍 )，如图 2 9(b)所示，字体大小超过 100后，自动缩小为 8；如果单击 “停止 ”命令按钮，则该按钮变为禁用， “继续 ”命令按钮变为有效，同时标签中的字 体停止变化；再次单击 “继续 ”命令按钮后，标签中的字体继续变化。 这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改
5、程序中的其他部分。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生目录下有一个工程文件 sjt5 vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为 C1、 C2，标题分别为 “计算 ”、 “存盘 ”，如图 2 20所示。并有一个函数过程 isprime(a)可以在程 序中直接调用，其功能是判断参数 a是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得在运行时，单击 “计算 ”按钮，则找出大于 15000的第一个素数，并显示在 Text1中；单击 “存盘 ”按钮，则把 Text1中的计算结果存入考生文件夹下的out5
6、 txt文件中。 注意：考生不得修改 isprime函数过程和控件的属性，必须把计算结果通过单击 “存盘 ”按钮存入 out5 txt文件中，否则无成绩。国家二级 VB机试（上机操作）模拟试卷 202答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。 步骤2：在窗体 Form1中加入一个复选框，并用 “复制 ”和 “粘贴 ”的方法，生成包含四个元素的复选框数组。 步骤 3：分别设置窗体和复选框数组中各元素的相大属性，其属件及值如表 3 75所示。 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建
7、一个 “标准 EXE”上程。 步骤 2：在窗体 Form1中加入一个命令按钮，分别设置它们的相关属性，其属性及值如表 3-76所示。步骤 3：在代码编辑窗口，编写命令按钮的 Click事件过程。 参考代码： Private Sub ClClick() HSl Value=HS1 Value+10 End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sit3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Arr(k)0 Th
8、en pos=pos+Arr(k) neg=neg+Art(k) 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt4 vbp。 步骤 2：打开代码编辑窗口，上掉程序中的汴释符 “”，将问号 “?”改为正确的内容。 参考代码： Commandl单击事件中改错 Timer1 Enabled=True Command2单击事件中改错 Timerl Enabled=False Timerl单击事件中改错 If Labell FontSize100 Then Labell FontSize=Labell FontSize*1 1 步骤 3
9、：按要求将文件保存至考生文件夹中。 三、综合应用题 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：双击窗体 Form1上的 “存盘 ”按钮，在代码编辑窗口其 Click事件过程中输入如下代码： 参考代码： Private Sub C2一 C1 ick() Open App Path ” out5 txt”For Output As： #1 Print： #1， Textl Text Close： #1 End Sub 步骤 4：按要求将文件保存至考生文件夹中。
