Display the Even Numbers of an Array VB Code (By Sheraz)
Code:
Module Module1
Sub Main()
Dim ar As Integer()
ar = New Integer() {15, 8, 1, 6, 34, 7, 5, 342, 4, 7}
For i = 0 To ar.GetUpperBound(0)
If ar(i) Mod 2 = 0 Then
Console.WriteLine(ar(i) & vbTab & "Is an Even Number")
End If
Next
Console.ReadLine()
End Sub
End Module