The Bubble Sort är en av de första sorteringsalgoritmer lärt av ett datavetenskap student, eftersom det är en av de enklaste att implementera och mest intuitiva . Den grundläggande proceduren är enkel : med början i början av arrayen , går programmet igenom arrayen söker ett array-element som är större än den till sin rätt , och swappar dem . Det börjar sedan om och upprepar samma process på den nya arrayen . Det gör detta tills det kan gå igenom hela arrayen utan att byta element . I praktiken , detta gör det se ut som om de större element i uppsättningen är bubblor som flyter till toppen av arrayen. Instruktioner
1
Öppna Visual Basic och klicka på "File " och " Nytt projekt " för att skapa ett nytt projekt . Välj " ConsoleApplication . " När det blir dags att skriva in din kod i ett verkligt projekt med ett grafiskt användargränssnitt ( GUI ) , kan du helt enkelt kopiera den här funktionen där utan modifikation .
2
Klistra in följande kod ovanför " Main" funktion :
Sub BubbleSort ( ByRef arr ( ) As Integer ) katalog
Dim temp
Dim switch = Sant
switch
växla = False
För x = 0 Till arr.Length - 2 Review p Om arr ( x ) > arr ( x +1 ) Sedan
temp = arr ( x ) katalog
arr ( x ) = arr ( x +1 ) katalog
arr ( x +1 ) = temp
switch = Sant
End If
Nästa
Slut Medan
End Sub
En viktig sak att inse är att arr förs in i subrutinen " ByRef . " Detta gör att funktionen för att ändra innehållet i arrayen
3
Klistra in följande i " Main" -funktion för att testa BubbleSort metod : .
Sub Main ( )
Dim arr = { 3 , 4 , 5232 , 1 , 232 , 12 , 34 , 14 , 21 , 213 , 213 , 21 , 321 }
Console.WriteLine ( " Osorterade " )
För varje xi arr
Console.Write ( x & " Varje x I arr
Console.Write ( x & " " ) katalog
Nästa
Console.ReadKey ( ) katalog
End Sub
ändmodul
Detta genererar en enkel , osorterade array av heltal och berättar BubbleSort att sortera dem , så skrivs resultatet .
