Question

VB定义动态数组大小和FOR循环

option base 1
private sub form_click()
dim xl() as integer
dim i as integer
dim s as integer
redim xl(3)
for i=1 to ubound(xl)
xl(i)=i+1
next i
call sub1(xl)
for i=1 to ubound(xl)
x=s+xl(i)
next i
print s
end sub
private sub sub1(n() as integer)
dim i as integer
redim preserve n(5)
for i=3 to 5
n(i)=n(i-1)*2
next i
end sub
显示()

A,6
B,12
C,24
D,47
解释一下

Answer 1

xl()在Form_Click()首次赋值的结果为：
xl(1)=2
xl(2)=3
xl(3)=4
在sub1中再次赋值的结果为：
xl(1)=2
xl(2)=3
xl(3)=6
xl(4)=12
xl(5)=24
把它们加起来的结果为47

顺便纠正你的笔误：x=s+xl(i) 应该是 s=s+xl(i)