SoloCodigo

 
Hola disculpa necesito ayuda con el código del método de gauss jordan...lo estoy haciendo en Visual Basic 2010...y no se que sucede que no resuelve los sistemas como se debe. Que puedo hacer o en que parte del código fallé?

'Definición de variables y matrices
        Dim k, l As Integer
        Dim matriz1(1000, 1000) As Single
        Dim coef As Single
        Dim aux(1000, 1000) As Single
        Dim elemento As Single

        'Encabezado para el programa
        Console.WriteLine("Bienvenido al Solucionador de Ecuaciones")
        Console.WriteLine()
        'Se pide ingresar las incógnitas que posee el sistema
        Console.WriteLine("Determine el numero de incognitas a resolver: ")
        k = Console.ReadLine()
        l = k + 1
        Console.WriteLine()

        'Llenamos la matriz ampliada con los coeficientes
        Console.WriteLine("Introduzca los Coeficientes de:")
        For i As Integer = 0 To k - 1 Step 1
            For j As Integer = 0 To l - 1 Step 1
                Console.WriteLine("Fila {0} y Columna {1}", i, j)
                matriz1(i, j) = Console.ReadLine()
            Next j
        Next i


        'Resolvemos el sistema de ecuaciones
        For s As Integer = 0 To k - 1 Step 1
            elemento = matriz1(s, s)
            For j As Integer = 0 To l - 1 Step 1
                matriz1(s, j) = matriz1(s, j) / elemento
            Next j
        Next s

        For i As Integer = 0 To k Step 1
            Dim s As Integer
            If i = s Then
            Else
                'Guardamos en la matriz auxiliar
                coef = matriz1(i, s)
                For j As Integer = 0 To l - 1 Step 1
                    aux(0, j) = matriz1(s, j) * (coef * -1)
                Next j

                For j As Integer = 0 To l - 1 Step 1
                    matriz1(i, j) = matriz1(i, j) + aux(0, j)
                Next j
            End If
        Next i

        'Imprimir las soluciones del sistema
        For i As Integer = 0 To k - 1 Step 1
            Console.WriteLine("X={0}       matriz {1,2}", i, matriz1(i, k))
        Next i


        Console.ReadLine()