VB_2014_SLIP 22

 

SLIP 22_1

Option Explicit

Private Sub cmdClick_Click()

Dim a(3) As Integer

Dim armno As Integer

Dim i As Integer

For i = 0 To 3

a(i) = Val(InputBox("Enter number"))

Next

armno = Val(InputBox("Enter Armstrong Number"))

For i = 0 To 3

If armno = a(i) Then

Print "Armstrong number is present in an array" &armno

Exit For

End If

Next

End Sub