PrivateSubForm_Click()
D．immAsInteger,IAsInteger,x(10)AsInteger
F．orI=0to4
x(I)=I+1
NextI
F．orI=1to2
C．allproc(x)
NextI
F．orI=0to4
Printx(I);
NextI
E．ndSub
PublicSubproc(a()AsInteger)
StaticIAsInteger
D．o
a(I)=a(I)+a(I+1)
I=I+1
LoopWhileI<2
E．ndSub
A．34756
B．35745
C．23445
D．45678