2012年计算机二级VB考前预测选择题及答案（6）
1．在过程定义中用 ________表示形参的传值。A）Var
B）ByDef
C）ByVal
D）ByValue
2．若已经编写一个Sort子过程，在该工程中有多个窗体，为了方便调用Sort子程序，应该将子过程放在 ________中。
A）窗体模块
B）类模块
C）工程
D）标准模块
3．下面的子过程语句说明合法的是________。
A）Sub f1(ByVal n%()）
B）Sub f1(n%）As Integer
C）Function f1%(f1%）
D）Function f1(ByVal n%)
4．要想从子过程调用后返回两个结果，下面子过程语句说明合法的是________。
A）Sub f(ByVal n%, ByVal m%）
B）Sub f(n%, ByVal m%)
C）Sub f(ByVal n%, m%）
D）Sub f(n%, m%)
5．有子过程语句说明：Sub fSum(sum%,ByVal m%,ByVal n%)
且在事件过程中有如下变量说明：Dim a%,b%,c!
则下列调用语句中正确的是________。
A）fsum a,a,b
B）fsum 2,3,4
C）fsum a+b,a,b
D）Call fsum (c,a,b)
6．有如下程序，其运行的结果是________。
Public Function f(m%,n%)
Do While mn
Do while m>n : m=m-n : Loop
Do while m
2012年计算机二级VB考前预测选择题及答案（6）
8．下面的程序运行结果是 ________。Private Sub Command1_Click(） Public Sub f1(n%,ByVal m%)
Dim x%, y% n = n Mod 10
x = 12 : y = 34 m = m \ 10
Call f(x,y） End Sub
Print x,y
End Sub
A） 2 34
B）12 34
C ） 2 3
D）12 3
9．下面的程序运行结果是 ________。
Private Sub Command1_Click(）
Print p1(3,7）
End sub
Public Function p1!(x!, n%)
If n = 0 Then
p1 = 1
Else
If n Mod 2 = 1 Then
p1 = x * p1(x, n\2）
else
p1 = p1(x, n\2）\ x
End if
End if
End Function
A） 18
B） 7
C ） 14
D）27
10．下面的程序运行结果是 ________。
Dim a% , b% , c%
Public Sub p1(x%, y%)
Dim c%
x = 2 * x : y = y + 2 : c = x + y
End Sub
Public Sub p2(x%, ByVal y%)
Dim c%
x = 2 * x : y = y + 2 : c = x + y
End Sub
Private Sub Command1_Click(）
a = 2 : b = 4 : c = 6
Call p1(a, b)
Print “a = ”；a ；“b = ”；b ； “c = ”；c
Call p2(a, b)
Print “a = ”；a ；“b = ”；b ； “c = ”；c
End sub
A） a = 2 b = 4 c = 6
a = 4 b = 6 c = 10
B）a = 4 b = 6 c = 10
a = 8 b = 8 c = 16
C） a = 4 b = 6 c = 6
a = 8 b = 6 c = 6
D）a = 4 b = 6 c = 14
a = 8 b = 8 c = 6
2012年计算机二级VB考前预测选择题及答案（6）
11．下面的程序运行结果是 ________。Public Sub Proc(a%())
Static i%
Do
a(i）= a(i）+ a(i+1)
i = i + 1
Loop While i < 2
End Sub
Private Command1_click()
Dim m% , i% , x%(）
Redim x%()
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） 3 4 7 5 6
B） 3 5 7 4 5
C） 2 3 4 4 5
D） 4 5 6 7 8
12．阅读程序：
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End Function
Private Sub Commandl_Click ()
Dim a As Integer
a =2
For i =1 To 3
Print F(a);
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为________。
A）4 4 4
B）4 5 6
C ）4 6 8 D）4 7
参考答案
1
2
3
4
5
6
7
8
9
10
C
D
C
D
A
D
D
A
D
C
11
12
B
B
页:
[1]