mdetgaussmainmodule.bas

来自「科学与工程数值计算算法（Visual Basic版） 附赠的光盘包含了本书中全」· BAS 代码 · 共 28 行

Attribute VB_Name = "MainModule"
Sub Main()
    Dim mtxA(4, 4) As Double
    Dim mtxB(4, 4) As Double
    Dim dblDetA As Double, dblDetB As Double
    
    mtxA(1, 1) = 1:  mtxA(1, 2) = 2:  mtxA(1, 3) = 3:  mtxA(1, 4) = 4
    mtxA(2, 1) = 5:  mtxA(2, 2) = 6:  mtxA(2, 3) = 7:  mtxA(2, 4) = 8
    mtxA(3, 1) = 9:  mtxA(3, 2) = 10:  mtxA(3, 3) = 11:  mtxA(3, 4) = 12
    mtxA(4, 1) = 13:  mtxA(4, 2) = 14:  mtxA(4, 3) = 15:  mtxA(4, 4) = 16
    
    mtxB(1, 1) = 3:  mtxB(1, 2) = -3:  mtxB(1, 3) = -2:  mtxB(1, 4) = 4
    mtxB(2, 1) = 5:  mtxB(2, 2) = -5:  mtxB(2, 3) = 1:  mtxB(2, 4) = 8
    mtxB(3, 1) = 11: mtxB(3, 2) = 8:  mtxB(3, 3) = 5:  mtxB(3, 4) = -7
    mtxB(4, 1) = 5:  mtxB(4, 2) = -1: mtxB(4, 3) = -3:  mtxB(4, 4) = -1
    
    '求解
    dblDetA = MDetGauss(4, mtxA)
    dblDetB = MDetGauss(4, mtxB)
    
    MsgBox "det(A) = " & dblDetA & Chr$(13) & Chr$(13) & "det(B) = " & dblDetB
    
End Sub