VB6.0 这段代码总提示下标越界求解决

放在一个模块里的sub，运行之后会提示下标越界。
msgbox stp lstp结果是对的，来自form1的所有值都是正的大于1的常数。fw()和fd()都在前面声明好了
fw(i)会提示下标越界。

Public Sub FF()
i = 1
stp = Int((Form1.w - 2 * Form1.d0) / (Form1.n - 1))
li = 1
lstp = Int((Form1.w - 2 * Form1.d0) / (Form1.Ln - 1))
MsgBox stp & lstp
For i = 1 To Form1.n-1
    fw(i) = Form1.d0 + Int(i * stp)
    MsgBox fw(i)
    For li = 1 To Form1.n1-1
        fd(li) = Int(j / (Form1.n1 + 1) * Form1.d)
    Next
Next
End Sub

fw()声明好了，代码呢
你光声明fw，不告诉它多长，默认长度是0呀

fw()和fd()都在前面声明好了

把声明的代码发一下，你确定声明的长度够存下所有的值吗？