2. 计算机
  3. 程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是( )。 Private Sub Command1_Click() Dim Y As Integer，I As Integer Dim A(7)As Intege

程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是( )。 Private Sub Command1_Click() Dim Y As Integer，I As Integer Dim A(7)As Intege

admin2009-02-13  68
问题 程序代码如下，当单击窗体上的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
答案2
解析 程序中Do-Loop循环的执行过程是：第一次I=0，Y=18，把Y Mod 2的值0存入a(0)，I加1使I值变成1，Y\2存入Y，从而使Y变成9，Y为9不小于1，依旧循环：第二次I=1，Y=9，把Y Mod 2的值1存入a(1)，i加1变成2，Y\2存入Y，从而使 Y变成4，Y为4不小于1，依旧循环：第三次I=2，Y=4，把Y Mod 2的值0存入a(2)，i值加1变成3，Y\2存入Y，从而使Y变成2，Y为2不小于1，依旧循环；第四次I=3，Y=2，把Y Mod 2的值0存入a(3)，i值加1变成4，Y\2存入Y，从而使Y变成1，Y为1不小于 1，依旧循环：第五次I=4，Y=1，把Y Mod 2的值1存入a(4)，i值的加1变成5，Y/2存入 Y，从而使Y变成0，Y为0小于1，循环退出。再通过For循环从a(4)到a(0)输出数组元素，结果是“1  0  0  1  0”。
转载请注明原文地址:https://www.kaotiyun.com/show/wI1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)