Question

How to check if a number is armstrong number or not in VB.NET

Answer 1

Module Module1

    ' An Armstrong number of three digits is an integer that the sum 
    ' of the cubes of its digits Is equal to the number itself

    ' 371 Is an Armstrong number 3**3 + 7**3 + 1**3 = 371

    Sub Main()

        Dim n As Integer = 371, reminder As Integer, sum As Integer = 0, tmp As Integer

        tmp = n

        While n <> 0

            reminder = n Mod 10
            n = n \ 10
            sum = sum + (reminder * reminder * reminder)
        End While

        If (sum = tmp) Then
            Console.WriteLine("{0} is an Armstrong number", tmp)
        Else
            Console.WriteLine("{0} is not an Armstrong number", tmp)
        End If

    End Sub

End Module

' run:
' 
' 371 is an Armstrong number

 

70+ SQL courses for beginners and professionals