程序代码如下，当单击窗体上的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

A．1 0 0 0

B．1 0 0 1 0

C．0 0 1 1 0

D．1 0 1 0 0