在窗体上中一个命令按钮Command1，编写如下事件代码： Private Sub

问题单项选择题

在窗体上中一个命令按钮Command1，编写如下事件代码：
Private Sub Command1_Click()
S="ABBACDDCBA"
For i=6 To 2 Step-2
x=Mid(s,i,i)
y=Left(s,i)
z=Right(s,i)
z=x&y&z
Next i
MsgBox z
End Sub
运行窗体后，单击命令按钮，则消息框输出的结果是( )。

A．AABAAB

B．ABBABA

C．BABBAB

D．BBABBA

答案

参考答案：D

解析：在VBA中包含3种取子串函数，①Left()函数表示在字符串左端开始取n个字符；②Right()函数表示在字符串右端开始取n个字符，并且子串中字符的顺序与母串相同；③Mid()函数表示在任意位置取任意长度的子串。本题中每次循环都会为z赋一个新值R[ght(s,i)，所以在最后一次循环中z才有意义，最后当i=2时，选项D正确。