Решение системы линейных уравнений методом Гаусса

    Dim a(5, 5), b(5) As Double
            Dim x(5), f, k As Double
            Label1.Text = " "
            Label2.Text = " "
            Label3.Text = " "
    'Вывод матрицы на лэйбл
            For i = 1 To 5
                For j = 1 To 5
                    Label1.Text = Label1.Text & a(i, j) & " "
                Next
                Label1.Text = Label1.Text & vbCrLf
            Next
    'Вычисление элементов
            For u = 1 To 5
                For i = u + 1 To 5
                    If a(i, u) = 0 Then
                        i = i
                    Else
                        k = -a(u, u) / a(i, u)
                        If k = 0 Then
                            For j = u To 5
                                a(i, j) = a(i, j) * 0 + a(u, j)
                            Next j
                        Else
                            For j = u To 5
                                a(i, j) = a(i, j) * k + a(u, j)
                            Next j
                            b(i) = b(i) * k + b(u)
                        End If
                    End If
                Next i
            Next u
    'Обратный ход, нахождение Х
            For i = 5 To 1 Step -1
                f = 0
                For j = i + 1 To 5
                    f = f + a(i, j) * x(j)
                Next
                x(i) = (b(i) - f) / a(i, i)
            Next
    'Вывод результата
            For i = 1 To 5
                For j = 1 To 5
                    Label2.Text = Label2.Text & a(i, j) & " "
                Next
                Label2.Text = Label2.Text & vbCrLf
            Next
            For i = 1 To 5
                label3.text = label3.text & x(i) & vbCrLf
            Next