Come fare Bubble ordinamento VB.net

Il Bubble Sort è uno dei primi algoritmi di ordinamento apprese da uno studente di informatica , dal momento che è uno dei più semplici da implementare e più intuitivo . La procedura di base è semplice : partire dall'inizio della matrice , il programma passa attraverso l'array ricerca di un elemento di matrice che è maggiore di quella alla sua destra , e li swap . Si ricomincia e ripete lo stesso processo sul nuovo array . Lo fa fino a quando si può procedere attraverso l' intero array senza scambiare elementi . In pratica, questo fa sembrare come se gli elementi più grandi della matrice sono bolle che galleggiano alla parte superiore della matrice. Istruzioni
1

Aprire Visual Basic e fare clic su "File" e "Nuovo progetto" per creare un nuovo progetto . Selezionare " ConsoleApplication . " Quando arriva il momento di inserire il codice in un progetto reale con un interfaccia grafica utente ( GUI) , è sufficiente copiare questa funzione c'è senza modifiche .
2

Incollare il codice riportato di seguito al di sopra della "Main " funzione :

Sub BubbleSort ( ByRef arr ( ) As Integer ) per

Dim Temp

interruttore Dim = True

Mentre interruttore

passare = False

Per x = 0 Per arr.Length - 2

arr ( x ) > arr ( x +1 ) Poi

temp = arr ( x ) per

arr ( x ) = arr ( x +1 ) per

arr ( x +1 ) = Temp Cambia

= True

End If

Avanti

End While

End Sub

Una cosa importante da riconoscere è che il arr viene passato al sottoprogramma " ByRef ". Questo permette la funzione di modificare i contenuti della matrice
3

incolla quanto segue nella funzione " principale" per testare il metodo BubbleSort : .

Sub Main ( )

Dim arr = { 3 , 4 , 5232 , 1 , 232 , 12 , 34 , 14 , 21 , 213 , 213 , 21 , 321 }

Console.WriteLine ( " Non ordinati" )

per ogni x in arr

Console.Write ( x & " Ogni x in arr

Console.Write ( x & " " ) per

Console.ReadKey ( ) per

End Sub