The Bubble Sort er en af ​​de første sortering algoritmer lært af en computer science student , da det er en af ​​de enkleste at gennemføre og mest intuitive . Den grundlæggende procedure er enkel: med udgangspunkt i begyndelsen af array , bevæger programmet sig gennem array udkig efter et array element, der er større end den ene til sin ret , og swaps dem . Derefter starter forfra og gentager den samme proces på det nye array. Det gør dette, indtil den kan fortsætte gennem hele systemet uden at bytte elementer. I praksis gør denne det ser ud som om de større elementer i arrayet er bobler , der flyder til toppen af matrixen. Instruktioner
1

Open Visual Basic og klik på " File " og " Nyt projekt " for at oprette et nyt projekt . Vælg " ConsoleApplication ". Når det drejer sig tid til at indtaste din kode i et egentligt projekt med en Graphical User Interface ( GUI) , kan du blot kopiere denne funktion der uden ændringer.
2

Indsæt følgende kode over "Main" funktion : Hej

Sub BubbleSort ( ByRef arr () As Integer )

Dim temp

Dim kontakt = Sand

switch

skifte = False

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

temp = arr (x )

arr (x) = arr (x +1)

arr (x +1) = temp

switch = Sand

End If < br >

Næste

End Mens

End Sub

En vigtig ting at erkende, er , at arr er gået ind i underprogrammet " ByRef ". Dette gør det muligt for funktionen til at ændre indholdet af array
3

Indsæt følgende i "Main "-funktionen til at teste BubbleSort metode: .

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 & " Hver x In arr.

Console.Write (x & "")

Næste

Console.ReadKey ()

End Sub
< p > Slut Modul

Dette skaber en enkel, usorteret vifte af heltal og fortæller BubbleSort at sortere dem, så udskriver resultaterne.