2. 计算机
  3. 编写如下程序： Option Base 1 Prirate Sub Commandl () 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

编写如下程序： Option Base 1 Prirate Sub Commandl () 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

admin2015-12-09  40
问题 编写如下程序：
Option Base 1
Prirate Sub Commandl   ()
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://jikaoti.com/ti/5EJ0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)