在循环内给数组赋值，循环外数组却为空？

Dim fw as Double
for i=0 to ds-1
Doevents
bi(i)=bi(i)+(-1)*(fb/3600)/ds
Redim fwj(0 to ds-1) as  _Double
fwj(i)=fw=fw+bi(i)-180
fw=fwj(i)
print fw
fwj(i)=deg(fw)
next i
在这个循环里面我给数组fwj（）赋值，
在循环内print，显示的值是对的 但是出了循
环，print fwj（“任意一个”）都是0
这是为什么呀，这样的话后面的计算都是错误的了