Girilen Sayıyı Büyükten Küçüğe Sıralamak

ads

ads

Bu derste basit bir ListBox'a yazılan 10 tane sayıyı büyükten küçüğe sıralayan basit bir program yapacağız.

Forma eklemeniz gereken araçlar:

1 Adet ListBox

Kod:

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 & ".Herhangi Sayı Girin...")
        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

Video

ads