mtrenchmainmodule.bas

各种矩阵运算

Attribute VB_Name = "MainModule"
Sub Main()
    Dim t(6) As Double
    Dim tt(6) As Double
    Dim mtxB(6, 6) As Double
    
    t(1) = 10
    t(2) = 5
    t(3) = 4
    t(4) = 3
    t(5) = 2
    t(6) = 1
    
    tt(1) = 0
    tt(2) = -1
    tt(3) = -2
    tt(4) = -3
    tt(5) = -4
    tt(6) = -5
    
    '求解
    If MTinv(6, t, tt, mtxB) Then
        MsgBox "求解成功！" & Chr$(13) & Chr$(13) & _
                "逆矩阵为" & Chr$(13) & Chr$(13) & _
                MatrixToString(6, 6, mtxB, "######0.0000000")
    Else
        MsgBox "求解失败！"
    End If
    
End Sub