数组的下标越界的问题

[lzkbr]

Sub Equal(s1() As Double, s2() As Double)
'让 s2()：=s1(),s1()是输入，s2()是输出
Dim i%
For i = -1 To s1(-1)
s2(i) = s1(i)
Next i
End Sub


代码就是上面那样，我将多项式的最高阶次存在数组的（-1）中，然后依次存入多项式的常数项至最高次项的系数，
这段代码就是想实现一个数组传递到另一个，但是它老是提示下标越界，大家看看为什么啊?

[tanjiunnya]

s1(-1) <<===这个很明显有问题。。。

[vbman2003]

Sub Equal(s1() As Double, s2() As Double)
'让 s2()：=s1(),s1()是输入，s2()是输出
Dim i%
For i = lbound(s1) to ubound(s1)
s2(i) = s1(i)
Next i
End Sub