Imports System

'Rowan Ruf

'4/22/2021

'Odd or Even

Public Module Module1

    Public Sub Main()

        Dim currentNum As Integer   'Declare Numbers

        Dim evenCount As Integer

        Dim oddCount As Integer

        Dim numbers() As Integer = {2, 10, 8, 9, 13, 34, 54, 67, 77, 89, 90}    'Get User Input

        For index As Integer = 0 To numbers.Length - 1

            currentNum = numbers(index)

​

        If currentNum mod 2 = 0 Then    'Calculations

                evenCount += 1

            Else

                oddCount += 1

            End If

        Next index

    Console.Writeline("There are " & evenCount & " Even numbers")   'Output

    Console.Writeline("There are " & oddCount & " Odd numbers")

​

​

    End Sub

​

End Module