SoloCodigo

cual es el problema?

1- ingresarle los numeros desde un input box ?
2- ordenar el arreglo?

Este es un metodo

Saludos

'Ordenamiento por Seleccion Directa

        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
        Dim x As Integer

        Dim n As Integer
        n = 5
        Dim vec(n) As Integer

        vec(0) = 5
        vec(1) = 4
        vec(2) = 3
        vec(3) = 2
        vec(4) = 1
        vec(5) = 0

        For i = 0 To n - 1
            k = i
            x = vec(i)
            For j = (i + 1) To n
                If (vec(j) < x) Then
                    k = j
                    x = vec(j)
                End If
            Next
            vec(k) = vec(i)
            vec(i) = x
        Next

        txtvector.Clear()
        txtvector.Text = Str(vec(0)) & Str(vec(1)) & Str(vec(2)) & Str(vec(3)) & Str(vec(4)) & Str(vec(5))