选择题 13.  在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：
    Private Sub Command1_Click()
    Dim a
    a=Array(1,2,3,4)
    i=3: j=1
    Do While i＞=0
    s=s+a(i)*j
    i=i-1
    j=j*10
    Loop
    Print s
    End Sub
    运行上面的程序，单击命令按钮，则输出结果是______。
【正确答案】 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+1000。