(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