Imports System

​

Public Module Module1

​

    CONST MESSAGE = "Enter 1 to search. -1 to quit"

​

    Private sIDs() as integer = {20100, 20101, 20200}

​

    Private anEnglish_Results() = {50, 100, 75}

​

    'ADD SOME RESULTS FOR MATHS AND ENGLISH

    private anMath_Results() = {72, 90, 83}

    private anScience_Results() = {45, 57, 86}

    Public Sub Main()

        Console.WriteLine("Starting")

        Console.WriteLine(MESSAGE)

        Dim nOption as integer

        'you can use the Convert library to convert between datatypes

        nOption = Convert.ToInt32(console.ReadLine())

        Do While nOption <> -1

            if nOption = 1 then

                SearchForResult()

            end if

​

            Console.WriteLine(MESSAGE)

            nOption = Convert.ToInt32(console.ReadLine())

        Loop

    End Sub

​

    Public Sub SearchForResult()    

        'input an ID

        Dim userID as integer = console.ReadLine()

        Dim studentFound as Boolean = false

        'loop through the IDS

        For i as integer = 0 to sIDs.GetUpperBound(0)

            Dim studentId as Integer = sIDs(i)

            If userID = studentId then

                studentFound = true

                'print out results

                console.WriteLine(String.Format("English: {0}", anEnglish_Results(i))) 

                console.WriteLine(String.Format("Math: {0}", anMath_Results(i))) 

                console.WriteLine(String.Format("Science: {0}", anScience_Results(i)))

                console.WriteLine()

                exit for

            End If

        Next

        If not studentFound Then

            console.WriteLine("ID is not found")

        End If

    End Sub

End Module

​