¿Cómo hacer Clasificación burbuja en VB.net

The Bubble Sort es uno de los primeros algoritmos de ordenación aprendidas por un estudiante de informática , ya que es uno de los más sencillos de implementar y más intuitiva . El procedimiento básico es simple: a partir del inicio de la serie , el programa pasa a través de la matriz en busca de un elemento de matriz que es mayor que la de la derecha , y los swaps . A continuación, comienza de nuevo y repite el mismo proceso en la nueva matriz. Lo hace hasta que pueda hacerse a través de todo el conjunto sin tener que cambiar los elementos . En la práctica, esto hace que se vea como si los elementos de mayor tamaño de la matriz son las burbujas que flotan en la parte superior de la matriz. Instrucciones
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

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 & "" )

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.