VB.Net矩阵求逆

Function Rect_yu(A As Array, L As Integer, C As Array) As Single '矩阵求逆
        Dim T0 As Single
        Dim T1 As Single
        Dim T2 As Single
        Dim T3 As Single
        Dim B(0, 0) As Single
        Dim Num As Single
        Dim Chay As Integer
        Dim Chax As Integer
        Chay = 0
        Chax = 0
        ReDim B(L - 1, L - 1)
        Num = 0
        Dim add As Double
        add = 1 / Rect(A, L)
        For T0 = 0 To L
            For T3 = 0 To L
                For T1 = 0 To L - 1
                    If T1 < T0 Then
                        Chax = 0
                    Else
                        Chax = 1
                    End If
                    For T2 = 0 To L - 1
                        If T2 < T3 Then
                            Chay = 0
                        Else
                            Chay = 1
                        End If
                        B(T1, T2) = A(T1 + Chax, T2 + Chay)
                    Next T2
                Next T1
                Rect(B, L - 1) '调用求行列式值
                C(T3, T0) = Rect(B, L - 1) * add * ((-1) ^ (T0 + T3))
            Next T3
        Next T0
    End Function

推荐文章：那些年，做的几个应用