在窗体上画一个名为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后,单击命令按钮,输出结果为( )。 D.345
A.54321 B.123 C.12345
【参考答案】
C 解析:本题考查使用Array函数给数组元素赋值的应用。分析程序可知,是通过For循环将数组中的各个元素通过一定的公式进行运算。运算过程为:当i=5时,Arr(5)=5,S=5;当i=4时,Arr(4)=4,S=45;当i=3时,Arr(3)=3,S=345;当i=2时,Arr(2)=2,......