计算机二级
在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是A．7B．15C．21D．538
题目
在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是
A．7
B．15
C．21
D．538
相似问题和答案
第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题：
在窗体中添加一个名称为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
解析：本题考查VBA中循环和取子串函数的知识。在VBA中有3种取子串函数：Left函数用于从字符串左端开始取n个字符；Right函数用于从字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数实现在任何位置取任何长度的子串。在本题中由于循环每次都会给x、y。z重新赋值，所以只有最后一次循环才有意义。最后一次循环时i=2，则x为BA，y为AB，z为BA。
第4题：
在窗体中添加一个命令按钮(名称为Commandl)，然后编写如下代码：
窗体打开运行后，三次单击命令按钮后，变量b的值是（ ）。
A. 1
B. 2
C. 3
D. 4
本题考查静态变量的知识。使用Static定义的变量称为静态变量，这"变量不同于局部变量．每次调用过程的时候不会重新声明和初始化该变量，变最中仍然保留上次调用结束时的值。在本题中，第一次调用b的值变为1，第二次调用b的值变为2，第三次调用b的值变为3。
第5题：
在窗体中添加一个名称为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。
第6题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：
Pfivme Sub f(ByVal x As Integer)
x＝x+4
End Sub
Pfivate Sub Commandl_Click()
i＝3
Call f(i)
Ifi>4 Then i＝i*2
MsgBOx I
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
3 解析： 本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVal声明了形参x，说明为传值调用，此时对x的任何更改不会影响调用它的实参i，所以执行完Call f(i) 这条语句后i的值不变仍为 3，当然也不满足If语句的条件，故此最后输出结果为3。
第7题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码；PrivateSubCommand1_Click()s="ABBACDDCAB"Fori=6To2Step-2x=Mid(s,i,i)y=LeR(s,i)z=Right(s,i)z=x&y&zNextiMsgBoxzEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是______。
A．AABAAB
B．ABBABA
C．BABBA
D．BBABBA
第8题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub f(ByVal x As Integer)
x=x+4
End Sub
Private Sub Command1_Click()
i=3
Call f(i)
If i＞4 Then i=i*2
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
3 解析： 本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVal声明了形参x，说明为传值调用，此时对x的任何更改不会影响调用它的实参i，所以执行完callf(i)这条语句后i的值不变仍为3，当然也不满足If语句的条件，故此最后输出结果为3。
第9题：
在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub f(ByVa1 x As Integer)
x=x+4
End Sub
Private Sub Command1_Click()
i=3
Call f(1)
If i＞4 Then i=i*2
MsgBox i
End Sub
打开窗体运行后，单击命令按钮，则消息框的输出结果为______。
3 解析：本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVa1声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用：没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVa1声明了形参x，说明为传值调用，此时对x的任何更改不会影响调用它的实参i，所以执行完Call f(i)这条语句后i的值不变仍为3，当然也不满足If语句的条件，故此最后输出结果为3。