letlvsmainmodule.bas

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

Attribute VB_Name = "MainModule"
Sub Main()
    Dim dblT(6) As Double
    Dim dblB(6) As Double
    Dim x(6) As Double
    
    '系数矩阵
    dblT(1) = 6
    dblT(2) = 5
    dblT(3) = 4
    dblT(4) = 3
    dblT(5) = 2
    dblT(6) = 1

    '常数向量
    dblB(1) = 11
    dblB(2) = 9
    dblB(3) = 9
    dblB(4) = 9
    dblB(5) = 13
    dblB(6) = 17
    
    '求解
    If LETlvs(6, dblT, dblB, x) = True Then
        MsgBox "求解成功！" & Chr$(13) & Chr$(13) & _
                "x1 = " & Round(x(1), 5) & Chr$(13) & _
                "x2 = " & Round(x(2), 5) & Chr$(13) & _
                "x3 = " & Round(x(3), 5) & Chr$(13) & _
                "x4 = " & Round(x(4), 5) & Chr$(13) & _
                "x5 = " & Round(x(5), 5) & Chr$(13) & _
                "x6 = " & Round(x(6), 5)
    Else
        MsgBox "求解失败！"
    End If
    
End Sub