lebandmainmodule.bas

科学与工程数值计算算法（Visual Basic版） 附赠的光盘包含了本书中全部的源代码

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

    '常数向量
    dblD(1, 1) = 13:   dblD(1, 2) = 29:   dblD(1, 3) = -13
    dblD(2, 1) = -6:   dblD(2, 2) = 17:   dblD(2, 3) = -21
    dblD(3, 1) = -31:   dblD(3, 2) = -6:   dblD(3, 3) = 4
    dblD(4, 1) = 64:   dblD(4, 2) = 3:   dblD(4, 3) = 16
    dblD(5, 1) = -20:   dblD(5, 2) = 1:   dblD(5, 3) = -5
    dblD(6, 1) = -22:   dblD(6, 2) = -41:   dblD(6, 3) = 56
    dblD(7, 1) = -29:   dblD(7, 2) = 10:   dblD(7, 3) = -21
    dblD(8, 1) = 7:   dblD(8, 2) = -24:   dblD(8, 3) = 20
    
    '求解
    If LEBand(8, 3, 2, 5, dblB, dblD) > 0 Then
        For i = 0 To 7
            Form1.Label2(i) = "x" & (i + 1) & "1 ="
            Form1.Label3(i) = "x" & (i + 1) & "2 ="
            Form1.Label5(i) = "x" & (i + 1) & "3 ="
            
            Form1.s1(i).Caption = Round(dblD(i + 1, 1), 5)
            Form1.s2(i).Caption = Round(dblD(i + 1, 2), 5)
            Form1.s3(i).Caption = Round(dblD(i + 1, 3), 5)
        Next i
        
        Form1.Show
        
    Else
        MsgBox "求解失败！"
    End If
    
End Sub