vba求特征值与特征向量

Sub ShowFactor()
Factor.Show
End Sub

'求特征值与特征向量
Sub EigenVector()
    n = Factor.ListBox2.ListCount
    ReDim a(1 To n, 1 To n) As Double
    ReDim b(1 To n, 1 To n) As Double
        
    For i = 1 To n
        For j = 1 To n
            a(i, j) = Cells(i + 1, j + 1)
        Next j
    Next i
    
    ' Calculate intital and final nroms. Set b to identity matrix
    ANORM = 0
    For i = 1 To n
        For j = 1 To n
            If (i = j) Then
                b(i, j) = 1
            Else
                b(i, j) = 0
                ANORM = ANORM + a(i, j) * a(i, j)
            End If
        Next j
    Next i
    ANORM = Sqr(ANORM)
    FNORM = ANORM * 0.000000001 / n