现有如下一段程序： Option Base1 Private Sub Commandl_Click() Dim a a=Array(3，5，7，9)：x=1 For i=4 To 1 Step-1 s=s+a

admin2018-10-15 31

问题现有如下一段程序：
Option Base1
Private Sub Commandl_Click()
Dim a
a=Array(3，5，7，9)：x=1
For i=4 To 1 Step-1
s=s+a(i)*x：x=x*10
Next
Print s
End Sub
执行程序，单击Commandl命令按钮，执行上述事件过程，输出结果是

选项 A、9753
B、3579
C、35
D、79

答案B

解析本题考查数组的使用和循环结构。在Commandl的Click事件过程中，首先定义变量a，然后通过Atray函数给变量a赋值。在循环内，s保存累加和，x表示权重，每次扩大10倍，随着循环次数增加x越来越大。循环结束后，s的值为3579。

转载请注明原文地址:https://kaotiyun.com/show/7FFp777K

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