Question

How to check whether a number is a perfect number in VB.NET

Answer 1

' If the sum of all factors of a number is equal to the number, then the number is perfect
   
' 6
' factors = 1, 2, 3
' 1 + 2 + 3 = 6
	
Imports System

Public Class Program
	Public Shared Sub Main()
        Dim num As Integer = 6
        Dim sumOfFactors As Integer = 0

        For i As Integer = 1 To num - 1
            If num Mod i = 0 Then sumOfFactors += i
        Next

        If sumOfFactors = num Then
            Console.Write("Perfect Number")
        Else
            Console.Write("Not a Perfect Number")
        End If
    End Sub
End Class




' run:
'
' Perfect Number
'

 

70+ SQL courses for beginners and professionals