第三部分 全国计算机等级考试模拟试卷及参考答案
全国计算机等级考试模拟试卷一 （考试时间 90分钟，满分100分）
一、选择题（第1-20题每题2分，第21-30题每题3分，共70分） 1． 下列文件类型中，属于VB工程可以管理的文件是（ ）。 A) .EXE B) .BAT C) .COM D) .CLS 2．Visual Basic采用了（ ）编程机制。
A) 可视化 B) 事件驱动 C) 面向过程 D) 面向对象 3．下列语句中含有语法错误的是（ ）。 A) s$=a
4．用户可通过（ ）模拟屏幕的小图像来布置应用程序。 A) 窗体设计器 B)窗体布局窗口 C) 快捷菜单 D) 立即窗口
5．在Visual Basic中，称对象的数据为：（ ）。 A) 事件 B) 属性 C) 方法 D) 封装
6．在一个命令按钮的Click事件语句中，（ ）可以使得窗体（Form2）得到焦点。 A) Form2.GetFocus B) Form2.SetFocus C) Form2.LostFocus D) Call LostFocus
7．如果希望使窗体没有边框，应将其BorderStyle属性设为（ ）。 A) 0 B) 1 C) 2 D) 3 8．下列说法错误的是（ ）。
A) 在同一模块不同过程中的变量可以同名 B) 不同模块中定义的全局变量不可以同名
C) 引用另一模块中的全局变量时，必须在变量名前加模块名 D) 同一模块中不同级的变量可以同名
9．下列关于菜单的说法中，错误的是（ ）。
A) 除了Click事件之外，菜单项不能响应其他事件。
B) 每个菜单项都是一个控件，与其他控件一样也有其属性和事件。 C) 菜单项的索引号必须从1开始。 D) 菜单项的索引号可以不连续。
10．表达式8+2*3^2\\9/8-3 MOD 2 的结果是（ ）。 A) 22 B) 23 C) 24 D) 25
11．以下列（ ）方式打开一个不存在的文件时会产生错误。 A) Output B) Append C) Random D) Input 12．只能用来显示字符信息的控件是（ ）。 A) 文本框 B) 标签框 C) 图片框 D) 图像框 13．关于设置控件属性的叙述正确的是（ ）。
A) 用户必须重新设置属性的值，否则属性值为空。 B) 任何属性的值都可以由用户随意设置。
C) 属性值可以由用户设置，也可以使用系统的默认设置。 D) 属性值只能在属性窗口中设置。 14．下列（ ）是ReDim语句的作用。
A) 定义一个数组 B) 重定义一个可变数组 C) 清除一个数组的数据 D) 定义一个可变数组
15．若要设置文本框中所显示的文本颜色，使用的属性是（ ）。 A) BackColor B) FillColor C) ForeColor D) Backstyle
16．在某个循环中加入语句DoEvent的作用是（ ）。 A) 使循环停止等待其它事件的发生 B) 不允许其它事件打断此循环的执行
C) 循环等待一段时间后，继续执行
D) 如果有其它事件发生，去响应其它事件 17．在VB中，过程共有三种，它们是（ ）。 A) 事件过程，子过程和函数过程
B) Sub过程，Function过程和Property过程。 C) 事件过程，函数过程和属性过程。 D) Sub过程，函数过程和通用过程。
18．可以同时关掉所有打开文件的语句是（ ）。 A) Close All B) Close # C) Close D) 以上都不对 19．下列叙述中正确的是（ ）。
A) 在窗体的Form_Load事件过程中定义的变量是全局变量 B) 局部变量的作用域可以超出所定义的过程
C) 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D) 在调用过程时，所有局部变量被系统初始化为0或空字符串
20．代码段有时会在最上一行出现：Option Explicit，请问此句的作用是（ ）。 A) 表明此模块中的变量一律不用声明即可使用 B) 表明此模块中没有通用过程
C) 表明此模块内的变量必须先声明后使用
D) 表明此模块中的通用过程不能被其他模块调用 21．下列（ ）语句可以将变量A、B的值互换。 A) A=B : B=A
B) A=C : C=B : B=A
C) A=A+B : B=A-B : A=A-B D) A=(A+B)/2 : B=(A-B)/2
22．下列程序段的执行结果为（ ）。
x =Int(Rnd+4) Select Case x Case 5
Print “Excellent” Case 4
Print “Good” Case 3
Print “Pass” Case Else
Print “Fail”
End Select
A) Excellent B) Good C) Pass D) Fail
23．下列程序执行后，变量x的值为（ ）。
Dim a,b,c,d As Single Dim x As Single a=100 b=20 c=1000
If b>a Then
d=a：a=b：b=d End if
If b>c Then
x=b
Elseif a>c then x=c Else x=a
End if
A) 100 B) 20 C) 1000 D) 0
24．在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID AS Integer
Name As String*20
End Type
Private Sub Command1_Click()
Dim MaxSize,NextChar,MyChar
Open “d:\\temp\\female.txt” For Input As #1 MaxSize=LOF(1)
For NextChar=MaxSize to 1 Step -1 Seek #1,NextChar MyChar=Input(1,#1) Next NextChar Print EOF(1) Close #1 End Sub
程序运行后，单击命令按钮，其输出结果为（ ）。 A) True B) False C) 0 D) Null
25．在窗体上画出一个按钮Command1，其事件过程如下：
Private Sub Command1_Click() Static a As Integer a=8 a=a\\2 print a End Sub
当用户单击第三次按钮时，输出结果是（ ）。 A) 4 B) 2 C) 1 D) 0 26．下列程序段的执行结果为（ ）。 Dim A(10,10) For i=2 To 4 For j=4 To 5 A(i,j)=i*j Next j Next i
Print A(2,5)+A(3,4)+A(4,5)
A) 22 B) 42 C) 32 D) 52
27．若整型变量a的值为2，b的值为3，则下列程序段执行后整型变量c的值为（ ）。 If a>5 Then
If b<4 Then c=a-b Else c=b-a Else
If b>3 Then c=a*b Else c=a mod b End If
A) 2 B) -1 C) 1 D) 6 28．以下程序输出的结果为（ ）。 x=1 y=4
Do Until y>4 x=x*y y=y+1
Loop Print x
A) 4 B) 8 C) 12 D) 16 29．有如下函数过程：
Function gys(ByVal x As Integer, ByVal y As Integer) As Integer Do While y<>0 reminder=x Mod y x=y
y=reminder Loop gys=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是（ ）。 Private Sub Command1_C1ick() Dim a As Integer Dim b As Integer a=100 b=25
x=gys(a,b) Print x End Sub
A) 0 B) 2 C) 50 D) 100
30．单击命令按钮时，下列程序代码的执行结果为（ ）。
Public Function MyFunc (m As Integer, n As Integer)As Integer Do While m<>n Do While m>n m=m-n Loop
Do While m MyFunc=m End Function Private Sub Command1_Click() Print MyFunc(24,18) End Sub A) 2 B) 4 C) 6 D) 8 二、填空题（每空2分，共30分） 1．VB中的控件分为内部控件、ActiveX控件和 〖1〗 三类。 2．模块级变量的声明关键字是Dim或 〖2〗 。 3．若要使用户不能修改文本框TextBox1中内容，应设置Textbox1的 〖3〗 属性为True。 4．阅读下列程序： Private Sub Command1_Click() Dim intA As Integer, intB As Integer Dim bIsCheck As Boolean Dim strC As String intA=3: intB=8 strC=”hello” bIsCheck=False Print bIsCheck Or intA > intB And strC > ”world” End Sub 当用户单击Command1按钮时，窗体上输出 〖4〗 。 5．下列程序段的执行结果为 〖5〗 。 a=”abcdefghijk” For I=6 T0 2 Step -2 x=Mid(a,I,1) y=Left(a,1) z=Right(a,1) Z=x & y & Z Next I Print z 6．若命令按钮的名称为CmdExit，程序要求单击以上此命令按钮时，程序停止运行，请对以下事件过程填空。 Private Sub CmdExit_click() 〖6〗 End Sub 7．以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。 Dim arr(1 To 20) For i=1 to 20 arr(i)= 〖7〗 Next i Sum=0 For Each x In 〖8〗 If x>50 Then Print Tab(20);x Sum=Sum+x End if Next x Print Tab(20); ”Sum=”; Sum 8．下列程序实现了在窗体上画一个带有直径的圆。鼠标落处是直径开始，鼠标提处是直径结束。请填写空白处。 Dim intX As Integer Dim intY As Integer Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) intX=X intY=Y End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Line (intX,intY)-(X,Y) Circle ((intX+X)\\2, (intY+Y)\\2), 〖9〗 End Sub 9．在C盘当前文件夹下建立一个名为StuData.txt的顺序文件。要求用inputbox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。 Private Sub Form_Click() Open”C:StuData.txt” For Output As #1 For i=l to 5 StuNo=InputBox(“请输入学号”) StuName=InputBox(“请输入姓名”) StuEng=Val(InputBox(“请输入英语成绩”)) 〖10〗 Next i Close #1 End Sub 10．窗体中有图片框(Picture1)和计时器(Timer1)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向左、向右移动200twip,请填空。 Private Sub Form_Load() Picture1.picture=LoadPicture(“c:pic\\mouth.ico”) 〖11〗 .interval=2000 End Sub Private Sub Timer1_Timer() Static x, y As Integer x=x+200 y=y+200 Picture1. 〖12〗 End Sub 11．以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序,该程序运行结果见下图。 Private Sub Form_Click() Dim s(10,10) As Integer For n=1 To 10 For m=1To 10 If 〖13〗 or 〖14〗 Then s(n,m)=1