单项选择题

程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是( )。
Private Sub Command1_Click()
Dim Y As Integer，I As Integer
Dim A(7)As Integer
Y=18：I=0
Do
A(I)=Y Mod 2
I=I+1
Y=Y\2
Loop Until Y＜1
For j=I-1 To 0 Step-1
Print A(j)；
Next j
End Sub

点击查看答案&解析