Question

How to find all the armstrong numbers in the range of 0 and 999 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 reminder As Integer, sum As Integer, tmp As Integer

        For n As Integer = 0 To 999

            tmp = n
            sum = 0

            While tmp <> 0

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

            If (sum = n) Then
                Console.WriteLine("{0}", n)
            End If
        Next


    End Sub

End Module

' run:
' 
' 0
' 1
' 153
' 370
' 371
' 407

 

70+ SQL courses for beginners and professionals