在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4)
i=3:j=1
Do While i＞＝0
s＝s+a(i)*j
i＝i-1
j＝j*10
Loop
Print S
End Sub
运行上面的程序，单击命令按钮，则输出结果是( )

A．1 * * * *
2 * * *
3 * *
4 *
B．4 * * * *
3 * * *
2 * *
1 *
C．* * * *
* * *
* *
*
D．*
* *
* * *
* * * *

A．Open"file1.dat"For Input As#1
B．Open"file1.dat"For Append As#1
C．Open"file1.dat"For Output As#1
D．Open"file1.dat"For Randow As#1 Len=20