Imports System

​

Public Module Module1

dim data(100,4) as string

dim cnt as integer

function spaces(int as integer)

    for i=1 to int

        console.Write(" ")

    next

end function

function repeat(id as integer) as boolean

    for i=0 to cnt-1

        if data(i,0) = id

            return true

        end if

    next

    return false

end function

function display()

    console.Write("ID")

    spaces(7)

    console.Write("English")

    spaces(4)

    console.write("Maths")

    spaces(6)              

    console.Writeline("Science")

    console.WriteLine("----------------------------------------")

    for i=1 to cnt-1

        console.Write(data(i,0))

        spaces(4)

        for j=1 to 3

        console.Write(data(i,j))

        spaces(9)

        next

    console.WriteLine()

    next

end function

​

function inputData() as boolean

    dim str as string

    dim score() as string

    str = console.ReadLine()

    score = str.Split(",")

​

    if score.length < 4 or score.Length >= 5

        return false

    end if

​

    while score(0).length <> 5 or repeat(score(0)) = true

        if score(0).length <> 5

            console.Writeline("Student ID length must be equal to 5. Please enter again:")

            score(0) = console.ReadLine()

        else

            console.WriteLine("Student ID already exists! Please enter again:")

            score(0)=console.ReadLine()

        end if

    end while

    data(cnt,0) = score(0)

    for i=1 to 3

        dim num as integer

        num = Convert.ToInt32(score(i))

        while num > 100

            console.Write("Results cannot be greater than 100. Please re-enter result no.")

            console.Write(i)

            console.WriteLine(" again:")

            num=console.ReadLine()

        end while

        if num<20 

            num=20

        end if

    data(cnt,i) = convert.ToString(num)

    next

return 1

end function

​

Public Sub Main()

cnt = 1

dim type as integer

while 1

    console.writeline("What would you like to do?, 1 - Input Results,  2 - See Results,  3 - Search ID,  4 - Quit")

    type = console.readline()

    if type = 1

        console.WriteLine("Please input the id and results in CSV format:")

    while inputData() = false

        console.WriteLine("Invalid input format. Please enter again:")    

    end while

    console.Write("Your no.")

    console.Write(cnt)

    console.WriteLine(" set of results has been entered!")

    cnt+=1

    else if type=2

        display()

    end if

end while

End Sub

End Module