1
Abra Visual Basic y haga clic en "Archivo " y "Nuevo proyecto" para crear un proyecto nuevo . Seleccione " ConsoleApplication . " Cuando llega el momento de introducir su código en un proyecto real con una interfaz gráfica de usuario (GUI ) , puede simplemente copiar esta función no sin modificación.
2
Pega el siguiente código encima de la " principal" función :
Sub BubbleSort ( ByRef arr () As Integer )
Dim temp
interruptor Dim = True
Mientras interruptor
cambiar = False
Para x = 0 Para arr.Length - 2
Si arr (x ) > arr (x +1 ) Entonces
temp = arr (x )
arr (x ) = arr (x +1 )
arr (x +1 ) = temp
interruptor
= True End If
Siguiente
End While
End Sub
Una cosa importante a reconocer es que el arr se pasa a la subrutina " ByRef ". Esto permite que la función de modificar el contenido de la matriz
3
Pega el siguiente en la función " principal" para poner a prueba el método BubbleSort : .
Sub Main ()
Dim arr = { 3 , 4 , 5232 , 1 , 232 , 12 , 34 , 14 , 21 , 213 , 213 , 21 , 321 }
Console.WriteLine ( " Unsorted " )
For Each x In arr
Console.Write (x & " Cada x En arr
Console.Write (x & "" )
Siguiente
Console.ReadKey ()
End Sub
< p > End Module
Esto genera una matriz simple , sin ordenar de números enteros y le dice BubbleSort para ordenarlos , entonces imprime los resultados.