单选题现有如下一段程序： 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。