Visual Basic 'te Sayıları Büyükten Küçüğe Doğru Sıralama
Kullancaklarımız:
1 adet Listbox , 1adet 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