Question

How to print all armstrong numbers between 1 to 500 in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Function armstrong(ByVal n As Integer) As Integer
        Dim remainder As Integer, result As Integer = 0

        While n > 0
            remainder = n Mod 10
			n = n \ 10 ' \ not /
            result += remainder * remainder * remainder
        End While

        Return result
    End Function

    Public Shared Sub Main()
        For i As Integer = 1 To 500
            If i = armstrong(i) Then Console.WriteLine(i)
        Next
    End Sub
End Class




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

 

70+ SQL courses for beginners and professionals