Visual Basic .NET Sayıları Bulan Program

visual basic logo‘vb.net de yeni bir proje aciniz ve 2 adet textbox,1 adet buton,1 adet listbox ekleyiniz. ilk Once mükemmel sayiyi acıklayayım..
mukemmel sayi kendisi bolen butun sayilarinin toplamina denir.
ornegin 1+2+3=6 gibi … 1 +2 +4 +7+14 = 28 gibi …
Dim Sayi,Sayac,Bolen as integer ‘ 3 adet deger tanimladik
For sayi = textbox1.text to textbox2.text ‘ sayi dongusunun icine kulanıcının giricegi 2 parametre verdik
sayac=0 ‘ sayaci 0 ladık mutlaka dongunun icinde olması lazım.
for bolen = sayi -1 to 1 step -1 ‘ burada bolen dongusunu sayi’nin 1 eksiginden 1 e kadar olan sayıları alıp bu sayılardan 1 cıkardık mesela 1 ile 10 arasındaki sayilar diyelim 10-1=9-1=8-1=7-1=6 gibi 1 e kadar goturur
if sayi mod bolen =0 then ‘ sayinin bolene bolumunden kalan 0 ise dedik
sayac+=bolen ‘ bolene sayac ekle
end if ‘ şartımızı bitirdik
next ‘ bolen dongusunun bitirdik
if sayi=sayac then ‘ sayi eger sayaca esit olursa
listbox1.items.add(sayi) ‘ listbox a sayi dongusundeki elemanları ekle
end if ‘ şartı bitirdik
next ‘ donguyu bitirdik.

Cevap Gönder

E-posta adresiniz yorumunuzda yayınlanmayacaktır.