现有如下一段程序：Option base 1Private Sub Command1_Click（) Dim a a=Array（3,5,7,9) X=1 For

现有如下一段程序：

Option base 1

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