Else s(n,m)=0 End If Next m Next n
For n=1 To 10
For 〖15〗 Picture1.Print Tab(m*3);s (n,m); Next m Print Next n EndSub
全国计算机等级考试模拟试卷二
（考试时间 90分钟，满分100分）
一、选择题（第1-20题每题2分，第21-30题每题3分，共70分） 1．在VB中设计程序时，能自动被检查出来的错误是（ ）。 A) 语法错误 B) 语法错误和逻辑错误 C) 运行错误 D) 逻辑错误 2. 关于对象和类，描述错误的是（ ）。 A) 类是同类对象的抽象描述 B) 对象是由类创建的实例
C) 标准工具箱中的控件都是对象实例 D) 添加到窗体上的控件都是对象实例
3．一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了分别是（ ）。 A)对象，属性，事件，方法 B)对象，属性，方法，事件 C)属性，对象，方法，事件 D)属性，对象，事件，方法 4．下列（ ）语句可以使得窗体（Form1）变为最小化。 A) Form1.WindowState=1 B) Form1.WindowState=0 C) Form1.WindowStyle=1 D) Form1.WindowStyle=0 5．表达式：Str(Val(Mid(“23456”, 2, 3) & ”.5”))的值是（ ）。 A) 234 B) 345 C) 345.5 D) 346
6．如果要显示Visual Basic中的预定义输入对话框，需要调用Visual Basic提供的（ ）函数。 A) MsgBox B) Open C) Output D) InputBox
7．图像框中的stretch属性为true时，其作用是（ ）。 A) 只能自动设定图像框长度
B) 图形自动调整大小以适应图像控件 C) 只能自动缩小图像 D) 只能自动扩大图像
8．用Static关键字定义过程是指（ ）。 A) 声明过程名是静态的 B) 声明虚参是静态的
C) 声明函数过程的返回值是静态的 D) 声明过程中的局部变量是静态的
9．目录列表框的Path属性的作用是（ ）。 A) 显示根目录下的文件名 B) 显示路径下的文件
C) 显示当前驱动器或指定驱动器上的目录结构
D) 显示当前驱动器或指定驱动器上的某目录下的文件名
10．ScrollBars属性用来设置文本框是否含有滚动条，要设置该属性，（ ）属性的值必须设置为True。 A) Locked B) Multiline C) Hideselection D) Enabled
11．“X是小于100的非负数”， 用VB表达式表示正确的是（ ）。 A) 0≤X<100 B) 0<=X<100
C) X>=0 And X<100 D) 0<= x or X <100
12．若要将窗体从内存中卸载出去，应该使用的方法是（ ）。 A) Show B) UnLoad C) Load D) Hide 13．窗体的PopupMenu方法的作用是（ ）。
A) 窗体被最小化 B) 窗体最大化 C) 显示一个弹出式菜单 D) 显示一个信息框 14．有关过程调用的说法错误的是（ ）。
A) 传值方式的“形实结合”，形参的变化不会直接影响到实参 B) 传地址方式的“形实结合”，形参的变化会直接影响到实参 C) 形参和对应的实参可以同名，也可以不同名
D) 只有function过程能将数据带回调用过程，而sub过程不能
15．在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是（ ）。 A) 顺序输入方式 B) 顺序输出方式 C) 随机存取方式 D) 二进制方式 16．下列说法正确的是（ ）。
A) 数组的下标可以是非整型数值 B) 数组下标下界的默认值为１
C) 数组元素的下标小于下界或大于上界都会出现下标越界错误 D) 数组声明语句不会对数组进行初始化 17．Private定义的过程表示（ ） A) 可以被其它过程调用
B) 不可以被任何其它过程调用
C) 只可以被本工程中的其它过程调用
D) 只可以被本窗体模块中的其它过程调用
18．Sub过程与 Function过程最根本的区别是（ ）。
A) Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。 B) Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。 C) 两种过程参数的传递方式不同。
D) Function过程可以有参数，Sub过程不可以。
19．程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（ ）。 A) MouseDown B) MouseUp C) Load D) Click
20．关于多行结构条件语句的执行过程，正确的是（ ）。
A) 各个条件所对应的<语句序列>中，一定有一个<语句序列>被执行。
B) 找到<条件>为TRUE的第一个入口，便从此开始执行其后的所有<语句序列>。 C) 若有多个<条件>为TRUE，则它们对应的<语句序列>都被执行。
D) 多行选择结构中的<语句序列>，有可能任何一个<语句序列>都不被执行。 20．下列逻辑运算结果为“True”的是（ ）。
A) False Or Not True B) False And Not True C) True Or Not True D) True And Not True
21．在一个应用程序中，有两个窗体（分别是Form1，Form2），它们的代码段如下：
?Form1的代码段： Option Explicit
Private Sub Form_Activate() Form2.Show End Sub
?Form2的代码段： Option Explicit
Private Sub Form_Activate() Form1.SetFocus End Sub
当程序被运行时，其效果（ ）。
A) Form1成为当前窗体 B) Form2成为当前窗体 C) 程序在Form1和Form2之间不断的切换 D) 此程序不能运行
22．执行以下程序段后，整型变量C的值为_________ a=24 b=328
Select case b\\10 Case 0
c=a*10+b Case 1 to 9 c=a*100+b Case 10 to 99 c=a*1000+b
End Select A) 537 B) 2427 C) 240328 D) 24328 23．阅读下列程序：
Private Sub Command1_Click()
Dim strS1 As String,strS2 As String
StrS1=InputBox(“Please input the first Sting”, ”INPUT”, ” ”) StrS2=InputBox(“Please input the Second Sting”, ”INPUT”, ” ”) If InStr(strS1,strS2) Then Print “China”; End If
Print “France” End Sub
用户在单击Command1命令按钮后，依次输入：”abcdefg” 和”def”，其输出结果是（ ）。 A) China B) France
C) 没有输出 D) ChinaFrance
24．执行下列程序段时，分别在输入框中输入2、4、6，则执行结果是（ ） Dim A(4) As Integer Dim B(4) As Integer For i=0 To 2
A(i+1)=Val(InputBox(“请输入数据”)) B(3-i)=A(i+1) Next i Print B(i)
A) 2 B) 4 C) 6 D) 8
25．单击一次命令按钮之后，下列程序代码的执行结果为（ ）。 Public Sub Proc ( a () As Integer) Static i As Integer Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i<2 End Sub
Private Sub Command1_Click() Dim m As Integer Dim i As Integer Dim x(10) As Integer For i= 0 To 4 x(i)=i+1 Next i
For i=1 To 2 Call Proc(x) Next i
For i=0 To 4 Print x(i); Next i End Sub
A) 13 4 7 5 6 B) 4 5 9 4 5 C) l 2 3 4 5 D) 1 2 3 5 7 26．编写如下事件过程：
Private Sub Form_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single) If Shift=6 And Button=2 Then Print “Hello” End If
End Sub
程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下（ ）操作。 A) 同时按下Shlft键和鼠标左按钮 B) 同时按下Shift键和鼠标右按钮
C) 同时按下Ctrl、A1t键和鼠标左按钮 D) 同时按下Ctrl、A1t键和鼠标右按钮 27．阅读下列过程：
Private Function Sum() Dim intI As Integer Dim intS As Integer IntS=0
For intI=1 to 100
If intI Mod 3=0 Then IntS=intS+intI End If Next intI Sum=intS End Function
以上过程的功能可以描述为（ ）。
A) 计算1~100的和 B) 计算1~100中所有3的倍数的和
C) 计算1~100中所有奇数的和 D) 计算1~100中所有不是3的倍数的和 28．下列程序实现了：当用户按下Ctrl+A键后，选择文本框中的所有文本。
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
If Shift=2 Then
If =”A” Then
Text1.SelStart= Text1.SelLength=Len(Text1) End If End If End Sub
则空白处的子句分别是（ ）。
A) Chr(KeyCode)和1 B) KeyCode和0
C) KeyCode和1 D) Chr(KeyCode)和0
29．在一个窗体上添加一命令按纽控件，名为Command1，事件过程如下，则该过程的执行结果为（ ）。
Option base 1
Private Sub Command1_Click() Dim a(5) As Integer Dim k As Integer Dim total As Integer a(1)=2 a(2)=5 a(3)=4 a(4)=10 a(5)=6
For k= 1 To 5 Total=total+a(k) Next k Print total End Sub
A) 10 B) 15 C) 27 D) 35 30．有如下的一个函数过程：
Function fn(ByVal num As Long) Dim k As Long k=1
num=Abs(num) Do While num
K=k*(num Mod 10) num=num\\10 Loop fn=k
End Function
以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框输入数字“123”，该过程的运行结果是（ ）。
Private Sub Command5_Click() Dim n As Long Dim r As Long
n=InputBox(“请输入一个数值”) n=CLng(n) r=fn(n) Print r End Sub
A) 12 B) 6 C) 3 D) 1 二、填空题（每空2分，共30分）
1．从形式上分类，VB有 〖1〗 和悬浮式两种工具栏。
2．单击命令按钮之后，下列程序代码的执行结果为 〖2〗 。 Private Function f(x as integer) Static s For i=1 to x s=s+i Next f=s
End Function
Private Sub Command1_Click() s=f(1)+f(2)+f(3)+f(4) Print s End Sub