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"))
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
End Sub

No comments:

Post a Comment

Note: only a member of this blog may post a comment.