Foro de elhacker.net

Bueno amigoa aqui les dejo la forma de ordenar un vector en Visual Basic.Net
Espero Que Les Sirva

Module Module1

    Sub Main()
        Dim i, j, aux As Integer
        Dim n As Integer
        Console.Write("Ingresa Limite Del Vector: ")
        n = Console.ReadLine()
        n -= 1
        Dim mat(n) As Integer

        For i = 0 To n Step 1
            Console.Write("Ingresa elemento " & i + 1 & " : ")
            mat(i) = Console.ReadLine()
        Next
        Console.WriteLine()

        Console.WriteLine("Vector Original")
        Console.WriteLine()

        For i = 0 To n Step 1
            Console.Write("[" & mat(i) & "] ")
        Next

        For i = 0 To n Step 1
            For j = 0 To n - 1 Step 1
                If mat(j) > mat(i) Then
                    aux = mat(j)
                    mat(j) = mat(i)
                    mat(i) = aux
                End If
            Next
        Next

        Console.WriteLine()
        Console.WriteLine("Vector Ordenado")
        Console.WriteLine()

        For i = 0 To n Step 1
            Console.Write("[" & mat(i) & "] ")
        Next



        Console.ReadLine()
    End Sub

End Module