legradmainmodule.bas

来自「求解线性方程组」· BAS 代码 · 共 30 行

Attribute VB_Name = "MainModule"
Sub Main()
    Dim dblA(4, 4) As Double
    Dim dblB(4) As Double
    Dim x(4) As Double
    
    '系数矩阵
    '系数矩阵
    dblA(1, 1) = 5:   dblA(1, 2) = 7:    dblA(1, 3) = 6:    dblA(1, 4) = 5
    dblA(2, 1) = 7:   dblA(2, 2) = 10:   dblA(2, 3) = 8:    dblA(2, 4) = 7
    dblA(3, 1) = 6:    dblA(3, 2) = 8:    dblA(3, 3) = 10:    dblA(3, 4) = 9
    dblA(4, 1) = 5:   dblA(4, 2) = 7:    dblA(4, 3) = 9:    dblA(4, 4) = 10

    '常数向量
    dblB(1) = 23
    dblB(2) = 32
    dblB(3) = 33
    dblB(4) = 31
    
    '求解
    Call LEGrad(4, dblA, dblB, x, 0.000001)
    
    MsgBox "求解成功！" & Chr$(13) & Chr$(13) & _
            "x1 = " & Round(x(1), 6) & Chr$(13) & _
            "x2 = " & Round(x(2), 6) & Chr$(13) & _
            "x3 = " & Round(x(3), 6) & Chr$(13) & _
            "x4 = " & Round(x(4), 6)
    
End Sub