Pengurutan Bubble Sort Dengan Visual Basic 6.0

Algoritma bubble sort dalam metode pengurutan data secara sederhana bisa diibaratkan seperti halnya gelembung udara (bubble). Algoritma ini akan menggeser nilai yang terkecil atau terbesar (sesuai dengan jenis pengurutan, ascending atau descending) ke posisi ujung dari daftar. Demikian seterusnya hingga semua daftar dalam keadaan terurut.

Berikut saya memberikan contoh program dengan menggunakan Visual Basic untukprogram penggurutan Bubble Sort ini, yaitu :

Komponen :

Textbox1 --> bil
Textbox2 --> n
Textbox3 --> hasil
Command1 --> nama nya tetap Command1

Private Sub Command1_Click()
    Dim bila() As String
    Dim i As Integer
    Dim temp As String
    bila = Split(Bil.Text, ",")

    For i = 1 To n
        j = n - 1
        Do While j >= i
            If Val(bila(j)) < Val(bila(j - 1)) Then
                temp = bila(j)
                bila(j) = bila(j - 1)
                bila(j - 1) = temp
            End If
            j = j - 1
        Loop
    Next i

    Hasil.Text = ""
    For i = 0 To n - 1
        If i = 0 Then
            Hasil.Text = Hasil.Text & bila(i)
        Else
            Hasil.Text = Hasil.Text & "," & bila(i)
        End If
    Next i
End Sub

Private Sub Form_Load()
    Bil = ""
    Hasil = ""
    n = ""
End Sub

ini hasilnya :