Count Digit

 

Count Digit :-

In Out-put Enter the 5 to 10 digit in INPUT-BOX Like that :-

This Code for that:-

Private Sub Command1_Click()
Dim n, a, k As Integer
n = InputBox("enter the number")
While (n > 0)
a = n Mod 10
k = k + 1
n = Int(n / 10)
Wend
Print k
End Sub

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