数组的下标越界的问题

Question

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）中，然后依次存入多项式的常数项至最高次项的系数，
这段代码就是想实现一个数组传递到另一个，但是它老是提示下标越界，大家看看为什么啊?

Answer 1

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

Answer 2

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