单选题 设有如下程序：
Sub proc(x()As Integer)
Static i As Integer
Do
x(i)=x(i)+x(i+1)
i=i+1
Loop While i＜2
End Sub
Private Sub Command1_Click()
Dim a(5)As Integer,i As Integer
For i=0 To 4
a(i)=i+1
Next i
Call proc(a)
Call proc(a)
For i=0 To 4
Print a(i);
Next i
End Sub
程序运行后，单击命令按钮Command1，输出结果为