February 27
La Bubble Sort è uno dei primi algoritmi di ordinamento apprese da uno studente informatica, poiché è uno dei più semplici da implementare e più intuitivo. La procedura di base è semplice: partendo dall'inizio della matrice, il programma passa attraverso l'array ricerca di un elemento di matrice che è più grande di quella alla sua destra, e scambia. Si ricomincia e ripete lo stesso processo sul nuovo array. Lo fa fino a quando si può procedere attraverso l'intero array senza elementi di scambio. In pratica, questo fa sembrare come se gli elementi più grandi nell'array sono bolle che galleggiano all'inizio dell'array.
1 Aprire Visual Basic e fare clic su "File" e "Nuovo progetto" per creare un nuovo progetto. Selezionare "ConsoleApplication." Quando arriva il momento di inserire il codice in un progetto reale con un'interfaccia utente grafica (GUI), si può semplicemente copiare questa funzione non senza modifiche.
2 Incollare il seguente codice sopra la funzione "principale":
Sub BubbleSort(ByRef arr() As Integer)
Temp Dim
interruttore Dim = True
mentre l'interruttore
Interruttore = False
Per x = 0 Per arr.Length - 2
Se arr (x)> arr (x + 1) Allora
temp = arr (x)
arr (x) = arr (x + 1)
arr (x + 1) = Temp
Interruttore = True
Finisci se
Il prossimo
End While
End Sub
Una cosa importante da riconoscere è che il arr viene passato nella subroutine "ByRef". Questo permette la funzione di modificare i contenuti della matrice.
3 Incollare il seguente nella funzione "Main" per testare il metodo BubbleSort:
Sub Main()
Dim arr = {3, 4, 5232, 1, 232, 12, 34, 14, 21, 213, 213, 21, 321}
Console.WriteLine ( "Unsorted")
Per ogni x in arr
Console.Write (x & "")
Il prossimo
Console.WriteLine ()
BubbleSort (arr)
Console.WriteLine ( "Sorted")
Per ogni x in arr
Console.Write (x & "")
Il prossimo
Console.ReadKey ()
End Sub
Modulo fine
Questo genera un semplice, un array di interi non differenziati e dice a BubbleSort di ordinarli, quindi stampa i risultati.