mmulmainmodule.bas

科学与工程数值计算算法（Visual Basic版） 附赠的光盘包含了本书中全部的源代码

Attribute VB_Name = "MainModule"
Sub Main()
    Dim mtxA(4, 5) As Double
    Dim mtxB(5, 3) As Double
    Dim mtxC(4, 3) As Double
    
    mtxA(1, 1) = 1: mtxA(1, 2) = 3: mtxA(1, 3) = -2: mtxA(1, 4) = 0: mtxA(1, 5) = 4
    mtxA(2, 1) = -2: mtxA(2, 2) = -1: mtxA(2, 3) = 5: mtxA(2, 4) = -7: mtxA(2, 5) = 2
    mtxA(3, 1) = 0: mtxA(3, 2) = 8: mtxA(3, 3) = 4: mtxA(3, 4) = 1: mtxA(3, 5) = -5
    mtxA(4, 1) = 3: mtxA(4, 2) = -3: mtxA(4, 3) = 2: mtxA(4, 4) = -4: mtxA(4, 5) = 1

    mtxB(1, 1) = 4: mtxB(1, 2) = 5: mtxB(1, 3) = -1
    mtxB(2, 1) = 2: mtxB(2, 2) = -2: mtxB(2, 3) = 6
    mtxB(3, 1) = 7: mtxB(3, 2) = 8: mtxB(3, 3) = 1
    mtxB(4, 1) = 0: mtxB(4, 2) = 3: mtxB(4, 3) = -5
    mtxB(5, 1) = 9: mtxB(5, 2) = 8: mtxB(5, 3) = -6

    '求解
    Call MMul(4, 5, 3, mtxA, mtxB, mtxC)
    
    MsgBox "求解成功！" & Chr$(13) & Chr$(13) & MatrixToString(4, 3, mtxC, "######0.0000000")
    
End Sub