Решение системы уравнений методом Гаусса и ошибка переполнения (Overflow) - VB

Формулировка задачи:

Нужно было составить прогу решения системы уравнений методом Гаусса, выдаёт эту ошибку в выделенной сточке:

                    Листинг программы
                
 
                            
                        
Private Sub Command2_Click() 'ГЊГҐГІГ®Г¤ ГѓГ*ГіГ±Г±Г*
Dim ii As Integer, m As Integer, sum As Integer, i As Integer, n As Integer, j As Integer
Print
Print 'ГђГҐГёГҐГ*ГЁГҐ Г¬ГҐГІГ®Г¤Г®Г¬ ГѓГ*ГіГ±Г±Г*
'ГЏГ°ГЁГўГҐГ¤ГҐГ*ГЁГҐ ГЄ ГўГҐГ°ГµГ*ГҐГІГ°ГҐГіГЈГ®Г«ГјГ*Г®Г¬Гі ГўГЁГ¤Гі
For i = 1 To n - 1
For ii = i + 1 To n
m = a(ii, i) / a(i, i)
For j = 1 To n
a(ii, j) = a(ii, j) - m * a(i, j)
Next j
b(ii) = b(ii) - m * b(i)
Next ii
Next i
Print
For i = 1 To n 'Г‚Г»ГўГ®Г¤ ГЇГ°ГҐГ®ГЎГ°Г*Г§Г®ГўГ*Г*Г*Г»Гµ Г¬Г*ГІГ°ГЁГ¶Г» ГЂ ГЁ ГўГҐГЄГІГ®Г°Г* Г‚ Г*Г* ГґГ®Г°Г¬Гі
For j = 1 To n
Print a(i, j),
Next j
Print b(i)
Next i
'Г‚Г»Г·ГЁГ±Г«ГҐГ*ГЁГҐ Г*ГҐГЁГ§ГўГҐГ±ГІГ*Г»Гµ(Г®ГЎГ°Г*ГІГ*Г»Г© ГµГ®Г¤)
x(3) = b(n) / a(n, n) '/////////////////
For i = n - 1 To 1 Step -1
sum = 0
For j = i + 1 To n
sum = sum + a(i, j) * x(j)
Next j
x(i) = (b(i) - sum) / a(i, i)
Next i
Print
For i = 1 To n 'Г‚Г»ГўГ®Г¤ ГўГҐГЄГІГ®Г°Г* X Г*ГҐГЁГ§ГўГҐГ±ГІГ*Г»Гµ Г*Г* ГґГ®Г°Г¬Гі
Print Format(x(i), "0.00000"),
Next i
Print
 
End Sub
 
Private Sub Command3_Click() 'Г‚ГўГ®Г¤ ГўГҐГЄГІГ®Г°Г* Г*Г*Г·Г*Г«ГјГ*Г®ГЈГ® ГЇГ°ГЁГЎГ«ГЁГ¦ГҐГ*ГЁГї Г•0
Dim i As Integer, n As Integer
x(1) = 0: x(2) = 0: x(3) = 0
Print
For i = 1 To n 'Г‚Г»ГўГ®Г¤ ГўГҐГЄГІГ®Г°Г* X Г*Г* ГґГ®Г°Г¬Гі
Print x(i),
Next
Print
 
End Sub

Решение задачи: «Решение системы уравнений методом Гаусса и ошибка переполнения (Overflow)»

textual
                            Листинг программы 
                        
Dim ii As Integer, m As Integer, sum As Integer, i As Integer, n As Integer, j As Integer