问题
单项选择题
在窗体中添加一个名称为C1的命令按钮，然后编写如下事件代码：
Private Sub C1_Click()
str=“ABAABAAABABBA”
For i=6 To 2 Step-2
x=Mid(str，i，i)
y=Left(str,，i)
z=Right(str，i)
Next i
Msg Box x&y&z
End Sub
单击命令按钮，则消息框的输出结果是( )。
A．ABBAAB
B．ABBABA
C．BABABA
D．BAABBA
答案
参考答案：D
解析： 本题考查VBA中循环和取子串函数的知识。在VBA中有3种取子串函数：Left函数用于从字符串左端开始取n个字符；Right函数用于从字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数实现在任何位置取任何长度的子串。在本题中由于循环每次都会给x、y。z重新赋值，所以只有最后一次循环才有意义。最后一次循环时i=2，则x为BA，y为AB，z为BA。