Rastgele üretilen 10 sayıyı diziye ekleyip sıralamak

Public Class Form1
Sub listelesene()
ListBox1.Items.Clear() 'listbox'ı temizle
For i = 0 To 9 '10 defa aşağıdaki işlemi yap
ListBox1.Items.Add(s(i)) ' s dizisinin i. elemanına listbox'a ekle
Next
End Sub
Dim s(9) As Integer 'Programın her yerinde kullanabilmem için global tanımladım.(burada tanımlayınca global oluyor)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To 9
s(i) = Int(Rnd() * 100) '1 ile 100 arasında rastgele bir tamsayı s dizisinin i. elemanına atanıyor
Next
listelesene() 'dizi elemanlarını listboxta gösterme işlemi 3 kez tekrarlanacağı için listelesene isimli procodure oluşturdum
'sürekli aynı komutları tekrardan yazmak zorunda kalmadım.Ayrıca programın boyutunu azaltmış oldum.
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Array.Sort(s) ' s dizisini küçükten büyüğe sırala
listelesene() 'listelesene procedure çalıştır.
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Array.Reverse(s) 's dizisinin sıralamasını ters çevir.
listelesene() 'listelesene procedure çalıştır.
End Sub
End Class

Projeyi İNDİR

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.