[单项选择题] 设有如下程序： Private Sub Form_Click() Dim i As Integer, x As String, y As S

[单项选择题] 设有如下程序：

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

A

本题同样是一个循环取出字符串的一部分问题。本题的循环变量是由大到小进行变化的，第一次循环取出字符串x的第4位开始的4个字符；第二次循环取出x的第3位开始开始的3个字符……以此类推。另外，要注意到在每次循环过程中都将取出的新子串插入到原有字符串的前面。