legaussmainmodule.bas

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

Attribute VB_Name = "MainModule"
Sub Main()
    Dim dblA(4, 4) As Double
    Dim dblB(4) As Double
    
    '系数矩阵
    dblA(1, 1) = 0.2368
    dblA(1, 2) = 0.2471
    dblA(1, 3) = 0.2568
    dblA(1, 4) = 1.2671
    dblA(2, 1) = 0.1968
    dblA(2, 2) = 0.2071
    dblA(2, 3) = 1.2168
    dblA(2, 4) = 0.2271
    dblA(3, 1) = 0.1581
    dblA(3, 2) = 1.1675
    dblA(3, 3) = 0.1768
    dblA(3, 4) = 0.1871
    dblA(4, 1) = 1.1161
    dblA(4, 2) = 0.1254
    dblA(4, 3) = 0.1397
    dblA(4, 4) = 0.149
    '常数向量
    dblB(1) = 1.8471
    dblB(2) = 1.7471
    dblB(3) = 1.6471
    dblB(4) = 1.5471
    
    '求解
    If LEGauss(4, dblA, dblB) = True Then
        MsgBox "求解成功！" & Chr$(13) & Chr$(13) & "x1 = " & dblB(1) & Chr$(13) & "x2 = " & dblB(2) & Chr$(13) & "x3 = " & dblB(3) & Chr$(13) & "x4 = " & dblB(4)
    Else
        MsgBox "求解失败！"
    End If
    
End Sub