Fisica propiedades

1. Option Explicit  
2.   
3. ' -- Vector para los datos   
4. Dim Vector() As Variant  
5.   
6. ' --------------------------------------------------------------------------------   
7. ' \ -- Inicio   
8. ' --------------------------------------------------------------------------------   
9. Private Sub Form_Load()   
10.    Command1.Caption = " Ordenar Vector "  
11.     Command2.Caption = " Cargar Vector "  
12.     Command1.Enabled = False  
13. End Sub  
14.   
15. ' --------------------------------------------------------------------------------   
16. ' \ -- Botón para Ordenar el array y cargar los valores en el List2   
17. ' --------------------------------------------------------------------------------   
18.Private Sub Command1_Click()   
19.     Dim i As Integer  
20.        
21.     Call Ordenar   
22.     List2.Clear   
23.        
24.     For i = 0 To UBound(Vector)   
25.       List2.AddItem Vector(i)   
26.     Next i   
27.     Command1.Enabled = False  
28. End Sub  
29.   
30.' --------------------------------------------------------------------------------   
31. ' \ -- Cargar valores en el List1   
32. ' --------------------------------------------------------------------------------   
33. Private Sub Command2_Click()   
34.     Command2.Enabled = False  
35.     Command1.Enabled = True  
36.        
37.     Call Cargar_Array   
38. End Sub  
39.' --------------------------------------------------------------------------------   
40. ' \ -- BubbleSort - Sub para ordenar el vector   
41. ' --------------------------------------------------------------------------------   
42. Private Sub Ordenar()   
43.        
44.     Dim iMin    As Long  
45.     Dim iMax    As Long  
46.     Dim Vectemp As String                   ' -- variable temporal   
47.    Dim Pos     As Long  
48.     Dim i       As Long  
49.        
50.     iMin = LBound(Vector)   
51.     iMax = UBound(Vector)   
52.        
53.     While iMax > iMin   
54.         Pos = iMin   
55.         For i = iMin To iMax - 1   
56.             If Vector(i) > Vector(i + 1) Then  
57.             Vectemp = Vector(i + 1)   
58.             Vector(i + 1) = Vector(i)  
59.             Vector(i) = Vectemp   
60.             Pos = i   
61.             End If  
62.         Next i   
63.         iMax = Pos   
64.     Wend  
65. End Sub  
66.   
67. ' ---------------------------------------------------------------------------------   
68. ' \ -- Sub cargar valores de ejemplo en el array y en el control de lista   
69.' ---------------------------------------------------------------------------------   
70. Private Sub Cargar_Array()   
71.     Dim i As Integer  
72.            
73.     ' -- Listbox   
74.     With List1   
75.         .AddItem "A"  
76.         .AddItem "H"  
77.         .AddItem "B"  
78.         .AddItem "G"  
79.         .AddItem "C"  
80.        .AddItem "F"  
81.         .AddItem "D"  
82.     End With  
83.        
84.     ' -- Array   
85.     ReDim Vector(List1.ListCount - 1)   
86.     For i = 0 To List1.ListCount - 1   
87.         Vector(i) = List1.List(i)   
88.     Next i   
89. End Sub  
Algoritmos de Ordenamiento
 
Debido a que las estructuras de datos son utilizadas para almacenar información, parapoder recuperar esa información de manera eficiente es deseable que aquella esté ordenada. Existen varios métodos para ordenar las diferentes estructuras de datos básicas.
En general los métodos de ordenamiento no son utilizados con frecuencia, en algunos casos sólo una vez. Hay métodos muy simples de implementar que son útiles en los casos en dónde el número de...