leggjemainmodule.bas

科学与工程数值计算算法（Visual Basic版）一书的源代码。对科学研究者自己开发领域内计算程序极具参考价值。

Attribute VB_Name = "MainModule"
Sub Main()
    Dim a(8, 8) As Double
    Dim b(8) As Double
    
    '系数矩阵
    a(1, 1) = 0: a(1, 2) = 0: a(1, 3) = -1: a(1, 4) = 0: a(1, 5) = 0: a(1, 6) = 0: a(1, 7) = 2: a(1, 8) = 0
    a(2, 1) = 0: a(2, 2) = 6: a(2, 3) = 0: a(2, 4) = 0: a(2, 5) = 0: a(2, 6) = -6: a(2, 7) = 0: a(2, 8) = 0
    a(3, 1) = 0: a(3, 2) = 0: a(3, 3) = 0: a(3, 4) = 2: a(3, 5) = 0: a(3, 6) = 0: a(3, 7) = 0: a(3, 8) = -4
    a(4, 1) = 3: a(4, 2) = 0: a(4, 3) = 0: a(4, 4) = 0: a(4, 5) = -2: a(4, 6) = 0: a(4, 7) = 1: a(4, 8) = 0
    a(5, 1) = 0: a(5, 2) = 0: a(5, 3) = 6: a(5, 4) = 0: a(5, 5) = 0: a(5, 6) = 0: a(5, 7) = 5: a(5, 8) = 0
    a(6, 1) = 1: a(6, 2) = 0: a(6, 3) = 0: a(6, 4) = 0: a(6, 5) = -3: a(6, 6) = 0: a(6, 7) = 0: a(6, 8) = 2
    a(7, 1) = 0: a(7, 2) = 4: a(7, 3) = 0: a(7, 4) = -1: a(7, 5) = 0: a(7, 6) = 0: a(7, 7) = 0: a(7, 8) = 0
    a(8, 1) = 0: a(8, 2) = 0: a(8, 3) = 1: a(8, 4) = 0: a(8, 5) = -1: a(8, 6) = 0: a(8, 7) = 0: a(8, 8) = -2

    '常数向量
    b(1) = 4
    b(2) = 6
    b(3) = -8
    b(4) = -2
    b(5) = 27
    b(6) = -9
    b(7) = 2
    b(8) = -4
    
    '求解
    If LEGgje(8, a, b) = True Then
        MsgBox "求解成功！" & Chr$(13) & Chr$(13) & _
                "x1 = " & Round(b(1), 5) & Chr$(13) & _
                "x2 = " & Round(b(2), 5) & Chr$(13) & _
                "x3 = " & Round(b(3), 5) & Chr$(13) & _
                "x4 = " & Round(b(4), 5) & Chr$(13) & _
                "x5 = " & Round(b(5), 5) & Chr$(13) & _
                "x6 = " & Round(b(6), 5) & Chr$(13) & _
                "x7 = " & Round(b(7), 5) & Chr$(13) & _
                "x8 = " & Round(b(8), 5)
    Else
        MsgBox "求解失败！"
    End If
    
End Sub