A-A+
程序代码如下 当单击窗体上的Command1控件时 窗体上输出的结果是()。 Private
问题详情
程序代码如下，当单击窗体上的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=Y2 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请帮忙给出正确答案和分析，谢谢！
参考答案
正确答案：B
解析：程序中Do-Loop循环的执行过程是：第一次I=0，Y=18，把YMod2的值0存入a(0)，I加1使I值变成1，Y\2存入Y，从而使Y变成9，Y为9不小于1，依旧循环：第二次I=1，Y=9，把YMod2的值1存入a(1)，i加1变成2，Y\2存入Y，从而使Y变成4，Y为4不小于1，依旧循环：第三次I=2，Y=4，把YMod2的值0存入a(2)，i值加1变成3，Y\2存入Y，从而使Y变成2，Y为2不小于1，依旧循环；第四次I=3，Y=2，把YMod2的值0存入a(3)，i值加1变成4，Y\2存入Y，从而使Y变成1，Y为1不小于1，依旧循环：第五次I=4，Y=1，把YMod2的值1存入a(4)，i值的加1变成5，Y/2存入Y，从而使Y变成0，Y为0小于1，循环退出。再通过For循环从a(4)到a(0)输出数组元素，结果是“10010”。
