Rakamları Büyükten Küçüğe Sıralamak - Vb.Net

ads

ads

Bu derste basit bir işlem ile Sayıları büyükten küçüğe sıralamayı göreceğiz.

Forma eklemeniz gereken araçlar:

1 tane ListBox
1 tane Button

Kodlama:

Dim sayi(10) As Long 'sayi(10) indisli değişken anlamına gelir'
 For i=1 to 10
  sayi(i)=Inputbox(i & ".Tebrikler sayı girişi başarılı...")'sayılar alınıyor...
 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

ads