1、国家二级 VB机试（上机操作）模拟试卷 358 及答案与解析 一、基本操作题 1 (1)在名称为 Form1、标题为 “标签 ”的窗体上画一个名称为 Label1的标签，并设置适当属性以满足以下要求： 标签的内容为 “计算机等级考试 ”； 标签可根据显示内容自动调整其大小； 标签带有边框，且标签内容显示为三号字。 运行后的窗体如图 3 122所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Form1的窗体上画一个名称为Hscrolll的水平滚动条 ，其刻度范围为 1 100；再画一个名称为 Text1的文本框，初始内容
2、为 1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图 3。 123所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体上已经有两个文本框，名称分别为 Text1、 Text2；一个命令按钮， 名称为 C1，标题为 “确定 ”；请画两个单选按钮，名称分别为 Op1、 Op2，标题分别为 “男生 ”、 “女生 ”；再画两个复选框，名称分别为
3、 Ch1、 Ch2，标题分别为 “体育 ”、 “音乐 ”。请编写适当的事件过程，使得在运行时，单击 “确定 ”按钮后实现下面的操作： 根据选中的单选按钮，在 Text1中显示 “我是男生 “或 “我是女生 ”。 根据选中的复选框，在 Text2中显示 “我的爱好是体育 ”、 “我的爱好是音乐 ”或 “我的爱好是体育音乐 ”，如图 3 134所示。 注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中 一个单选按钮和至少一个复选框，并单击 “确定 ”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体上有一个名
4、称为 List1的列表框，名称为 Timerl的计时器，名称为 Label1的标签，如图3 135所示。请通过属性窗口向列表框添加四个项目，分别是 “第一项 “、 “第二项 ”、 “第三项 ”、 “第四项 ”。程序运行后，将计时器的时间间隔设置为 1秒钟，每一秒钟从列表框中取出一个项目显示在 Label1的标签中，首先显示 “第一项 “，然后，依次显示 “第二项 ”、 “第三项 ”、 “第四项 ”，如此循环。 在给出的窗体文件中已经有了全部控件和程序，但不完整，请添加 List1中的项目，去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：考生不得修改工程中已经存在的内容和控件属性，
5、最后把修改后的文件按原文件名存盘。三、综合应用题 3 为了验证一个正整数 n(n3)是否为素数，最直观的方法是，看在 2 n 2范围内能否找到一个整数 m将 n整除，若 m存在，则 n不是素数；若找不到 m，则 n为素数。在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有 1个名称为 Text1的文本框 。请根据上面的算法，编写判断一个正整数是否为素数的函数 prime，然后用这个函数找出 200 300之间的所有素数，求出这些素数的和，将该数在文本框中显示出来，并存入文件 out5 txt中。 要求：编写函数 prime的代码，然后在 Form Click事件过程中调用该函数，并计算
6、素数的和。事件过程中已给出了把素数和保存到文件中的代码，考生不得修改。 注意：请务必把求得的和在文本框中显示出来，这样才能存入文件 out5 txt，否则没有成绩。 国家二级 VB机试（上机操作）模拟试卷 358 答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个标签，并设置它的相关属性，其属性和值如表 4-72所示。步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个文本框和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表 4-73所示。 步骤
7、2：打开代码编辑窗口，编写水平滚动条的 Change事件过程。参考代码： PriVate Sub HScroll1_Change()Text1 Text=HScroll1 ValueEnd Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题只需按要求画出控件并设置其相应属性即可。 (2)根据题意，本题需在滚动条的 Change事件过程中编写在文本框中输出滚动条当前 Value值的语句。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹下的工程文件 sjt3 vbp。 步骤 2：在窗体 Form1中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属
8、性及其值如表 4 79所示。 步骤 3：打开代码编辑窗口输入如下代码 。参考代码： Private Sub C1_Click()Dim a As Strinaa=“我是 “If Op1 ValLie ThenText1 Text=a & Op1 CaptiOnEl seText1 Text=a & Op2 CaptionEnd Ifa=“我的爱好是 If Chl Value=1 ThenText2 Text=a & Chl CaDtiona=Text2 TextEnd IfIf Ch2 Value=1 ThenText2 Text=a & Ch2 CaptionEnd IfEnd Sub 步骤
9、 4：按键运行程序，先选中选中一个单选按钮和至少一个复选框，并单击 “确定 “按钮，然后单击窗体右上角的关闭按钮结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，通过属性窗口向列表框添加四个项目，分别是： “第一项 ”、 “第二项 ”、 “第三项 ”、 “第四项 ”。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码：i=0Timerl Interval=1000Label1 Caption=List1 List(i) 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1
10、)根据题目要求，在本题的程序设计上，首先以 Op1是否选中作为 IfThenElse 语句的条件，由此分出两种情况： Op1被选中或 Op2被选中。在条件为真 (即 Op1 被选中 )时文本框 1中显示 “我是男生 ”，否则显示 “我是女生 ”；接下来分别判断两个复选框是否选中并相应在文本框 2上显示内容。以上判断和显示操作均在 Cl 的 Click事件中完成。 (2)要实现本题中的功能，在窗体的 Load 事件过程中，令全局变量 i的初值为0，然后设置计时器的 Interval属性为 1000并启用计时器；在计时器的 Timer事件中把列表框的第 i项显示在标签中，接下来令 i+1，一旦 i
11、超过了 3就将其重新置 0以便实现循环显示。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的工程文件 sjt5 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Function prime(ByVal n As Integer) As Boolean * 考生编写 * Dim flaq As Boolean flag= IIf(n1， True， False) For m=2 To n 2 If n Mod m=0 Then flag=False Exit For End If Next m prime=flag * End Fun
12、ction Private Sub Form Click() *考生编写 * Dim sun As Integer For n=200 To 300 If prime(n) Then Sum=Sum+n End If Next n Text1 Text=Sum * Open App Path &“ out5 txt“For Output As #1 Print #1， Text1 Text Close 1 End Sub 步骤 2：按 键运行程序，单击各个按钮测试验证。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 题目要求计算 200 300之间的素数和，可通过一个循环来实现，在循环里 面逐个判断 200 300之间的数是否为素数，如果是计算累加和。 函数 prime用来判断输入参数 n是否为素数，方法是 2 n 2范围内能否找到一个整数 m将 n 整除，若 m存在，则 n 不是素数；若找不到 m，则 n 为素数。设计程序的时候，通过循环来实现，循环变量 m从 2开始，循环结束条件为 n 2，Step 为 1，如果 n mod m为 0，表示 m将 n 整除， n不是素数。
