窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Optlon Base 1 Prlvete Sub Command1_Click() Dim s 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 2B．
题目
窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Optlon Base 1 Prlvete Sub Command1_Click() Dim s 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
相似考题
更多“窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Optlon Base 1 Prlvete Sub Command1_Click() Dim s 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 2B．”相关问题
-
第1题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j＝1 To 3 a(i,j)＝(i-1)*3+j Print a(i,j)； Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是______。
A．1 2 3 2 4 6 3 6 9
B．2 3 4 3 4 5 4 5 6
C．1 4 7 2 5 8 3 6 9
D．1 2 3 4 5 6 7 8 9
正确答案：D
解析：程序共有两层循环，每执行完一次内循环，则打印换行，当外层循环执行第一次时，a(i,j)＝(i-1)*3+j相当于a(1,j)＝j，由此判断选项A，D可能正确，当外层循环执行第二次时，a(i,j)＝(i-1)*3+j，相当于a(2,j)＝3+j，由此可判断选项D为正确答案。 -
第2题：
在窗体上画一个名称为 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。 -
第3题：
在窗体上画一个名称为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。值得注意的是：在函数的调用过程中，不要使用循环变量作为实参，否则会产生意想不到的结果。 -
第4题：
有如下函数过程: Function lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i = 1 To x s=s+ i Next i 1j= s End Function在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数： Private Sub Command1 Click() Dim i As Integer Dim sum As Long For i = 1 To 5 sum = sum + 1j(i) Next i Print sum End Sub
A． 25
B．35
C．45
D．55
正确答案：B
-
第5题：
在窗体上面一个名称为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。 -
第6题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer，j As Integer Dim a(10， 10)As Integer For i=1 To 3 For i=1 To 3 a(i，j)=(i-1) *3+j Print a(i，j)； Next i Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是
A．1 2 3 246 3 69
B．2 3 4 3 4 5 4 5 6
C．1 4 7 2 5 8 3 6 9
D．1 2 3 4 5 6 7 8 9
正确答案：D
解析：本题仍然是使用For循环对二维数组赋值。由于有For,循环的嵌套，当i等于1时，Forj循环执行三次，根据“a(i,j)=(i-1)*3+j”可知输出的数值为1、2、3。此时For j循环终止，并执行“Print”语句，即进行换行。然后再执行For i的第二次循环，以此类推，正确答案为D。 -
第7题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序； Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10) As Integer For i＝1 To 3 For j=1 To 3 a(i,j)＝(i-1)*3+j Print a(i,j); Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是
A．1 2 3 2 4 6 3 6 9
B．2 3 4 3 4 5 4 5 6
C．1 4 7 2 5 8 3 6 9
D．1 2 3 4 5 6 7 8 9
正确答案：D
解析：本题主要考查了For循环语句。当外层循环变量i＝1，内层变量j＝1时有a(1,1)＝(1-1)*3+1即a(1,1)的值为1； j＝2时有a(1,2)＝(1-1)*3+2即a(1,2)的值为2；j=3时有a(1,3)＝(1-1)*3+3即a (1,3)的值为3。同理当外层循环变量i＝2，内层变量j＝1时有a(2,1)为4；j＝2时有a(2,2)为5；j＝3时有a(2,3)为6。i=3时，内层变量 j＝1时有a(3,1)为7；j＝2时有a(3,2)为8；j＝3时有a(3,3)为9；故选项D正确。 -
第8题：
在窗体上画一个名称为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为正确答案。 -
第9题：
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1 Click() For i=1 To 4 If i=1 Then x=i If i＜=4 Then x=X+1 Print x Next i End Sub 程序运行后，单击命令按钮，其输出结果为：_______。
A．1 2 3 4
B．2 3 4 5
C．2 3 4 4
D．3 4 5 6
正确答案：B
解析：第一次循环时x的值为2，每次加1，所以答案为2345。 -
第10题：
在窗体上画一个命令按钮，名称为Command1。然后编写如下事件过程： Private Sub Command1_Click() x=11 Sum=0 For i=1 To x n=Iif(i＞5, 1, 2) Sum=Sum+n Next i Print Sum End Sub 运行后的输出结果是______。
A．16
B．11
C．5
D．2
正确答案：A
解析：Iif(条件，表达式1，表达式2)根据条件返回表达式1或表达式2的值。当循环变量I=1～5时，变量n=2，当i=6～11时，变量n=1，所以变量Sum的计算过程为Sum=2+2+2+2+2+1+1+1+1+1+1=16。 -
第11题：
在窗体上画一个名称为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。 -
第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的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click( ) Dim c As Integer，d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) For i=1 TO 6 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End lf Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为
A．10
B．16
C．12
D．20
正确答案：C
解析：本题考查的是循环和条件判断语句，OptionBasel是强制使数组下标从1开始。 -
第14题：
在窗体上画一个名称为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。 -
第15题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Dim i As Integer,j As Integer Dim a(10，10)As Integer For i=1 To 3 For j=1 To 3 a(i，j)=(i-1)*3+j Print a(i，j)； Nextj Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是
A．1 2 3 24 6 3 6 9
B．2 3 4 3 4 5 4 5 6
C．1 4 7 2 5 8 3 6 9
D．1 2 3 4 5 6 7 8 9
正确答案：D
解析：由于有For循环的嵌套，当i等于1时，Forj循环执行三次，根据“a(i,j)=(i-1)*3+j“可知输出的数值为1、2、3。此时Forj循环终止，并执行“Print”语句，即进行换行。然后再执行Fori的第二次循环，以此类推，正确答案为D。 -
第16题：
在窗体上画一个名称为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。 -
第17题：
在窗体上画一个名称为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。 -
第18题：
在窗体上画一个名称为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的作用只控制循环次数。 -
第19题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For i=1 To UBound(A) a(i)=a(i)+i-1 Next Print a(3) End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是
A．4
B．5
C．6
D．7
正确答案：B
解析：题目中存在Option Base语句，则数组中第一个元素的索引值为1，当i=3时，a(i)=3，计算a(i)=a(i)+i-1结果为5，选项B为正确答案。 -
第20题：
在窗体上画一个名称为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值是变化的。 -
第21题：
在窗体上画一个名称为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，也被函数名返回。 -
第22题：
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4) j=1 For i=4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出的结果为
A．4321
B．12
C．34
D．1234
正确答案：D
解析：4次执行语句s=s+a(i)×j，执行完第1次s=4，执行完第2次s=34，执行完第3次s=234，执行完第4次s=1234，正确答案应为选项D。 -
第23题：
在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果为
A．16
B．24
C．32
D．36
正确答案：A
解析：本题中定义了两个一维数组，分别为Arr1和Arr2，由于使用了OptionBase1语句，因此其大小分别为10和3，接着执行3个For循环。在第1个循环中，对Arr1数组赋初值，每个元素的值与其下标相同，即Arrl(1)=1，Arrl(2)=2……。在第2个循环中，为Arr2数组的3个元素赋值，这3个值分别为Arrl数组第1、3、9个元素的值，即Art2(1)=1、Arr2(2)=4、Arr2(3)=9。在第3个循环中，计算数组Arr2中各元素的和，并将它赋给变量Sum。各元素的和为1+4+9=14，但由于变量Sum的初值为2，因此最后的输出结果为16。