在窗体上画一个名称为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．3B．4C．5D．6

题目

在窗体上画一个名称为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

相似考题

1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。A．5B．120C．153D．160

2.（16）在窗体上画一个命令按钮，其名称为Commandl.程序运行后，单击命令按钮，输出结果是 Private Sub p1(n As Integer) For i=n To 1 Step -1 x=String(i,"*") Print x Next i End Sub Private Sub Commandl_Click() P1(3) End SubA.*** ** *B.* ** ***C.* * *D.******

3.在窗体上画一外名称Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click( )x=0n=InputBox(" ")For i = 1 To nFor j = 1 To ix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是【 】。

4.设有如下通用过程： Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程： Private Sub Commandl_Click() Dim arr(5)As Integer,n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是______。A． 30B．25C．20D．15

参考答案和解析
正确答案：D
解析：本题考查For循环控制语句的嵌套。当输入3时，For i执行三次，对应的Forj循环执行一次，二次、三次，Forj每执行一次，x都加1，故最终结果为6，选D。
更多“在窗体上画一个名称为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．3B．4C．5D．6”相关问题

  • 第1题：

    在窗体中画一个命令按钮，然后编写以下时间过程： Private Sub Command1_Click() For i=1 To 4 x=1 For j=1 To 3 x=2 For k=1 To 2 x= x+6 Next k Next j Next i Print x End Sub程序运行后，单击命令按钮，输出结果是______。

    A．2

    B．7

    C．14

    D．37


    正确答案：C

  • 第2题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Prirate Sub Command1_Click() s = 0 For i=1 To 13 x = i * i-1 If x Mod 3 = 0 Then s = s + 1 Next i Print s End Sub 程序运行后，单击命令按钮，则窗体中显示的内容是

    A．1

    B．5

    C．27

    D．45


    正确答案：B
    解析：在程序的运算过程中，变量x的值为0、3、8、15、24、35、48等数，其中满足“xMod3=0”条件的有0、3、15、24、48，所以循环结束后s=5。

  • 第3题：

    设有如下通用过程： Public Sub Fun(a()， ByVal x As Integer) For i=1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Commandl Click() Dim arr(5) As Variant For i=1 To 5 arr(i) =i Next n = 10 Call Fun(arr()， n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是

    A．10

    B．15

    C．25

    D．24


    正确答案：A
    解析：本题主要考查传值与传地址的区别。Fun过程中参数a()的传送方式为传地址，参数x的传送方式为传值。当在Command1的Click事件过程调用该过程时，变量仅仅复制了一个变量副本传送给Fun过程，而它自己本身并没有发生变化．所以当调用完毕Fun过程后，再将n值赋给Textl的Text属性时，文本框中显示的内容仍为10。正确答案为A。

  • 第4题：

    在窗体上面一个名称为Commandl的命令按钮，然后编写如下程序： Option.Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4，5) Sum = 0 For i = 1 To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i) ＞x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是

    A．1 2

    B．1 2 3

    C．3 4 5

    D．4 5


    正确答案：D
    解析：本题主要考查考生对程序代码的阅读理解能力。用Array函数为数组a(5)赋值，其元素分别为1、2、3、4、5。第一个For i循环把a(i)数组中的元素逐个加到变量Sum上，然后求出Sum浮点除5的结果(为3)，赋值给变量x。第二个Fori循环表示当a(i)大于3时，则用Print语句输出该元素。据此，正确答案为D。

  • 第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题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Dption Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10, 12, 21, 32, 24) For i=1 To 5 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。

    A．89

    B．99

    C．23

    D．77


    正确答案：C
    解析：在5次循环中，变量c的计算为10、10、12、21、32、32，变量d的计算为0、-10、2、23、55、23。本题要注意的是关系表达式“x(i)＞c”中的C值是变化的。

  • 第7题：

    在窗体上画一个命令按钮，名称为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时，退出循环。

  • 第8题：

    在窗体中添加一个命令按钮，然后编写如下代码： 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。

  • 第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题：

    在窗体上画一个命令按钮，然后编写如下事件过程： 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时，执行内循环所得到的结果就可以。

  • 第11题：

    在窗体上画一个名称为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次。

  • 第12题：

    在窗体上画一个名称为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。

  • 第13题：

    在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(4)As Integer, x As Integer, sum As Integer n = 4: sum = 0 a (1) = 1 For k = 0 To n - 1 For i = 1 To k + 1 x = k + 2 - i a(x)= a(x)+ a(x - 1) If x ＜ n - k Then Exit For sum = sum + a(x) Next i Next k Print sum End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

    A．5

    B．6

    C．8

    D．11


    正确答案：D
    解析：上述程序在双层循环内有一个判断条件，分析其计算过程时比较麻烦，读者要仔细分析。变量x的计算过程为：x=1、2、3、2、1、4、3、2、1，表达式n-k的计算过程为：n-k=4、3、2、2、2、1、1、1、1。其中有14、23、21这些条件成立时跳出内部循环，其他内循环都将数组元素值相加起来，即sum=1+2+1+3+3+1=11。

  • 第14题：

    在窗体上画一个名称为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。值得注意的是：在函数的调用过程中，不要使用循环变量作为实参，否则会产生意想不到的结果。

  • 第15题：

    有如下事件过程： 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。

  • 第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题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1，2，3，4，5) Sum=0 For i=1To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)>x Then Print a(i)； Next i End Sub程序运行后，单击命令按钮，在窗体上显示的内容是

    A．1 2

    B．1 2 3

    C．3 4 5

    D．4 5


    正确答案：D
    解析：此题中第一个For循环是将数组中所有元素相加并且将结果赋值给Sum，sum=15，而变量x=3，第二个循环是判断数组a(i)中各元素是否比3大，输出所有比3大的元素，因此选项D为正确答案。

  • 第18题：

    在窗体上画一个命令按钮，然后编写如下事件过程: 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

  • 第19题：

    在窗体上画一个命令按钮，然后编写如下事件过程： 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。

  • 第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题：

    在窗体上画一个名称为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

  • 第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题：

    设有如下通用过程： Public Sub Fun(a( )，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click( ) Dimsn(5)As Variant For i=1 To 5 arc(i)=i Next n=10 Call Fun(arr( )，n) Textl.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是

    A．10

    B．15

    C．25

    D．24


    正确答案：A
    解析：Fun过程中参数a()的传送方式为传地址，参数x的传送方式为传值。当在Commandl的Click事件过程调用该过程时，变量仅仅复制了一个变量副本传送给Fun过程，而它自己本身并没有发生变化。所以当调用完毕Fun过程后，再将n值赋给Textl的Text属性时，文本框中显示的内容仍为10。

相关内容