Metodo de ordenamiento de vectores

Metodos de ordenamiento de vectores
1 - QuickSort
Este ejemplo ordena un vector o array que se llena con números aleatorios. Esos números se visualizan en un control ListBox. Luego para ordenarlosse llama a una función llamada Ordenar. A esta función se le pasa el vector como parámetro. Por último, una ves devuelto el vector ordenado, se recorre el mismo en un For-next y se agregan en unsegundo ListBox
 

 
Colocar los siguiente controles como están en la imagen:
* Un control text1 que será la cantidad de elementos del vector a ordenar.
* 2 controles ListBox, El list1 carga elvector desordenado con lo números aleatorios. El List2 visualiza el resultado del vector ordenado
* Dos CommandButton. El command1 Llena el vector con números aleatorios, el Command2 Ordena elvector.
'Dim vector a ordenar
Dim UnVector() As Long

Private Sub Command1_Click()
Dim x As Long, i As Integer
List1.Clear
List2.Clear
x = CInt(Text1)
ReDim UnVector(x)
'Llenamos el vectorcon números aleatorios
For i = 1 To x
Randomize (x)
UnVector(i) = (2500450 * Rnd)
'Agregamos los números aleatorios al List
List1.AddItem UnVector(i)
NextCommand1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Pasamos a la función el Vector (la función devuelve el vector ordenado)
UnVector = Ordenar(UnVector)

'Recorremos elvector ordenado y lo agregamos al List2
For i = 1 To UBound(UnVector)
List2.AddItem UnVector(i)
Next
Command1.Enabled = True
Command2.Enabled = False
End Sub

Ordenar archivos
Esteejemplo utiliza el método de ordenación QuickSort para ordenar un array que contiene cargado una lista de archivos. La ordenación se realiza de acuerdo al tamaño de los archivos en modo ascendente. Elresultado se visualiza en un control TextBox
Colocar en un formulario :
* Una caja de texto : txtResult ( Colocar la propiedad Multilinea en True )
* Un botón : cmdSort
 
Vista previa del Form...