编写如下程序： Option Base 1 Private Sub Command l_Click() Dim a a=Array(1，2，3，4)：s=0：g=1 For i=4 To

admin2013-10-16 46

问题编写如下程序：
Option Base 1
Private Sub Command l_Click()
      Dim a
      a=Array(1，2，3，4)：s=0：g=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/8LQp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类