Imports System

Public Module Module1

    Public Sub Main()

        Dim numbers(9) As Integer

        Static rng As New Random

        For index As Integer = 0 To 9

            numbers(index) = rng.Next(1, 100)

            Console.WriteLine(numbers(index))

        Next

        Console.WriteLine("Even")

        For index As Integer = 0 To 9

            If numbers(index) Mod 2 = 0 Then

                Console.WriteLine(numbers(index))

            End If

        Next

​

        Console.WriteLine("Odd")

        For index As Integer = 0 To 9

            If numbers(index) Mod 2 <> 0 Then

                Console.WriteLine(numbers(index))

            End If

        Next

    End Sub

End Module

​