ledjnmainmodule.bas

求解线性方程组

Attribute VB_Name = "MainModule"
Sub Main()
    Dim dblA(5, 5) As Double
    Dim dblB(5, 2) As Double
    
    '系数矩阵
    dblA(1, 1) = 5:   dblA(1, 2) = 7:    dblA(1, 3) = 6:    dblA(1, 4) = 5:   dblA(1, 5) = 1
    dblA(2, 1) = 7:   dblA(2, 2) = 10:   dblA(2, 3) = 8:    dblA(2, 4) = 7:   dblA(2, 5) = 2
    dblA(3, 1) = 6:   dblA(3, 2) = 8:    dblA(3, 3) = 10:   dblA(3, 4) = 9:   dblA(3, 5) = 3
    dblA(4, 1) = 5:   dblA(4, 2) = 7:    dblA(4, 3) = 9:    dblA(4, 4) = 10:  dblA(4, 5) = 4
    dblA(5, 1) = 1:   dblA(5, 2) = 2:    dblA(5, 3) = 3:    dblA(5, 4) = 4:   dblA(5, 5) = 5
    '常数矩阵
    dblB(1, 1) = 24:  dblB(2, 1) = 34:   dblB(3, 1) = 36:   dblB(4, 1) = 35:  dblB(5, 1) = 15
    dblB(1, 2) = 96:  dblB(2, 2) = 136:  dblB(3, 2) = 144:  dblB(4, 2) = 140: dblB(5, 2) = 60
    
    '求解
    If LEDjn(5, 2, dblA, dblB) = True Then
        MsgBox "求解成功！" & Chr$(13) & Chr$(13) & _
                "x11 = " & Round(dblB(1, 1), 5) & "       x12 = " & Round(dblB(1, 2), 5) & Chr$(13) & _
                "x21 = " & Round(dblB(2, 1), 5) & "       x22 = " & Round(dblB(2, 2), 5) & Chr$(13) & _
                "x31 = " & Round(dblB(3, 1), 5) & "       x32 = " & Round(dblB(3, 2), 5) & Chr$(13) & _
                "x41 = " & Round(dblB(4, 1), 5) & "       x42 = " & Round(dblB(4, 2), 5) & Chr$(13) & _
                "x51 = " & Round(dblB(5, 1), 5) & "       x52 = " & Round(dblB(5, 2), 5)
    Else
        MsgBox "求解失败！"
    End If
    
End Sub