преобразовать метод гаусса с выбором главного элемента

[Рагнара]

Здравствуйте! Пробую писать программу для расчета установившегося режима сети(для курсового), в конце расчетов используется метод гаусса с обратным ходом, но для исключения деления на ноль надо переставить строки местами. Вот частный пример, который я использовала, но НАДО СДЕЛАТЬ ЕГО УНИВЕРСАЛЬНЫМ...чтоб не для каждой строки отдельно, а для всех сразу, с учетом условия. (т.к если конфигурация сети не из четырех узлов, а более, то прога не увидит) Пожалуйста, помоги дописать!!
'Perestanovka Xp, n, y, s, h, p, a, q
'-------------------------------------------------------
ReDim Xp(n, 1) As Complex
'------------------------------------------------------
'задаем новую матрицу
For i = 1 To n Step 1
Set Xp(i, 1) = New Complex
Xp(i, 1).re = Worksheets("лист5").Cells(i + 56, 1)
Xp(i, 1).im = Worksheets("лист5").Cells(i + 56, 2)
Next i

'перестановка если базисом является первый узел
If iUb = 1 Then
For i = 1 To n Step 1
Worksheets("лист5").Cells(i + 56, 1) = Xp(i, 1).re
Worksheets("лист5").Cells(i + 56, 2) = Xp(i, 1).im
Next i
Else
If iUb = 2 Then
y = Xp(1, 1).re
Xp(1, 1).re = Xp(2, 1).re
Xp(2, 1).re = y
s = Xp(1, 1).im
Xp(1, 1).im = Xp(2, 1).im
Xp(2, 1).im = s
For i = 1 To n Step 1
Worksheets("лист5").Cells(i + 56, 1) = Xp(i, 1).re
Worksheets("лист").Cells(i + 56, 2) = Xp(i, 1).im

Next i
Else
If iUb = 3 Then
y = Xp(1, 1).re
Xp(1, 1).re = Xp(3, 1).re
Xp(3, 1).re = y

h = Xp(1, 1).re
Xp(1, 1).re = Xp(2, 1).re
Xp(2, 1).re = h

s = Xp(1, 1).im
Xp(1, 1).im = Xp(3, 1).im
Xp(3, 1).im = s

p = Xp(1, 1).im
Xp(1, 1).im = Xp(2, 1).im
Xp(2, 1).im = p

For i = 1 To n Step 1
Worksheets("Ëèñò2").Cells(i + 56, 1) = Xp(i, 1).re
Worksheets("Ëèñò2").Cells(i + 56, 2) = Xp(i, 1).im

Next i
Else
If iUb = 4 Then
y = Xp(1, 1).re
Xp(1, 1).re = Xp(4, 1).re
Xp(4, 1).re = y

h = Xp(1, 1).re
Xp(1, 1).re = Xp(2, 1).re
Xp(2, 1).re = h

a = Xp(2, 1).re
Xp(2, 1).re = Xp(3, 1).re
Xp(3, 1).re = a

s = Xp(1, 1).im
Xp(1, 1).im = Xp(4, 1).im
Xp(4, 1).im = s

p = Xp(1, 1).im
Xp(1, 1).im = Xp(2, 1).im
Xp(2, 1).im = p

q = Xp(2, 1).im
Xp(2, 1).im = Xp(3, 1).im
Xp(3, 1).im = q

For i = 1 To n Step 1
Worksheets("Ëèñò5").Cells(i + 56, 1) = Xp(i, 1).re
Worksheets("Ëèñò5").Cells(i + 56, 2) = Xp(i, 1).im

Next i

End If
End If
End If
End If

Next

[IgorGO]

см. вложение