(26) 下面的程序的运行结果是
a=1
b=1
Do
a=a^2
b=b + 1
Loop Until b > 5
Print "k="; a; Spc(4) ; "b="; b + a
A) k＝7
b＝14
B) k＝6
b＝6
C) k＝4
b＝8
D) k＝1
b＝7
正确答案: D
(27) 单击命令按钮，下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=32: y=42
Call PCS(x, y)
Print x; y
End Sub
Public Sub PCS(Byval n As Integer, ByVal m As Integer)
n=n Mod 10+1
m=m Mod 10+1
End Sub
A) 32 42
B) 2 32
C) 2 3
D) 12 3
正确答案: A
(28) 下列程序的执行结果为
Private Sub Command1_Click()
Dim s1 As String, s2 As String
s1="abcd"
Call Transfer(s1, s2)
Print s2
End Sub
Private Sub Transfer (ByVal xstr As String, ystr As String)
Dim tempstr As String
i=Len(xstr)
Do While i >=1
tempstr=tempstr + Mid(xstr, i, 1)
i=i - 1
Loop
ystr=te mpstr
End Sub
A) dcba
B) abdc
C) abcd
D) dabc
正确答案: A
(29) 单击命令按钮，下列程序的执行结果是
Private Sub Blck(x As Integer)
x=x * 2 + 1
If x < 6 Then
Call Blck(x)
End If
x=x * 2 + 1
Print x;
End Sub
Private Sub Command1_Click()
Blck 2
End Sub
A) 23 47
B) 10 36
C) 22 44
D) 24 50
正确答案: A
(30) 有如下程序：
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print Gad (A)
Next i
End Sub
Function Gad (a As Integer)
b=0
Static c
b=b + 1
c=c + 1
Gad=a + b + c
End Function
运行上面的程序后，单击命令按钮，输出结果为
A)1
2
3
B) 2
3
4
C) 4
5
6
D) 1
4
6
正确答案: C
责任编辑：小草
