(31) 有如下程序段：
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print G(A．
Next i
End Sub
Function G(a As Integer)
b=0
Static c
b=b + 1
c=c + 1
G=a + b + c
End Function
运行上面的程序后，单击命令按钮，输出结果为
A．1 2 3 
B．2 3 4
C．4 5 6 
D．1 4 6
正确答案: C (32) 单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click()
Print MyBM(23, 18)
End Sub
Public Function MyBM(m As Integer, n As Integer) As Integer
Do While m <> n
Do While m > n: m=m - n: Loop
Do While m < n: n=n - m: Loop
Loop
MyBM=m
End Function
A．0 
B．1
C．3 
D．5
正确答案: B

(33) 有如下的程序：
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim P As Integer
k=4: m=1
P=Pid(k, m) : Print P;
P=Pid(k, m) : Print P
End Sub
Private Function Pid(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=5: i=2
i=i + m + 1
m=i + a + b
Pid=m ＼ 2
End Function
单击命令按钮后，输出结果为
A．2 2 
B．4 4
C．55 
D．6 6
正确答案: D

(34) 下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是
A．Function CT(ByVal a As Integer) 
If a Mod 2=0 Then 
Return 0 
Else 
Return 1 
End if 
End Function
B．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
CT=0
Else
CT=1
End if 
End Function
C．Function CT(ByVal a As Integer) 
If a Mod 2=0 Then 
CT=1 
Else 
CT=0 
End if 
End Function 
D．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
Return 1
Else
Return 0
End if
End Function
考生答案: 正确答案: B

(35) 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim m As Integer, n As Integer, p As Integer
m=3: n=5: p=0
Call Y(m, n, p)
Print Str(p)
End Sub
Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)
k=i + j
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．4 
B．6
C．8 
D．10
正确答案: C

[1] [2] [3] [4] [5] [6]