如下程序，运行的结果是( )
PrivateSubForm_Click()
DimmAsInteger,IAsInteger,x(10)AsInteger
ForI=0to4
x(I)=I+1
NextI
ForI=1to2
Callproc(x)
NextI
ForI=0to4
Printx(I);
NextI
EndSub
PublicSubproc(a()AsInteger)
StaticIAsInteger
Do
a(I)=a(I)+a(I+1)
I=I+1
LoopWhileI<2
EndSub