VB_2014_SLIP 17

SLIP 17_1

Option Explicit

Private Sub Command1_Click()

Dim a(6) As Integer

Dim i As Integer

For i = 0 To 6

a(i) = Val(InputBox("Enter Array elements"))

Next i

For i = 0 To 6

If a(i) Mod 2 = 0 Then

Print "Even No : " & a(i)

Else

Print "Odd No: " &a(i)

End If

Next

End Sub