Sayıları Sıralayalım | VB

Düşünüki Elinizdeki Sayıları Sıralatmak istiyorsunuz.

Mesela dizideki sayıları dizinin indeksine göre küçükten büyüğe dizmek istiyoruz.

Dizimizin adı Sayılar() olsun ve toplam 50 sayı depolasın yani

ReDim Sayılar(50)

Buyrun Kod;

For x=1 to 50
For y=x+1 to 50

If Sayılar(x)>Sayılar(y) Then '1.Sayı 2.Sayıdan büyükse yerlerini değiştirme.Yani küçük sayı başa gelir

m_s=Sayılar(x)
Sayılar(x)=Sayılar(y)
Sayılar(y)=m_s

End If

Next y
Next x

Hepisi Bu =).If satırındaki büyüktür (>) işaretini, küçüktür (<) ile değiştirirseniz diziniz büyükten küçüğe sıralanmış olur.