letridmainmodule.bas

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

Attribute VB_Name = "MainModule"
Sub Main()
    Dim dblB(13) As Double, dblD(5) As Double
    
    '系数矩阵
    dblB(1) = 1
    dblB(2) = 1
    dblB(3) = 1
    dblB(4) = 2
    dblB(5) = 1
    dblB(6) = 1
    dblB(7) = 3
    dblB(8) = 1
    dblB(9) = 1
    dblB(10) = 4
    dblB(11) = 1
    dblB(12) = 1
    dblB(13) = 5
    '常数向量
    dblD(1) = 3
    dblD(2) = 8
    dblD(3) = 15
    dblD(4) = 24
    dblD(5) = 29
    
    '求解
    If LETrid(5, 13, dblB, dblD) > 0 Then
        MsgBox "求解成功！" & Chr$(13) & Chr$(13) & "x1 = " & dblD(1) & Chr$(13) & "x2 = " & dblD(2) & Chr$(13) & "x3 = " & dblD(3) & Chr$(13) & "x4 = " & dblD(4) & Chr$(13) & "x5 = " & dblD(5)
    Else
        MsgBox "求解失败！"
    End If
    
End Sub