计算机二级
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:Private Sub Command1_Click()Dim a(5,5)For i=1 To 3For j=1 To 4a(i,j)=i*jNextNextFor n=1 To 2For m=1 To 3Print a(m,n);NextNextEnd Sub程序运行后,单击命令按钮,输出结果是A．2 4 6 1 2 3B．1 2 3 2 4 6C．1 2 3 4 5 6D．6 5 4 3 2 1
题目
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
Private Sub Command1_Click()
Dim a(5,5)
For i=1 To 3
For j=1 To 4
a(i,j)=i*j
Next
Next
For n=1 To 2
For m=1 To 3
Print a(m,n);
Next
Next
End Sub
程序运行后,单击命令按钮,输出结果是
A．2 4 6 1 2 3
B．1 2 3 2 4 6
C．1 2 3 4 5 6
D．6 5 4 3 2 1
相似问题和答案
第1题：
在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为：同学们，你们好。
略
第2题：
在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： 
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。
A10和0
B2和100
C3和50
D4和168
B
略
第3题：
在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:
Option Base 1
Private Sub Command1_Click（）
Dim a
s = 0
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．1234
C．34
D．12
第4题：
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码； Option Base 1 Private Sub Command1_ Click() Dim a(4, 4), For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub程序运行后，单击命令按钮，输出结果为______。
A．6 9 7 10
B．7 10 8 11
C．8 11 9 12
D．9 12 10 13
第5题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A．
B．H
C．
D．
【解析】分析程序，程序开始循环时i=1，j=1to1，PrintSUing(i，“Hello”)语句输出一个H，然后执行Print进行换行；当i=2时，j=1to2，PrintString(i，“Hello”)语句输出两行分别为两个HH，然后执行Print换行：当i=3时，退出循环。
第6题：
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10)As Integer，arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n)；Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 ______。
A．11 3
B．3 11
C．13 3
D．3 13
解析：本题的程序每次循环都将arr2(3)重新赋一次值。最终的arr2(3)的值为2*3+5=11。而arr1(3)的值始终为3。所以最终的输出是11和3。
第7题：
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
s=0:j=1
a=Array(1,2,3,4)
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next
Print s
End Sub
运行上面的程序并单击命令按钮,其输出结果是
A．4221
B．1234
C．34
D．12
解析：数组名a为变体型变量,用Array函数对其进行初始化,得到a(1)=1,a(2)=2,a(3)=3和a(4)=4。变量j在循环中每次计算后扩大10倍,变量s的计算过程为s=4*1+3*10+2*100+1*1000=1234。
第8题：
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(4，4) For i=1 To 4 For j=1 To 4 a(i，j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j，i)； Next j Next i End Sub 程序运行后，单击命令按钮，其输出结果为 ______ 。
A．6 9 7 10
B．7 10 8 11
C．8 11 9 12
D．9 12 10 13
解析：第1个输出为a(3,3)=(3-1)*3+3=9。第2个输出为a(4,3)=(4-1)*3+3=12。第3个输出为 a(3,4)=(3-1)*3+4=10。第4个输出为a(4,4)=(4-1)*3+4=13
第9题：
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_C1ick()
Dim a(5，5)
For i=1 To 3
For j=1 To 4
a(i，j) =i*j
Next
Next
For n=1 To 2
For m=1 To 3
Print a(m,n)；
Next
Next
End Sub
程序运行后，单击命令按钮，输出结果是
A．2 4 6 1 2 3
B． 1 2 3 2 4 6
C．1 2 3 4 5 6
D．6 5 4 3 2 1
解析：输出值为下标的乘积，即1×1，1×2，1×3，2×1，2×2，2×3。