De Bubble Sort is een van de eerste sortering algoritmes geleerd door een student Informatica , want het is een van de eenvoudigste te implementeren en meest intuïtieve . De basisprocedure is eenvoudig : vanaf het begin van de array, gaat het programma via op zoek naar een array element dat groter is dan het rechts daarvan en ruilen hen. Het wordt vervolgens opnieuw gestart hij dezelfde taak op de nieuwe array. Het doet dit totdat het door de hele array kan gaan zonder wisselen elementen . In de praktijk maakt het lijkt alsof de grotere elementen in de array belletjes die naar boven drijven van de array. Instructies
Open Visual Basic 1 en klik op " File " en " Nieuw project" om een nieuw project aan te maken . Selecteer " ConsoleApplication . " Wanneer het tijd is om uw code in te voeren in een echt project met een Graphical User Interface ( GUI ) , kunt u gewoon deze functie kopieert er zonder aanpassingen . Kopen van 2 Plak de volgende code boven de " Main " functie : Sub BubbleSort
( ByRef arr ( ) As Integer ) Dim temp
schakelaar Dim
= True
Terwijl schakelaar
schakelaar = False
Voor x = 0 To arr.Length - 2
Als arr ( x ) > arr ( x 1 ) dan
temp = arr ( x ) arr
( x ) = arr ( x 1 ) arr
( x 1 ) = temp schakelaar
= True End of als < br > Volgende Einde
Terwijl End Sub
Een belangrijk ding om te zien is dat de arr wordt doorgegeven aan de subroutine " ByRef . " Dit maakt de functie om de inhoud van de array te wijzigen
3 Plak volgende in de functie " Main " aan de BubbleSort methode te testen : . Sub Main
( ) Dim arr = { 3 , 4 , 5232 , 1 , 232 , 12 , 34 , 14 , 21 , 213 , 213 , 21 , 321 } Console.WriteLine ( " Ongesorteerd " ) op Twitter
voor Elke x In arr Console.Write
( x & " Elke x In arr Console.Write
( x & " " ) Volgende Console.ReadKey (
) op End Sub
End Module
Dit genereert een eenvoudige , ongesorteerde array van integers en vertelt BubbleSort om ze te sorteren , drukt vervolgens de resultaten .
|
