计算机二级
在窗体中添加一个名称为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．ABBAABB．ABBABAC．BABABAD．BAABBA
题目
在窗体中添加一个名称为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
相似问题和答案
第1题：
在窗体中添加一个名称为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
解析：本题考查VBA中循环和取子串函数的知识。在VBA中有3种取子串函数：Left函数用于从字符串左端开始取n个字符；Right函数用于从字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数实现在任何位置取任何长度的子串。在本题中由于循环每次都会给x、y、z重新赋值，所以只有最后一次循环才有意义。最后一次循环时i＝2，则x为BA，y为AB，z为BA。
第2题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。
A)1
B)2
C)3
D)4
本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=1；然后再判断75不小予70，所以不执行x=2；再接着判断75小于80，所以执行x=3；最后判断75小于90，所以执行x=4。最后消息框里输出的x值为4。
第3题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Pfivate Sub Command 1 Click（ ）
窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。
A. 1
B. 2
C. 3
D. 4
本题考查条件语句的知识。在 If．．．Then…Elself．．．语句中，当某一个条件满足时，将会执行Then后面的语句，并且随后退出条件分支。在本题中，a=75满足第一个条件“a>60”．将执行Then后的语句。将1赋值给变量g，然后结束条件判断。最后将g的值l输出到消息框，所以消息框的输出结果是1。
第4题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。
A. 1
B. 2
C. 3
D. 4
本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=1；然后再判断75不小于70，所以不执行x=2；再接着判断75小于80，所以执行x=3：最后判断75小于90，所以执行x=4。最后消息框里输出的X值为4。
第5题：
在窗体中添加～个名称为Commandl的命令按钮，然后编写如下事件代码：
窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。
A. 1
B. 2
C. 3
D. 4
本题考查条件语句的基础知识。If．．．Then语句的特点是每当条件表达式为真时执行Then后面的语句序列，在本题中，A=75，首先判断A>60是否为真，由于满足条件，所以I的值为1，然后判断A>70是否为真，由于还是满足条件，所以l的值又被赋为2，后面的两个条件均不满足，所以最终I的值为2。
第6题：
在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是__________。
30【解析】本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题，使用了二重循环为二维数组进行了部分赋值，最后求两个数组元素值并求和，注意这两个元素是否已被赋值，若没有赋值则为0。本题中对于a(2，3)赋值为2*3也就是6，a(4，6)赋值为4*6也就是24，最后的结果为6 24=30。
第7题：
在窗体中添加一个名称为Coml的命令按钮，然后编写如下程序：
3【解析】本题考查VBA程序的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用，此时形参的变化不会返回到实参；若用ByRef声明，说明此参数为传址调用，此时形参的变化将会返回到实参；没有说明传递类型，则默认为传址传递。此题中形参P被说明为ByVal传值形式的整型量，当运行Cornl-click过程时调用s函数，实参i传送其值给形参P，P发生变化p=p*2=3*2=6。但因为使用的是ByVal传值传递，所以实参i的值不发生变化，if语句中的判断条件为假，所以会直接执行MsgBox i语句后输出3。
第8题：
在窗体中添加一个名称为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
A．ABBAAB
B．ABBABA
C．BABABA
D．BAABBA
解析： 本题考查VBA中循环和取子串函数的知识。在VBA中有三种取子串函数：Left函数用于在字符串左端开始取n个字符；Rjsht函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串。在本题中由于循环每次都会给x、y、z重新赋值，所以只有最后一次循环才有意义。最后一次循环时i＝2，则x为BA，y为AB，z为BA。
第9题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
36