问题
单项选择题
在窗体上画一个命令按钮(其名称为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
运行上面的程序，单击命令按钮，则输出结果是( )
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+1000。