单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
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 j As Integer
　　Do
　　a(k)= a(k)+ a(k + 1)
　　　　j = j + 1
　　Loop While j ＜ 2
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是________。