VBA в EXCEL

[max_48rus]

Добрый день! Срочно нужно сделать задание по решению СЛАУ разными методами, метод Крамера и метод Гаусса сделал, а с простыми итерациями запутался. С математической точки зрения на сколько я понял, суть в том, что в каждом уравнении выражается x, через остальные переменные. Берутся начальные значения x01, x02, x03, у меня они приняты за "0", подставляются для нахождения x1, x2, x3, и если разница между x1 и x0 по модулю больше заданной точности, то полученные значения x1, x2, x3 подставляются вновь и сравниваются с предыдущими... Не пойму как правильно организовать цикл. Хочу разобраться в вопросе, объясните новичку, пожалуйста!

Система уравнений:

2,83 x1 + 2,5 x2 + 2,08 x3 = 33,28
3 x1 + 2,55 x2 + 2,07 x3 = 33,59
3,72 x1 + 3,21 x2 + 2,68 x3 = 43,43

По методу Гаусса ответы получены :
x1 = 5,948259574
x2 = -10,0313204
x3 = 19,96381077


Вот то, что я наделал, естественно неправильно:

Private Sub CommandButton1_Click()
Dim a(3, 3) As Single, i As Integer, j As Integer, k As Integer
Dim b(3) As Single
Dim x1 As Single, x2 As Single, x3 As Single, x01 As Single, x02 As Single, x03 As Single
 
For i = 1 To 3
b(i) = Cells(i, 5)
For j = 1 To 3
a(i, j) = Cells(i, j)
Next j
Next i
x1 = 0
x2 = 0
x3 = 0
k = 1
Do
x01 = x1
x02 = x2
x03 = x3
x1 = (b(1) - a(1, 3) * x03 - a(1, 2) * x02) / a(1, 1)
x2 = (b(2) - a(2, 1) * x01 - a(2, 3) * x03) / a(2, 2)
x3 = (b(3) - a(3, 1) * x01 - a(3, 2) * x02) / a(3, 3)
k = k + 1
Loop Until Abs(x1 - x01) < 0.001
Cells(9, 7) = x1: Cells(14, 7) = x2: Cells(19, 7) = x3
 
End Sub