Sayıları Büyükten Küçüğe Doğru Sıralama
Gerekenler: 1 adet listbox,1 adet Command Buton
*************************
Private Sub Command1_Click()
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
For k = 1 To 10
List1.AddItem sayi(k)
Next
End Sub
************************* |
