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