A) SAYILARI SIRALAMA
Girilen sayıları listboxa kaydedip ve tekrar yan listboxtta büyükten küçüğe ve küçükten büyüğe sıralayan program şu şekilde oluşturabilirz:
Yukarıdaki form görüntüsüne sahip programın kodlarını yazınız. İlk düğmeden sayılar girilecek , 2. ve 3. Düğmeden de sıralama işlemleri yapılacaktır.
Programımız 3 Button , 3label ve 3ListBoxtan Oluşuyor..
Yapılışı;
Önce Form1′de Değişken Tanımlayacağız;
Dim sayı(10) As Integer Dim sayaç, sayaç2, geçici As Integer
Button1 (sayıları gir ) Yazılacaklar;
For sayaç = 1 To 10 sayı(sayaç) = InputBox(sayaç & ".sayıyı gir") ListBox3.Items.Add(sayı(sayaç)) Next
Button2 (Küçükten büyüğe) yazılacaklar;
For sayaç = 1 To 9 For sayaç2 = sayaç + 1 To 10 If sayı(sayaç2) < sayı(sayaç) Then geçici = sayı(sayaç) sayı(sayaç) = sayı(sayaç2) sayı(sayaç2) = geçici End If Next Next For sayaç = 1 To 10 ListBox1.Items.Add(sayı(sayaç)) Next
Button3 (Büyükten Küçüğe) yazılacaklar,
For sayaç = 1 To 9 For sayaç2 = sayaç + 1 To 10 If sayı(sayaç2) > sayı(sayaç) Then geçici = sayı(sayaç) sayı(sayaç) = sayı(sayaç2) sayı(sayaç2) = geçici End If Next Next For sayaç = 1 To 10 ListBox2.Items.Add(sayı(sayaç)) Next
