Bu dersimizde girilen 10 sayıyı büyükten küçüğe ListBox'a yazdıran kodları göstermek istiyorum.

Gerekli nesneler:
- 1 tane ListBox

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sayi(10), yedek, k, i, j As Long
        For i = 1 To 10
            sayi(i) = InputBox(i & ".Sayıyı Giriniz...")
        Next i
        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
        For k = 1 To 10
            ListBox1.Items.Add(sayi(k))
        Next k
    End Sub
End Class