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
