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

admin2010-09-11  26

问题 在窗体上画一个名为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    程序运行后,单击命令按钮,输出结果为(    )。

选项 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/jlg0FFFM
0

最新回复(0)