Keskustelu: Koodit: VB6: Bubble Sort

Private Sub Command1_Click()
    Dim ar() As String 'Taulukkomuuttuja
    Dim a As Long
    Dim b As Long
    Dim c As Long
    Dim i As Long
    Dim x As Long
    Dim Retval As String
    'kapallinen muita muuttujia
    ar = Split(Text1.Text, ",") '_räjäytetään_ text1 taulukkoon
    For i = 0 To UBound(ar) 'eka looppi
        For x = i + 1 To UBound(ar) 'toinen looppi
            a = ar(i) 'a on taulukon i indexi
            b = ar(x) 'b on taulukon x indexi
            If a < b Then ' verrataan että onko a pienempi kuin b jos on niin
            'tehdään niin kutsuttu swap toiminto
            c = ar(i) 'c on taulukon i indexi eli siis otetaan talteen eka arvo
            ar(i) = b 'taulukon i indexi on b
            ar(x) = c 'taulukon x indexi on c
            End If 'iffi on loppu
        Next x 'nextiä
    Next i 'nextiä

    For i = 0 To UBound(ar)
        Retval = Retval & ar(i) & " " 'retvalliin tulostetaan taulukko uudestaan
    Next i
        MsgBox Retval 'näytetään käyttäjälle taulukko
End Sub