Imports System

​

Public Module Module1

​

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

​

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

​

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

​

    'ADD SOME RESULTS FOR MATHS AND ENGLISH

    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()

        dim a as integer

        a = console.ReadLine()

        if a = sIDs(0) then

            console.WriteLine(anEnglish_Results(0))

        else if a = sIDs(1) then

            console.WriteLine(anEnglish_Results(1)) 

                else if a = sIDs(2) then

            console.WriteLine(anEnglish_Results(2))

                else                

                    console.WriteLine("ID not found")

                end if

    End Sub

End Module

​