Option Explicit 'This will restrict us to declare variable
Private Sub cmdDisplay_Click()Print "Amstrong Numbers are"Call DisplayEnd SubPublic Function Display()Dim number As IntegerDim i As IntegerDim reminder As IntegerDim sum As IntegerFor i = 2 To 1000number = isum = 0While number > 0reminder = number Mod 10sum = sum + (reminder * reminder * reminder)number = number \ 10WendIf i = sum ThenPrint iEnd IfNextEnd Function
Armstrong Numbers between 1 to 1000
Subscribe to:
Posts (Atom)
No comments:
Post a Comment
Note: only a member of this blog may post a comment.