(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

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