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.
