Sayıları büyükten küçüğe doğru sıralama

Büyükten küçüğe sıralama programı...

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

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 12 yıl önce
TextBox yardımıyla ekrandan girilecek sayıları seçime bağlı olarak Küçükten Büyüğe veya Büyükten Küçüğe Bubble Sıralama Algoritmasını kullanarak sıralayan programını yazabilirmisiniz?
• 12 yıl önce
kısa ve öz teşekkürler.
• 12 yıl önce
çok güzel olmuş çok teşekkürler yardımlarınız için.
• 12 yıl önce
emeğine parmaklarına sağlık allah razı olsun idolümsün :D
• 12 yıl önce
faik1 teşekkür ederim arkadşım..
• 12 yıl önce
ellerine sağlık kısa ve öz:D
• 12 yıl önce
bende bunu arıyordum tşk ederim saol
• 12 yıl önce
yeni öğrenen biri için verilebilecek en iyi ders
• 11 yıl önce
ustam sorum su ..... ? buradaki sayılar yerine listbox boyutu buyuk bir şekilde iken içine kelime yazabilmek denedim olmadı .... nasıl olur sizce saygılar
• 11 yıl önce
ya benmki nie olmuyo :agla: anlattığınız şekilde yapıyorum ama olmuyo...
• 11 yıl önce
ARKADAŞLAR BANA ACİLEN GİRİLEN 10 İSMİ ALFABETİK OLARAK SIRALAYAN PROGRAM LAZIM ÇOK ACİLLL...YARDIMLARINIZI BEKLİYORUM..
çok faydalı teşekkür ederim iyi çalışmalar!!!
• 11 yıl önce
cok gozel olmus.Ben shunu ariyordum.

Yukarı Git