问答题

设有如下程序：
Private Sub Form_Click()
Dim i As Integer，x As String,Y As String
x=”ABCDEFG”
For i=4 To 1 Step-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()
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(j)=i+1
sum=sum+ary(i)
Next 1
Print sum
Eud Sub
程序运行后，单击窗体，则在窗体上显示的是

A.15
B．16
C．20
D．25

有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即
0，1，1，2，4，7，13，24，……
要求编写程序输出该数列中所有不超过1000的数。
某人编写程序如下：
Private Sub Form_Click()
Dim i As Integer，a As Integer，b As Integer
Dim C As Integer，d As Integer
a=0：b=1：c=1
d=a+b+C
i=5
While d<=1000
Print d；
a=b：b=C：C=d
d=a+b+c
i=i+1
Wend
End Sub
运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是
A．把While d<=1000改为While d>1000
B．把i=5改为i=4
C．把i=i+1移到While d<=1000的下面
D．在i=5的上面增加一个语句：Print a；b；c；

A.把While
B.把i=5改为i=4
C．把i=i+1移到While
C.在i=5的上面增加一个语句：Print