[单项选择题] 在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click()Dim m As Integer， i As

[单项选择题] 在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程：

Private Sub command1 Click()

Dim m As Integer， i As Integer， x(3)As Integer

For i=0 To 3：x(i)=i：Next i

For i = 1 To 2： Call sub1(x，i)：Next i

For i = 0 To 3： Print x(i)；： Next i

End Sub

Private Sub sub1(a()As Integer，k As Integer)

Dim i As Integer

Do

a(k)=a(k)+a(k+1)

j = j + 1

Loop While j ＜ 2

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是

A．0 3 7 5

B．0 1 2 3

C．3 2 4 5

D．0 5 8 3