Visual Basic Mükemmel Sayı

Visual Basic programı gelişim aşamasında  karşımıza visual basic  mükemmel sayı nasıl yapılır sorusu çıkıyor.

Bu kodlar ile birlikte  programda mükemmel sayı olup olmadığı hesabını kolayca yapabileceksiniz.

Mükemmel Sayı Nedir ? 

Mükemmel sayı, Sayılar teorisine göre kendisi hariç diğer pozitif bölenlerinin toplamı kendisine eşit olan sayıya denir. Kısaca mükemmel sayı bütün pozitif tam bölenlerinin toplamının 2 ye bölümüne eşittir.

 

Visual Basic Mükemmel Sayı Uygulaması

Dim sayi1, sayi2, toplam, a As Long 
Private Sub Button1_Click(sender As Object, e As EventArgs) 
Handles Button1.Click 
sayi1 = TextBox1.Text 
toplam = 0
For a = 2 To sayi1 / 2 
If sayi1 Mod a = 0 
Then 
toplam = toplam + a 
Next 
If toplam + 1 = sayi1 
Then 
MsgBox("MÜKEMMEL SAYIDIR!") 
Else 
sayi2 = sayi1 Do toplam = 0 
sayi2 = sayi2 + 1 
For a = 2 To sayi2 / 2 
If sayi2 Mod a = 0 Then 
toplam = toplam + a
Next 
Loop Until toplam + 1 = sayi2 
MsgBox("MÜKEMMEL SAYI DEĞİLDİR!") 
End If 
End Sub 
//End Class

 

 

Sizlerde kendi yazdığınız programları, istek ve sorularınızı bizlere iletişim kısmından iletebilirsiniz.

Visual Basic ile ilgili kavramlara ek olarak, Visual Basic öğrenimini teşvik etmek için karar verme ve döngü kontrolleri dahil olmak üzere bazı örnekler ve örnek uygulamalar vardır.

Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.

Diğer Örnek Programlar :

VİSUAL BASİC ASAL SAYI BULMA

RADİOBUTTON İLE HESAP MAKİNESİ YAPIMI

VİSUAL BASİC DOĞUM TARİHİNE GÖRE BURCUNU BULAN PROGRAM

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.

Makale Hizmeti