Imports System

​

Public Module Module1

dim data(100,4) as string

Dim average(4) as string

Dim max(4) as string

Dim min(4) as string

dim cnt as integer

​

function repeat(id as string) as boolean

    for i=1 to cnt-1

        if data(i,0) = id

            return true

        end if

    next

    return false

end function

​

Function calculate()

For j=1 to 3

Dim mx as integer

Dim mn as integer

Dim sum as integer

mn = 100

mx = 0

sum = 0

For i=1 to cnt-1

Dim num as integer

num = Convert.ToInt32(data(i,j))

If mx < num

    mx=num

End if

If mn > num

mn = num

End if

sum+=num

Next

average(j) = convert.ToString(sum/(cnt-1))

max(j) = convert.ToString(mx)

min(j) =  convert.ToString(mn)

Next

End function

​

function display()

    for i=0 to cnt-1

if i=1

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

end if

        for j=0 to 3

        console.Write("{0,-10}",data(i,j))

        next

    console.WriteLine()

    Next

    console.writeline()

calculate()

    For i=0 to 3

console.write("{0,-10}",average(i))

    Next

console.writeline()

 For i=0 to 3

Console.write("{0,-10}",max(i))

Next

console.writeline()

 For i=0 to 3

Console.write("{0,-10}",min(i))

Next

console.WriteLine()

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

average(0) = “AVERAGE”

max(0) = “MAX”

min(0) = “MIN”

​

data(0,0) = "ID"

data(0,1) = "English"

data(0,2) = "Maths"

data(0,3) = "Science"

dim type as integer

do  

console.WriteLine("Please choose the type of operation(1.input new data / 2.Displaying existent data)")

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

else if type=3 then

console.writeline("Ending program")

return true

    end if

loop until true

End Sub

End Module