1．在過程定義中用 ________表示形參的傳值。
A）Var
B）ByDef
C）ByVal
D）ByValue
2．若已經(jīng)編寫一個(gè)Sort子過程，在該工程中有多個(gè)窗體，為了方便調(diào)用Sort子程序，應(yīng)該將子過程放在 ________中。
A）窗體模塊
B）類模塊
C）工程
D）標(biāo)準(zhǔn)模塊
3．下面的子過程語句說明合法的是________。
A）Sub f1(ByVal n%()）
B）Sub f1(n%）As Integer
C）Function f1%(f1%）
D）Function f1(ByVal n%)
4．要想從子過程調(diào)用后返回兩個(gè)結(jié)果，下面子過程語句說明合法的是________。
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!
則下列調(diào)用語句中正確的是________。
A）fsum a,a,b
B）fsum 2,3,4
C）fsum a+b,a,b
D）Call fsum (c,a,b)
6．有如下程序，其運(yùn)行的結(jié)果是________。
Public Function f(m%,n%)
Do While m<>n
Do while m>n : m=m-n : Loop
Do while m Loop
F=m
End Function
Private Sub Command1_Click( )
Print f(24,18)
End Sub
A)0
B)2
C)3
D)6
7．假定有如下的Sub過程：
Sub S(x As Single,y As Single)
t = x
x =t/y
y =t Mod y
End Sub
在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：
Private Sub Commandl_Click ( )
Dim a As Single
Dim b As Single
a =5
b =4
S a,b
Print a,b
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為________。
A）5 4
B）1 1
C ）1.25 4
D）1.25 1
8．下面的程序運(yùn)行結(jié)果是 ________。
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．下面的程序運(yùn)行結(jié)果是 ________。
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．下面的程序運(yùn)行結(jié)果是 ________。
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
11．下面的程序運(yùn)行結(jié)果是 ________。
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
運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為________。
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