Visual Basic.Net--Bubble Sort Sıralaması

Form görüntüsü

"BAS" tuşuna basın ve sol tarafta listbox'ın içinde rastgele sayıları,sağ taraftaki listbox'ın içinde de bubble sort yöntemiyle o sayıların küçükten büyüğe sıralı halini göreceksiniz.
----------------------------------------------------------------------------

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim deger
        Dim sayi, ara, z, y, art As Integer
        For i = 1 To 10
            Randomize()
            deger = Int((100 * Rnd()) + 1)
            ListBox1.Items.Add(deger)
        Next
        For s = 0 To 9
            ListBox2.Items.Add(ListBox1.Items(s))
        Next
        For i = 0 To 8
            For x = 0 To 8
                z = ListBox1.Items(x)
                art = x + 1
                y = ListBox1.Items(art)
                If z > y Then
                    ara = ListBox1.Items(x)
                    ListBox1.Items(x) = ListBox1.Items(x + 1)
                    ListBox1.Items(x + 1) = ara
                End If
            Next
        Next
    End Sub
End Class

---------------------------------------------------------------------------
Kodda geçen bazı fonksiyonların işlevi
Rnd() Fonksiyonu
Rastgele sayı türetmek için kullanılır.Türetilen sayi [0-1) aralığındadır.Türetilen sayılar ondalıklıdır.Rnd foksiyonu her seferinde farklı değerler üretsin diye Randomize() ifadesi kulanılır.Aksi takdirde hep aynı rastgele sayıyı verecektir.
Örnekler:
Rnd*5 ifadesi -->"0 dahil ve 5'in dahil olmadığı aralıktaki herhangi bir sayı"
Rnd()*11  --> "0 ile 10.99999 arası sayılar (sınırlar dahil)"
Int(Rnd()*11)  --> "0 ile 10 arası tam sayılar (sınırlar dahil)"
Int(Rnd()*11)+10  --> "10 ile 20 arası tam sayılar (sınırlar dahil)"