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