单项选择题

现有如下一段程序：
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命令按钮，执行上述事件过程，输出结果是（　　）。

点击查看答案&解析