问题
单项选择题
在窗体上添加一个命令按钮(其Name属性为Command1),然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
s = 0
a = Array(4, 3, 2, 1)
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
答案
参考答案:A
解析:
[分析]: 数组名a为变体型变量,用Array函数对其进行初始化,得到a(1)=4、a(2)=3、a(3)= 2和a(4)=1。变量j在循环中每次计算后扩大10倍,变量s的计算过程为s=1×1+2×10+3×100 +4×1000=4321。