在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击命令按钮，如果在输入对话框中输入3，则在窗体上显示的内容是（）。 Private Sub Command1_Click（) Dim i%, j%, x%, n% x = 0 n = InputBox（"Input") For i = 1 To n For j = 1 To i x = x + j Next j Next i Print x End SubA．6B．10C．14D．18
题目
在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击命令按钮，如果在输入对话框中输入3，则在窗体上显示的内容是（）。 Private Sub Command1_Click（) Dim i%, j%, x%, n% x = 0 n = InputBox（"Input") For i = 1 To n For j = 1 To i x = x + j Next j Next i Print x End Sub
A．6
B．10
C．14
D．18
相似考题
更多“在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击命令按钮，如果在输入对话框中输入3，则在窗体上显示的内容是（）。 Private Sub Command1_Click（) Dim i%, j%, x%, n% x = 0 n = InputBox（"Input") For i = 1 To n For j = 1 To i x = x + j Next j Next i Print x End Sub”相关问题
-
第1题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a = 2 For i=1 To 3 Call funl(i，A)Next i x = i + 2 Print x；a End Sub Private Sub fun1(n，m) m=m + n * 2 n = n + m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．1 5
B．4 5
C．8 4
D．3 4
正确答案：C
解析：在本题中，由于两个形参都没有指明用哪种方式进行参数传送，按VisualBasic规定，在默认的情况下，变量的数据传送按传址方式进行。当第一次调用fun1过程时，循环变量i将1传给形参n，变量a将2传给形参m。经计算后，变量m和n值分别为4和5。返回被调过程后，变量i和a的值分别为5和4。经过“Nexti”语句后，循环变量i加了步长得6，大于终值3，退出循环，所以变量x=6+2=8。值得注意的是：在函数的调用过程中，不要使用循环变量作为实参，否则会产生意想不到的结果。 -
第2题：
阅读下面的程序： 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。 -
第3题：
在窗体上添加有一个命令按钮，(名为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。 -
第4题：
有如下事件过程： Private Sub Form. Click（ ） Dim n As Integcr x=0 n=InputBox("请输入一个整数") For i=1 To i for j =1 To j x=x+1 Next j Next i Print x End sub 程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。
A.13
B.14
C.15
D.16
正确答案：C
C。【解析】本题考查嵌套for循环语句，因为n=5，所以外层循环执行5次，内层循环为1～i次，所以循环体x=x+1共执行1+2+3+4+5=15次，故答案为C。 -
第5题：
在窗体上画一个名称为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的作用只控制循环次数。 -
第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题：
在窗体上添加一个按纽，名为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 + 5 Next k Next j Next i Print x End Sub
A．13
B．26
C．30
D．40
正确答案：A
-
第9题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x(5)As String Dim n AS Integer For n ： 4 TO 0 Step -1 x(n)= n + 1 Print x(n)； Next n End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．54321
B．4
C．54321
D．0
正确答案：A
解析：本题针对输出格式的问题。因字符串没有正负号，所以输出的字符之间没有空格；而数字有正负号，输出的字符之间应有空格。数组x被定义为字符串型变量，n+1的计算结果自动转换成字符串赋给x(n)，所以输出的字符之间是没有空格的。 -
第10题：
在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程： Private Sub C1_Click() a=0 n=InputBox("") For i=1 To n For j=1 To i a=a+1 Next j Next i Print a End Sub 程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是( )。
A．5
B．6
C．9
D．10
正确答案：D
-
第11题：
在窗体上添加按钮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。 -
第12题：
在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程： Private Sub C1 Click() a=0 n=InputBox(” ”) For i=l To n For j=1 To i a=a+1 Next j Next i Print a End Sub 程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是( )。
A．5
B．6
C．9
D．10
正确答案：D
解析：本题考查VBA程序设计中的循环知识。在本题的程序中，每次循环a都会加1，所以关键问题就是循环共执行多少次。我们已知外循环共执行4次，每次外循环中内循环都执行i次，则内循环共执行的次数为1+2+3+4=10次。 -
第13题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim in As Integer，n As Integer，p As Integer m=3:n=5:p=0 Call Y(m,n,p) Print Str(p) End Sub Sub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．4
B．6
C．8
D．10
正确答案：C
解析：[命题目的] 考查考生对调用通用过程中参数传递方式的掌握情况。
[解题要点] 此程序考查了函数的调用，函数过程有3个形参，功能是将第1个与第2个形参的和赋给第3个形参，其中前两个形参是按值传递，不会影响实参的数值，即在调用函数过程的过程中，不改变实参的数值；而第3个形参是按址传递，传递的是实参的地址，这样实参会随着过程中形参的变化而变化，即改变实参的数值。在主调过程中定义了3个整型变量，分别赋值3、5、0，调用过程后m、n的数值仍然是3、5，而p的值不再是0，变为8，即m、n的和，这也是被调函数的作用。
[错解分析] 参数按传值方式传递时，不改变实参中的值；按传地址的方式传递时，实参和形参指向同一个存储地址，所以实参指向的内容被改变。
[考点链接] 参数传递方式的概念和应用。 -
第14题：
在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_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 Text1.Value=Str(x) End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是( )。
A．1
B．7
C．17
D．400
正确答案：A
-
第15题：
在窗体上画一个名称为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。 -
第16题：
在窗体上画一个名称为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。 -
第17题：
在窗体上有一个命令按钮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。 -
第18题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() For i=1 To 2 For j=1 To i Print String(i,"Hello") Next j Print Next i End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．H HH HH
B．H HHHH
C．HHHHH HH HHHH
D．H
正确答案：A
解析：分析程序，程序开始循环时i=1，j=1to1，PrintString(i,"Hello")语句输出一个H，然后执行Print进行换行；当i=2时，j=1to2,PrintString(i,"Hello")语句精出两行分别为两个HH，然后执行Print换行；当i=3时，退出循环。 -
第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 Command1_Click() Dim n As Integer For n = 0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function rel(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then rel = i： EXit Function x = x + i Next i rel = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是
A．1 3 5 7
B．2 8 14 53
C．0 3 21 45
D．0 5 11 34
正确答案：C
解析：ExitFunction的功能是立即终止函数的运行并回到调用函数的地方继续执行其他语句。在Function过程的任何位置都可以设置ExitFunction语句。变量n传值为0、3、6、9，4次调用rel函数过程，由于0和3都小于5，使得i5不成立，被执行了“ExitFunction”语句，函数名将0和3返回。而6和9没有使得i5成立，变量x的计算结果分别为21和45，也被函数名返回。 -
第21题：
设有如下通用过程： Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Integer,n AsInteger For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是( )。
A．30
B．25
C．20
D．15
正确答案：A
-
第22题：
在窗体上画一个名称为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
解析：变量x的功能为计算循环的次数。对于双重循环，如果“i=1 to n”和“j=1 to n”，则循环次数为n×n；如果“i=1 to n”和“j=1 to i”，循环次数为(1+n)×n/2。本题的循环次数为(1+3)×3/2=6。 -
第23题：
在窗体上添加一个命令按钮(名为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。 -
第24题：
在窗体上画一个名称为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。