设有如下程序:
Private Sub Form Click( )
Dim i As Integer,x As String,y As String
x="ABCDEFG"
For i=4 To 1Step-1
y=Mid(X,i,i)+y
Next i
Print y
End Sub
程序运行后,单击窗体,输出结果为( )。
A.ABCCDEDEFG B.AABBCDEFG C.ABCDEFG D.AABBCCDDEEFFGG
参考答案:
答案解析:
假定有以下程序:Private Sub Form Click( ) a=1:b=a Do Until a>=5x=a
假定有以下程序:Private Sub Form Click( )a=1:b=aDo Until a>=5x=a*b Print b;Xa=a+b