The Bubble Trier est l'un des premiers algorithmes de tri tirés par un étudiant en science informatique, car il est l'un des plus simples à mettre en œuvre et plus intuitive. La procédure de base est simple: à partir du début du tableau, le programme passe à travers le réseau à la recherche d' un élément de tableau qui est plus grand que celui à sa droite , et les swaps eux. Il recommence alors et répète le même processus sur le nouveau tableau. Il fait cela jusqu'à ce qu'il puisse passer par l'ensemble du réseau sans éléments permutation. En pratique, cela donne l'impression que si les grands éléments du tableau sont des bulles qui flottent à la surface du tableau. Instructions
1

Ouvrez Visual Basic et cliquez sur "Fichier " et "Nouveau projet " pour créer un nouveau projet . Sélectionnez " ConsoleApplication . " Quand vient le temps d'entrer votre code dans un projet réel avec une interface utilisateur graphique (GUI) , vous pouvez simplement copier cette fonction là sans modification.
2

Collez le code suivant au-dessus de la "Main" fonction :

Sous BubbleSort ( ByRef arr () As Integer)

Dim température

interrupteur Dim = True

alors que le commutateur

basculer = False

Pour x = 0 To arr.Length - 2

Si arr (x)> arr ( x +1) Puis

temp = arr ( x )

arr (x) = arr ( x +1)

arr ( x +1) = Temp Changer de

= True

End If

Suivant

End While

End Sub

Une chose importante à reconnaître est que l' arr est passé dans le sous-programme " ByRef . " Ceci permet à la fonction de modifier le contenu du tableau
3

Collez le texte suivant dans la fonction "Main" pour tester la méthode BubbleSort : .

Sub Main ( ) Photos

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

Console.WriteLine (" trier" ) Photos

For Each x In arr

Console.Write ( x & " Chaque x Dans arr

Console.Write ( x & "" )

Suivant

Console.ReadKey ()

End Sub
< p > End Module

Cela génère un tableau simple , non triés des entiers et raconte BubbleSort de les trier , puis imprime les résultats.