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