程序代码为：Public sub proc(a%( ))Static I%DoA(i)=a(i)＋a(I＋1)I=I＋1Loop while I＜2End subP

程序代码为：Public sub proc（a%（))Static I%DoA（i)=a（i)＋a（I＋1)I=I＋1Loop while I＜2End subP

程序代码为：

Public sub proc(a%())

Static I%

Do

A(i)=a(i)+a(I+1)

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=1 to 2 : call proc(x) : next I

For I=0 to 4 : print x(i); : next I

End sub

程序运行后，单击命令按钮后，在窗体显示的结果是（）。