The Bubble Sorter er en av de første sortering algoritmer lært av en informatikk student, siden det er en av de enkleste å implementere og mest intuitive . Den grunnleggende fremgangsmåte er enkel: med start fra begynnelsen av tabellen , beveger programmet gjennom matrisen etter en matrise element som er større enn den til sin rett , og bytter disse . Deretter starter over og gjentar den samme prosessen på det nye utvalget . Den gjør dette før det kan fortsette gjennom hele array uten å bytte elementer . I praksis , og dette gjør det se ut som om de større elementer i matrisen er bobler som flyter til toppen av tabellen. Instruksjoner
en

Åpen Visual Basic og klikk " Fil" og " Nytt prosjekt " for å opprette et nytt prosjekt . Velg " ConsoleApplication . " Når det gjelder tid til å taste inn koden i et reelt prosjekt med et grafisk brukergrensesnitt ( GUI ) , kan du bare kopiere denne funksjonen er det uten forbehold .
2

Lim inn følgende kode ovenfor " Main" funksjon : en

Sub BubbleSort ( ByRef arr ( ) As Integer )

Dim temp

Dim bryter = sant

Mens bryter

slå = False

For x = 0 For å arr.Length - 2
p Hvis arr ( x ) > arr ( x +1 ) Da

temp = arr ( x )

arr ( x ) = arr ( x 1 )

arr ( x +1 ) = temp

switch = sant

End If

Neste

End While

End Sub

En viktig ting å innse er at arr er gått inn i subrutinen " ByRef . " Dette gjør at funksjonen for å endre innholdet i matrisen
3

Lim følgende inn i " Main" -funksjon for å teste BubbleSort metode : .

Sub Main ( )

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

Console.WriteLine ( " Sams ")

For hver x I arr

Console.Write ( x & " Hver x I arr

Console.Write ( x & "")

Neste

Console.ReadKey ( )

End Sub
< p > End Module
p Dette genererer en enkel , usortert utvalg av heltall og forteller BubbleSort å sortere dem , skriver så resultatene .