在窗体上画一个命令按钮(其名称为Command1),然后编写如下代码: Private Sub Command 1_Click() Dim a a=Array(1,2,3,4) i=3:i=1 Do While i>

admin2010-11-02  22

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

选项 A、4321
B、123
C、234
D、1234

答案D

解析 此程序的作用是将数组a中a(0)、a(1)、a(2)、a(3)作为千位、百位、十位、个位组成一个新数,i是数组的下标,作用是依次取a(3)、a(2)、a(1)、a(0),s=s+a(i)*j的作用是将取到的数依次放到个位、百位、十位、千位,这是因为j四次循环的取值分别为1、10、100、1000。所以s四次循环的取值为4、4+30、34+200、324、324+10000。
转载请注明原文地址:https://jikaoti.com/ti/Zog0FFFM
0

最新回复(0)