在窗体上添加一个命令按钮，然后编写其单击事件过程为： For i=1 To 3 x=4 For j=1 To 4 x=3 For k=l To 2 x=x+5 Next k Next j Next i MsgBox x 则单击命令按钮后消息框的输出结果是( )。A．7B．8C．9D．13
题目
在窗体上添加一个命令按钮，然后编写其单击事件过程为： For i=1 To 3 x=4 For j=1 To 4 x=3 For k=l To 2 x=x+5 Next k Next j Next i MsgBox x 则单击命令按钮后消息框的输出结果是( )。
A．7
B．8
C．9
D．13
相似考题
更多“在窗体上添加一个命令按钮，然后编写其单击事件过程为： For i=1 To 3 x=4 For j=1 To 4 x=3 For k=l To 2 x=x+5 Next k Next j Next i MsgBox x 则单击命令按钮后消息框的输出结果是( )。A．7B．8C．9D．13”相关问题
-
第1题：
阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是
A．3
B．9
C．14
D．21
正确答案：C
解析：本题应用了三重嵌套循环：①i=1时，j=1，k执行3次循环得到x的值为3：②i=2，j=1时，k执行3次循环得到x的值加3并覆盖原值，j=2时，k执行两次循环值加2；③依次，i=3时，j执行3次，其中k分别执行为3，2，1次，x的值分别加3，2，1；④最后得到x的值为14。 -
第2题：
在窗体上添加一个命令按钮，名为Command1，其单击事件中有如下程序段，则事件过程执行后，文本框中输出( )。 For i= 1 To 4 For j = 1 To 3 x=3 For k =1 To 2 x=x+3 Next k Next j Next i TextText = Str(x)
A．3
B．6
C．9
D．12
正确答案：C
解析：本题是一个三重循环，我们依次分析循环过程，程序执行过程如下。①x=3，先执行第3层k控制的循环，k从1到2循环2次，x=x+3→ x=9 ②然后执行第2层j控制的循环，共3次，x=3 ③最后是第1层i控制的循环，共4次，x=9。 -
第3题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click () x=0 n=InputBox ("") For i=1 TO n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。
A．3
B．4
C．5
D．6
正确答案：D
解析：本题是一个简单的双重For-Next循环考题，这里需要注意的是，循环的终值都是由变量设置的。当步长大于。时，循环的初值与终值相等，仍然要执行一次循环；只有当循环变量大于终值的时候才跳出循环。x的值实际上等于循环执行的次数6。如果考生认为For i=1 To 1并不执行循环，则会认为选项C为答案。答案为D。 -
第4题：
在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下： Private Sub Commandl一Click（ ）Dim i，j，X For i=1 TO 20 step 2 X=0 For j=i TO 20 step 3 X=X+1 Next j Next i．Textl．Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框中显示的结果是（ ）。
A.1
B.7
C.17
D.400
正确答案：A
A。【解析】由于外层循环体中有语句x=0所以无论内循环结束时X为多少，它都将被重新赋值0，所以只有最后一次i=19，j=19此时x值为l，由于i的步长为2，21不符循环条件，退出整个循环。故文本框中的结果为l。 -
第5题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
For i＝1 To 4
x＝4
For j＝1 To 3
x＝3
Fork＝1 To 2
x＝x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是( )。
A．7
B．15
C．157
D．528
正确答案：B
解析：本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环问题就会迎刃而解。本题中，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把x的值置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，所以最后x＝3+6+6＝15。 -
第6题：
在窗体上画一个命令按钮，然后编写如下事件过程: Private Sub CommAnd1_Click() For i=1 To 4 x=0 For j=1 To 3 x=j For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮,输出结果是______ 。
A．7
B．15
C．157
D．538
正确答案：B
-
第7题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) For i =1 To 4 x=4 For j = 1 To 3 x=3 For k = 1 To 2 x=x+6 Next Next Next Print x End Sub 程序运行后，单击命令按钮，输出的结果是
A．7
B．15
C．157
D．538
正确答案：B
解析：本题的难点在于循环体外的变量初值问题。虽然该段程序中有3重循环，但仔细观测发现，x=3将前面的内容替代了，只剩下最内的结果，即3+6+6=15。 -
第8题：
在窗体上添加一个命令按钮，然后编写其单击事件过程为： Fori——lT0 3x=4Forj=l T04x=3Fork=-IT0 2x=x+5NextkNextjNextiMsgBoxX则单击命令按钮后消息框的输出结果是（ ）。
A.7
B.8
C.9
D.13
正确答案：D
暂无解析，请参考用户分享笔记 -
第9题：
在窗体上添加一个命令按钮，名为 command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为______。 For i = 1 To 3 For j = 1 To 3 For k = 1 To 2 x=x+ 3 Next k Next j Next i TextText =str (x)
A． 21
B．42
C．54
D．72
正确答案：C
-
第10题：
在窗体上添加按钮cmd，并编写如下事件代码： Private sub crud_Click( ) For i=1 to4 x=4 For j=1 to 3 x=3 For k=1 to 2 x=x+6 Next k Next j Next i Msgbox x End sub 打开窗体，单击按钮后，消息框中显示的信息为( )。
A．7
B．15
C．157
D．538
正确答案：B
解析：不管外层循环多少次，在执行最内层循环前x都会被赋值为3，所以x最后的值为 15。 -
第11题：
在窗体上添加一个命令按钮，然后编写其单击事件过程为：
For i＝1 To 3
x＝4
For j＝1 To 4
x＝3
For k＝1 To 2
x＝x+5
Next k
Next j
Next i
MsgBox x
则单击命令按钮后消息框的输出结果是( )。
A．7
B．8
C．9
D．13
正确答案：D
解析：本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题就迎刃而解了。比如这个例子，我们看到，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把x置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。分析程序得知内循环执行两次，所以最后的萨3+5+5＝13。 -
第12题：
（ 34 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是
A ） 7
B ） 15
C ） 157
D ） 538
正确答案：B
-
第13题：
在窗体上添加有一个命令按钮，(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next I MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 ______。
A．7
B．15
C．157
D．538
正确答案：B
解析：此题中应用三重嵌套循环，循环嵌套的执行，当外层循环执行一次，内层就要执行所有的循环：第一个for语句对变量x赋值，x=4：第二个for语句对变量x赋值，x=3：第三个for语句对变量x赋值，x=x+6。 i=1时，j=1，k执行其内部的两次循环，此时x赋值为3，当k=1时，x=x+6=3+6=9；k=2时，x=x+6=9+6=15。退出内循环到第二个for语句执行其剩余的循环，i=1，i=2时，k依旧执行其内部的两次循环，最后x还是等于15。i=1，i=3时，因为第三个for 语句始终对x的赋值为15，所以运算结果x始终等于15。第二层循环完成后退回到第一层，执行其剩余的循环，步骤问上，最后x=15。 -
第14题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0 n=InputBox(" ") For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
A．3
B．4
C．5
D．6
正确答案：D
解析：本题考查For循环控制语句的嵌套。当输入3时，For i执行三次，对应的Forj循环执行一次，二次、三次，Forj每执行一次，x都加1，故最终结果为6，选D。 -
第15题：
在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．0 3 7 5
B．0 1 2 3
C．3 2 4 5
D．0 5 8 3
正确答案：D
解析：数组也可以作为函数或者过程的参数，使用方法是直接使用数组名加括号，也可以直接使用数组名，采用sub1(x)和sub1(x())的调用形式都正确。变量i的作用只控制循环次数。 -
第16题：
在窗体上添加一个命令按钮，名为Command1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出( )。
For i=1 To 4
For j=1 To 3
x=3
For k=1 To 2
K=x+3
Next k
Next j
Next i
Text1.Text=Str(x)
A．3
B．6
C．9
D．12
正确答案：C
解析：这也是一个三重循环，依次分析循环过程，程序执行如下：x=3；先执行第3层k控制的循环：①k从1到2循环2次，x=x+3→x=9；②然后执行j控制的第2层j控制的循环，共3次，x=3；③第3层循环使得x=9；④最后是i控制的第1层i控制的循环，共4次，x=9。 -
第17题：
在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，则执行如下事件过程后，文本框中的输出为______。private Sub Command1_ click() for i = 1 To 4 for j = 1 To 3 x = 3 for K = 1 To 2 x=x+3 Next K Next j Next i Text1.Text= Str(x)End Sub
A．3
B．6
C．9
D．12
正确答案：C
解析：本题的难点是循环变量初值问题。x=3将前面的计算值替代了，实际计算过程为“x=3+3+3=9”。 -
第18题：
在窗体上添加一个命令按钮，然后编写其单击事件过程为： For i＝1 To 3 x＝4 For j＝1 To 4 x＝3 For k＝1 To 2 x＝x+5 Next k Next j Next i MsgBox x 则单击命令按钮后消息框的输出结果是( )。
A．7
B．8
C．9
D．13
正确答案：D
解析： 本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题就迎刃而解了。比如这个例子，我们看到，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把x置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后x＝3+5+5＝13。 -
第19题：
在窗体中添加一个命令按钮，然后编写如下代码： 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
正确答案：C
解析：本题由最外层的For循环语句逐一执行到最内层的Fork循环，x=x+6这一语句始终在Forj循环的基础上执行的，故x最终结果为3+6+6+6=21。 -
第20题：
在窗体上添加一个命令按钮(名为Commandl) ，然后编写如下事件过程： Private Sub Commandl_click() For i＝1 To 4 x＝4 For j＝1 To 3 x＝3 For k＝1 To 2 x＝x+6 Next k Next j Next i MsgBox x End Sub
A．7
B．15
C．157
D．528
正确答案：B
解析： 本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环，这种问题就迎刃而解了。本题中，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了：同理，中层循环每一次开始前都把x的值置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后x＝3+6+6＝15。 -
第21题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 X=4 For j=1 To 2 X=x+6 Next Next Print x End Sub 程序运行后，单击命令按钮，输出结果是
A．12
B．13
C．16
D．17
正确答案：C
解析：观察程序，由于每次执行外层循环时x都被重新赋值，因此只要看当i=4时，执行内循环所得到的结果就可以。 -
第22题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=l To 4 x=4 For j=1 To 3 x=3 Fork=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是( )。
A．7
B．15
C．157
D．528
正确答案：B
解析：本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环问题就会迎刃而解。本题中，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把x的值置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，所以最后 x=3+6+6=15。 -
第23题：
在窗体上画一个名称为Comillarldl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox(" ") For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。
A．3
B．4
C．5
D．6
正确答案：D
解析：本题是一个简单的双重For-Next循环考题，这里需要注意的是，循环的终值都是由变量设置的。当步长大于0时，循环的初值与终值相等，仍然要执行一次循环；只有当循环变量大于终值的时候才跳出循环。x的值实际上等于循环执行的次数6。如果考生认为Fori=1To1并不执行循环，则会认为选项C为答案。答案为D。