Ako to urobiť Bubble triedenie podľa VB.net

Bubble Sort je jedným z prvých triediacich algoritmov naučili o počítačovej vedy študenta , pretože je to jedna z najjednoduchších realizovať a najviac intuitívne . Základný postup je jednoduchý : od začiatku poľa , program sa pohybuje cez pole hľadá maticový prvok , ktorý je väčší ako ten , na jeho pravej strane , a vymení je . To potom začína znova a opakuje rovnaký proces na nové pole . To robí toto , kým nebude možné pokračovať cez celé pole bez prepínané prvky . V praxi sa to robí to vyzeralo , že väčšie prvky poľa sú bubliny , ktoré sa vznášajú v hornej časti poľa . Pokyny dovolená 1

Otvorte Visual Basic a kliknite na tlačidlo " Súbor " a " Nový projekt " pre vytvorenie nového projektu . Vyberte " ConsoleApplication . " Keď príde čas na zadanie kódu v reálnom projekte s grafickým užívateľským rozhraním ( GUI ) , môžete jednoducho skopírovať túto funkciu tam bez úprav .
2

vložte nasledujúci kód nad " hlavné" funkcie :

Sub bubblesort ( ByRef arr ( ) As Integer )

Dim temp

Dim prepínač = TRUE

Kým spínač

switch = False

x = 0 arr.Length - 2

Ak arr ( x ) > arr ( x +1 ) Potom

temp = arr ( x )

arr ( x ) = arr ( x +1 )

arr ( x +1 ) = temp

spínač = TRUE

End If

Ďalšie

End Kým

End Sub

dôležité si uvedomiť , je , že ARR sa do podprogramu " ByRef . " To umožňuje funkcia zmeniť obsah poľa
3

vložte nasledujúci do funkcie " hlavnej " pre testovanie metódy bubblesort : .

Sub Main ( ) celým

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

Console.WriteLine ( " Nezaradené " )

každé x ARR

Console.Write ( x & " Každá x V arr

Console.Write ( x & " " )

Ďalšie

Console.ReadKey ( )

End Sub

End Module

To vytvára jednoduchý , zmesný pole celých čísel a povie bubblesort triediť ich , potom vytlačí výsledky .

• Predchádzajúca strana: Ako si vyrobiť do konverzačnej miestnosti v jazyku Visual Basic Express 
• Ďalšia strana: Ako používať VBS pre stlmenie zvuku