在窗体中添加一个名称为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

MsgBox 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。