[单项选择题] 在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim

[单项选择题] 在窗体上画一个命令按钮(其名称为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。