Public Sub proc(byref a%())
static i%
do
a(i)=a(i)+a(i+1)
i=i+1
loop while i<2
end sub
sub Button1_Click(...) Handles button1.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: msgbox(x(i)) : next i
end sub
A.34756B.35745
c.23445D.45678
如果您的程序是这样:Public Sub proc(byref a%())static i%doa(i)=a(i)+a(i+1)i=i+1loop while i<2end subprivate sub Button1_Click() dim m%,i%,x%(10)for i=0 to 4: x(i)=i+1: next ifor i=1 to 2: call proc(x): next ifor i=0 to 4: msgbox(x(i)) : next iend sub那第一次单击就得到:35745...