急急急 VB中下标越界怎么改啊

这是一个解线形方程组的程序,XXX()是解的水平分量YYY()是解的纵向分量 但是在 xxx(k) = b * Cos(e) / a(k, k)这行总是出现下标越界，恳请高手解答，谢谢
Public Sub jiefangcheng(n As Integer, a() As Double) '解尺寸式的线性方程组
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim c As Double
Dim b As Double
Dim l As Integer
Dim t As Double
Dim w As Double
Dim e As Double
e = Val(Text11.Text)
For i = 1 To xuhao '恢复矩阵
For j = 1 To xuhao
a(i, j) = mm(i, j)
Next j
Next i

c = 0
l = 0
ReDim xx(n)
For k = 1 To (n - 1)
For i = k To n
If Abs(Abs(a(i, k)) > Abs(c)) Then '如果对角线下面的数字比对角线上的大则
c = a(i, k) '记下对角线下的数的行数，为选主元作准备
l = i
End If
Next i
If c = 0 Then
MsgBox ("方程无解或者无唯一解！")
Exit Sub
End If
If l <> k Then

VB中下标越界是什么错误啊 vb下标越界问题，急！！！ vb错误求助:下标越界是怎么一回事啊? EXCEL中VB编程，下标越界错误 vb编程下标越界怎么处理 下标越界（VB） vb 下标越界 VB数组下标越界 VB 下标越界问题 vb 数组 下标越界