InputBox tan Girilen Sayıları Büyükten Küçüğe Sıralama

Bu örneğimizde InputBox tan girilen sayıları ListBox ta büyükten küçüğe sıralamayı göreceğiz.

Public Class Form1

    Private Sub btnGir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGir.Click
        Dim i, j, k, yedek As Integer
        Dim sayi(10) As Long
‘sayi(10) indisli değişkendir
        For i = 1 To 10
            sayi(i) = InputBox(i & ".Sayıyı Giriniz...") ‘sayıları alıyoruz
        Next
        For i = 1 To 10
            For j = 1 To 10

                If sayi(i) > sayi(j) Then
                    yedek = sayi(j)
                    sayi(j) = sayi(i)
                    sayi(i) = yedek
                End If

            Next j
        Next i
      
       ‘Buyukten Kucuge Siralama
        For k = 1 To 10
            ListBox1.Items.Add(sayi(k))
        Next

        ‘Kucukten Buyuge Siralama
        ‘For k = 10 To 1 Step -1
        ‘ListBox1.Items.Add(sayi(k))
        ‘Next
    End Sub
End Class