Question

How to check whether number is perfect or not in VB.NET

Answer 1

Module Module1

    Sub Main()

        ' perfect number is a positive integer that is equal to the sum of its positive divisors
        Dim num As Integer = 496, i As Integer = 1, sum As Integer = 0

        Do While (i < num)
            If (num Mod i = 0) Then
                sum = sum + i
            End If
            i = i + 1
        Loop
        If (sum = num) Then
            Console.WriteLine("{0} is a Perfect Number", num)
        Else
            Console.WriteLine("{0} is Not a Perfect Number", num)
        End If

    End Sub

End Module

'run:
' 
'496 is a Perfect Number

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        Dim num As Integer = 496

        If (isPerfectNumber(num)) Then
            Console.WriteLine("{0} is a Perfect Number", num)
        Else
            Console.WriteLine("{0} is Not a Perfect Number", num)
        End If

    End Sub

    Function isPerfectNumber(n As Integer) As Boolean
        Dim i As Integer = 1, sum As Integer = 0

        Do While (i < n)
            If (n Mod i = 0) Then
                sum = sum + i
            End If
            i = i + 1
            Loop
        Return sum = n
    End Function

End Module

'run:
' 
'496 is a Perfect Number

 

70+ SQL courses for beginners and professionals