单选题设有如下程序：
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

【答案解析】[解析] 本题考查Mid函数的用法，Mid(字符串，开始位置，n)表示从开始位置处截取指定个数的字符。并将每次截取的字符串连接在原字符串的前面(请注意是y=Mid(x,i,i)+y而不是y=y+Mid(x,i,i))。i=4时，y="DEFG"；i=3时，y="CDEDEFG"；i=2时，y="BCCDEDEFG"；i=1时，y="ABCCDEFG"。