Código de Visual Basic.NET - Método burbuja

Dim i, j, n(5), aux As Integer

For i = 1 To 5

    Console.WriteLine("Ingrese el numero " & i)

    n(i) = Console.ReadLine

Next

For i = 1 To 5

    For j = 1 To 4

        If n(j) < n(j + 1) Then

            aux = n(j)

            n(j) = n(j + 1)

            n(j + 1) = aux

        End If

    Next

Next

Console.Clear()

For i = 1 To 5

    Console.WriteLine("NO. " & i & "=" & n(i))

Next

Console.ReadKey()