单项选择题

单击一次命令按钮之后，下列程序段的执行结果为( )。
Pubic Sub Proc(a()As Integer)
　Static i As Integer
　Do
　　a(i)=a(i)+a(i+1)
　　i=i+1
　Loop While i<2
End Sub
Private Sub Command1_Click()
　Dim m As Integer,i As Integer,x(10)As Integer
　For i=0 To 4:x(i)=i+1:Next i
　For i=1 To 2:CallProc(x()):Next i
　For i=0 To 4:Print x(i);Next i
End Sub