legaussjordenmainmodule.bas

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

Attribute VB_Name = "MainModule"
Sub Main()
    Dim dblA(4, 4) As Double
    Dim dblB(4, 2) As Double
    
    '系数矩阵
    dblA(1, 1) = 1
    dblA(1, 2) = 3
    dblA(1, 3) = 2
    dblA(1, 4) = 13
    dblA(2, 1) = 7
    dblA(2, 2) = 2
    dblA(2, 3) = 1
    dblA(2, 4) = -2
    dblA(3, 1) = 9
    dblA(3, 2) = 15
    dblA(3, 3) = 3
    dblA(3, 4) = -2
    dblA(4, 1) = -2
    dblA(4, 2) = -2
    dblA(4, 3) = 11
    dblA(4, 4) = 5
    '常数矩阵
    dblB(1, 1) = 9
    dblB(1, 2) = 0
    dblB(2, 1) = 6
    dblB(2, 2) = 4
    dblB(3, 1) = 11
    dblB(3, 2) = 7
    dblB(4, 1) = -2
    dblB(4, 2) = -1
    
    '求解
    If LEGaussJordan(4, 2, dblA, dblB) = True Then
        MsgBox "求解成功！" & Chr$(13) & Chr$(13) & _
                "x11 = " & Round(dblB(1, 1), 5) & "   x12 = " & Round(dblB(1, 2), 5) & Chr$(13) & _
                "x21 = " & Round(dblB(2, 1), 5) & "   x22 = " & Round(dblB(2, 2), 5) & Chr$(13) & _
                "x31 = " & Round(dblB(3, 1), 5) & "   x32 = " & Round(dblB(3, 2), 5) & Chr$(13) & _
                "x41 = " & Round(dblB(4, 1), 5) & "   x42 = " & Round(dblB(4, 2), 5)
    Else
        MsgBox "求解失败！"
    End If
    
End Sub