在窗体上画一个名为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1,2,3,4,5) j

admin2010-03-30  30

问题 在窗体上画一个名为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+Arr(i)*j          j=j*10       Next       Print S    End Sub    程序运行后,单击命令按钮,输出结果为(    )。

选项 A、54321
B、123
C、12345
D、345

答案4

解析 本题考查使用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,S=2345;当i=1时,Arr(1)=1,S=12345:当i=0时,条件不满足退出循环,执行循环后面的语句Print S。因此,最后输出的值为“12345”。
转载请注明原文地址:https://jikaoti.com/ti/W5g0FFFM
0

最新回复(0)