Friday, 14 June 2013

Armstrong Number

Armstrong Number Code :-

Design Form like that :- 


And write down that code :-

Private Sub Command1_Click()
Dim i, x, r, n As Integer
n = InputBox("enter the numnber")
x = n
i = 0
While (x > 0)
r = x Mod 10
i = i + r * r * r
x = Int(x / 10)
Wend
If n = i Then
Print "Armstrong"
Else
    Print "not armstrong"
    End If
End Sub

Posted by at

7 comments:

  1. ABV Business Hub26 February 2019 at 18:31

    thanks for this information....and thanks for adding the design screen

    ReplyDelete
  2. shilohvpaswani12 June 2019 at 06:18

    This is awesome eyy.Thanks for the code

    ReplyDelete
  3. Unknown21 July 2019 at 11:25

    Nice codding.....help me to get understand easily.

    ReplyDelete
  4. Unknown21 July 2019 at 11:27

    Nice information

    ReplyDelete
  5. Anonymous11 September 2019 at 09:54

    thank you

    ReplyDelete
  6. Unknown25 November 2019 at 03:39

    This is not a proper code for armsArmst number. First we have to count the lenth of the number then power this count variable to each of the digit of the given number.

    ReplyDelete
  7. Om Prakash7 April 2022 at 08:32

    Thank you

    ReplyDelete

Subscribe to: Post Comments (Atom)