国家二级VB机试（上机操作）模拟试卷358
基本操作题
1.(1)在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：
①标签的内容为“计算机等级考试”；
②标签可根据显示内容自动调整其大小；
③标签带有边框，且标签内容显示为三号字。
运行后的窗体如图3．122所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Form1的窗体上画一个名称为Hscrolll的水平滚动条，其刻度范围为1～100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图3。123所示。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
(1)步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个标签，并设置它的相关属性，其属性和值如表4-72所示。
[*]
步骤2：按要求将文件保存至考生文件夹中。
(2)步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个文本框和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表4-73所示。
[*]
步骤2：打开代码编辑窗口，编写水平滚动条的Change事件过程。参考代码：
PriVate Sub HScroll1_Change()
Text1．Text=HScroll1．Value
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：(1)本题只需按要求画出控件并设置其相应属性即可。
(2)根据题意，本题需在滚动条的Change事件过程中编写在文本框中输出滚动条当前Value值的语句。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，窗体上已经有两个文本框，名称分别为Text1、Text2；一个命令按钮，名称为C1，标题为“确定”；请画两个单选按钮，名称分别为Op1、Op2，标题分别为“男生”、“女生”；再画两个复选框，名称分别为Ch1、Ch2，标题分别为“体育”、“音乐”。请编写适当的事件过程，使得在运行时，单击“确定”按钮后实现下面的操作：
①根据选中的单选按钮，在Text1中显示“我是男生\\
(1)步骤1：打开考生文件夹下的工程文件sjt3．vbp。
步骤2：在窗体Form1中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属性及其值如表4．79所示。
[*]
步骤3：打开代码编辑窗口输入如下代码。参考代码：
Private Sub C1_Click()
Dim a As Strina
a=\\
解析：(1)根据题目要求，在本题的程序设计上，首先以Op1是否选中作为If…Then…Else语句的条件，由此分出两种情况：Op1被选中或Op2被选中。在条件为真(即Op1被选中)时文本框1中显示“我是男生”，否则显示“我是女生”；接下来分别判断两个复选框是否选中并相应在文本框2上显示内容。以上判断和显示操作均在Cl的Click事件中完成。
(2)要实现本题中的功能，在窗体的Load事件过程中，令全局变量i的初值为0，然后设置计时器的Interval属性为1000并启用计时器；在计时器的Timer事件中把列表框的第i项显示在标签中，接下来令i+1，一旦i超过了3就将其重新置0以便实现循环显示。
综合应用题
3.为了验证一个正整数n(n>3)是否为素数，最直观的方法是，看在2～n／2范围内能否找到一个整数m将n整除，若m存在，则n不是素数；若找不到m，则n为素数。在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有1个名称为Text1的文本框。请根据上面的算法，编写判断一个正整数是否为素数的函数prime，然后用这个函数找出200～300之间的所有素数，求出这些素数的和，将该数在文本框中显示出来，并存入文件out5．txt中。
要求：编写函数prime的代码，然后在Form Click事件过程中调用该函数，并计算素数的和。事件过程中已给出了把素数和保存到文件中的代码，考生不得修改。
注意：请务必把求得的和在文本框中显示出来，这样才能存入文件out5．txt，否则没有成绩。
步骤1：打开考生文件夹中的工程文件sjt5．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
Function prime(ByVal n As Integer) As
Boolean
’ ****** 考生编写 ******
Dim flaq As Boolean
flag= IIf(n>1，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 Function
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 &\\
解析：题目要求计算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不是素数。
本文档预览：3600字符，共3256字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
