Bu programımızda 1 ile 100 arasında 50′den küçük olan sayıları bulmak için tasarlanmıştır.

50 nin altındaki sayıları bulalım.Bu programı yazmak için bir adet label buton  label ve listbox’a ihtiyacımız var olamktadır.

2 adet değişken belirliyoruz.
Dim a, b As Integer
Daha sonra Formun Loadında Label1’i 0 ‘a eşitliyoruz.
Ve button’un click’ine a=a+1 komutunu yazıyoruz . yani a her tıklandığında birer birer artıyor. Ve If a = 10 Then Button1.Enabled = False
Kodlarını yazıyoruz . eğer a 10’a eşit olduğunda buton1 kapanacaktır .
Ve daha sonra Rastgele sayı bulmaya yarayan Randomize komutunu ayzmaya başlıyoruz bu komutu b değişkenin içine atıyoruz.
Randomize()
b = Int(Rnd() * 101)
Daha sonra tekrar şart belirliyoruz eğer b küçük veya eşitse 50 ye label1 teker teker artsın komutunu yazıyoruz
If b <= 50 Then Label1.Text = Label1.Text + 1

Bütün bu komutları yazdıktan sonra programımız çalışacaktır butona maximum 10 defa basılacaktır. Her basılıdığında rastgele bir sayı bulunacaktır . Bulunan Bu sayıların kaç tanesi 50 ‘den küçükse labelde yazılacaktır.

Yazılan tüm rakamları görebilmemiz içinde son olarak ;

ListBox1.Items.Add(b)    bu kodları yazarız.Ve programı çalıştırdıktan sonra sonuç olarak ortaya çıkan tüm rakamları listelemiş oluruz..

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.