Решение СЛАУ методом Гаусса-Зейделя

e = 0.001
Do
    M = 0
    For i = 1 To n
            s = 0
        For J = 1 To n
          If i <> J Then s = s + a(i, J) * x(J)
        v = x(i)
        x(i) = (b(i) - s) / a(i, i)
        M = Abs(x(i)) - Abs(v)
    Next
    Next
  Loop Until M < e
 
For i = 1 To 4
Debug.Print x(i)
Next

Dim a(1 To 4, 1 To 4) As Double
Dim b(1 To 4) As Double
Dim x(1 To 4) As Double
Private Sub Command1_Click()
a(1, 1) = -8
a(1, 2) = -1
a(1, 3) = -4
a(1, 4) = 10
b(1) = 4
 
a(2, 1) = 8
a(2, 2) = 8
a(2, 3) = 2
a(2, 4) = -4
b(2) = 7
 
a(3, 1) = 6
a(3, 2) = 4
a(3, 3) = 1
a(3, 4) = -4
b(3) = -1
 
a(4, 1) = 10
a(4, 2) = 27
a(4, 3) = -4
a(4, 4) = -5
b(4) = 6
e = 0.0001
n = 4
Do
    M = 0
    For i = 1 To n
            s = 0
        For J = 1 To n
          If i <> J Then s = s + a(i, J) * x(J)
        Next
        v = x(i)
        x(i) = (b(i) - s) / a(i, i)
        M = Abs(x(i)) - Abs(v)
    Next
    'Next
  Loop Until M < e
 
' вывод результата
For i = 1 To 4
Debug.Print x(i)
Next
Debug.Print 6 * x(1) + 4 * x(2) + 1 * x(3) - 4 * x(4) 'должно выводить -1
End Sub

Option Explicit
'
'    © FelixMacintosh
'
Public Enum F_GausNum
    [Преобразовать в гаусово число] = 0
    [Преобразовать в обычное число] = 1
End Enum
 
Const c1 = "Указанное число <0" & vbCrLf & "Либо число превысело модуль", c11 = -100
 
Private Type TDel
    Result As Double
    Ost As Double
End Type
 
Private Sub Form_Activate()
    '
    '   Проверка
    '
    Dim f&: ReDim l(100)
    For f = 0 To 100
        l(f) = f
    Next
    l = GausList(l, [Преобразовать в гаусово число])
End Sub
 
Private Function Del(Arg#, Dlt#) As TDel
    'Функция деления
    'Возвращаемое значение: структура <TDel>
    With Del
        .Result = Fix(Arg / Dlt)
        On Error GoTo 1
        .Ost = Arg Mod Dlt
        Arg = .Result
        Exit Function
1
        .Ost = Arg - (.Result * Dlt)
        Arg = .Result
    End With
End Function
 
Private Function ErrPart(ByVal Exp As Boolean, ByVal Descr$, ByVal Num&)
    If Exp Then Err.Description = Descr: Err.Number = Num: Err.Raise Num
End Function
 
Function GausNum#(ByVal Modul#, ByVal Num#, Flag As F_GausNum)
    'Описание: Возврат числа так, как если бы числа модуля, распологались от центра к переферии
    'Arg: Модуль // Число // Флаги преобразования
    Dim d#, n#, n1&
    ErrPart Not (Num >= 0 And Num < Modul), c1, c11
 
    d = Del(Modul - 1, 2).Result
    n = Del(Modul, 2).Ost
    On Flag GoTo 1
 
    n1 = Not n And 1
    If Num > d - n Then GausNum = (Num - d - n1) * 2 + n1 Else _
    GausNum = (d - Num) * 2 - n
    Exit Function
1 'Flag = [Преобразовать в обычное число]
    With Del(Num, 2)
        On n GoTo 2
        If .Ost Then GausNum = d + .Result + 1 Else GausNum = d - .Result
        Exit Function
2
        If .Ost Then GausNum = (d - 1) - .Result Else GausNum = d + .Result
        Exit Function
    End With
 
End Function
 
 
Public Function GausList(List As Variant, Flag As F_GausNum) As Variant
    'Описание: Гаусовое построение списка
    'Arg: Список // Флаги преобразования
    Dim u&, m&, f&, v
    u = UBound(List)
    m = u + 1
    v = List
    For f = 0 To u
        v(f) = List(GausNum(m, f, Flag))
    Next
    GausList = v: Erase v
End Function