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

admin2020-04-18 81

问题现有如下一段程序：
Option Base1
Private Sub Command1_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
执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是

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

答案B

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

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

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