题目内容:
现有如下一段程序:
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
参考答案:
现有如下一段程序:
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