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

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

【正确答案】 D

【答案解析】【解析】此程序的作用是将数组a中a(o)、a(1)、a(2)、a(3)作为千位、百位、十位、个位组成一个新数，i是数组的下标，作用是依次取a(3)、a(2)、a(1)、a(O)，s=s+a(i)*J的作用是将取到的数依次放到个位、百位、十位、千位，这是因为J四次循环的取值分别为l、10、100、1000。所以S四次循环的取值为4、4+30、34+200、324、324+1000。