İnputBox'a Girilen Sayıları Listeye Büyükten Küçüğe Sıralama
Geçenlerde Biri Benden Msn'den İstedi Şimdi kim olduğunu Hatırlamıyorum. ama O-H'de Takıldığını Söylemişti. Görür Alır diye Koyuyorum.Çok Basit Ama Döngü Kurmayı bilmeyenlerimiz vardır. Buyrun örnek olsun. Malzemelere Geçelim.
Kullancaklarımız:
1 tane Listbox
1 tane Commandbuton
Buton'içine
Kod:
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
Not= Butona Bastığınızda İnpuBox Gelecek Ona Yazdığınız Sayıları Listeye Sıralıcak.
04-30-2011, 11:33
İnputBox'a Girilen Sayıları Listeye Büyükten Küçüğe Sıralama 
Normal
