编写如下程序: Option Base 1 Private Sub Command1 Click() Dim a a=Array(1,2,3,4):s=0:j=1 For i=4 To 1 Step—1 s=s+a(i)*j:j=j*10 Next i P

admin2015-11-24  48

问题 编写如下程序:
Option Base 1
Private Sub Command1 Click()
Dim a
a=Array(1,2,3,4):s=0:j=1
For i=4 To 1 Step—1
s=s+a(i)*j:j=j*10
Next i
Print s
End Sub
程序运行后,单击命令按钮Commandl,输出结果为

选项 A、110
B、123
C、1234
D、4321

答案C

解析 本题的循环首先取出数组的最后一位累加,然后取出倒数第二位乘以10以后累加;然后取出倒数第三位乘以100后累加……以此类推,最终结果为1234。
转载请注明原文地址:https://kaotiyun.com/show/oRLp777K
0

随机试题
最新回复(0)