以下程序: Public Sub Proc(a%()) Static i% Do a(i) = a(i) + a(i + l) i = i + 1 Loop While i < 2 End Sub Private Sub Command1_Click() Dim m%, i%, x%(10) For i = 0 To 4 x(i) = i + 1 Next i For i = 0 To 2 Call Proc(x) Next i For i = 0 To 4 Print x(i); i Next i End Sub 运行的结果是( )。