Imports System

​

Public Module Module1

    dim num1() as string 'num1() is the variable for the entire set of data

    dim stu as integer 'number of students

    dim parts as string() 

    dim x as integer

    'max1-3 is the largest for each subject

    dim max1 as integer = 0

    dim max2 as integer = 0

    dim max3 as integer = 0

    'min1-3 is the minimum for each subject

    dim min1 as integer = 101

    dim min2 as integer = 101

    dim min3 as integer = 101

    'sum1-3 is the individual sum for each subject

    dim sum1 as integer = 0

    dim sum2 as integer = 0

    dim sum3 as integer = 0

    'ave1-3 is the average for each subject

    dim ave1 as integer

    dim ave2 as integer

    dim ave3 as integer

    dim digits as integer

    dim found as boolean = false

    dim i as integer

    dim search as string    

    dim value as string 

    dim ans as string

    Public Sub Main()

        for n = 0 to 100

        console.WriteLine("which sub would you like enter")

        console.Write("1=input, 2=display, 3=search")

        ans=console.ReadLine()

        if ans=1 then

            input()

        end if

        if ans=2 then 

            display()

        end if

        if ans=3 then

            find()

        end if

    next

    end sub

    public sub input()

        console.WriteLine("how many results will be entered?")

        stu = console.readline()

        redim num1(stu)'redim array length to 'stu'

        for x = 1 to stu

            console.WriteLine("please enter your data")

            num1(x) = console.ReadLine()

            parts = num1(x).split(",")

            digits = parts(0).length 'digits controls the length of the 'ID

    while parts(1) > 100 or parts(2) > 100 or parts(3) > 100 or digits<>5 or parts.length<>4  'validation for range of results

                console.WriteLine("please enter valid data")

                num1(x) = console.ReadLine()

                parts = num1(x).split(",")

                digits = parts(0).length

            end while

        while digits<>5 

            console.WriteLine("your ID is invalid, please re-enter entire data set") 'validation for ID number

            num1(x)=console.ReadLine()

            parts=num1(x).split(",")

            digits=parts(0).length

        end while

        while parts.length <>4

        console.WriteLine("your data set is too long/short, please re-enter entire data set") 'validation for item length

            num1(x)=console.ReadLine()

            parts=num1(x).split(",")

            digits=parts(0).length

        end while

        'the following are also validation for range

            if parts(1) < 20 then

        console.WriteLine("value cannot be under 20, your English result is being evaluated as 20")

                parts(1) = 20

            end if

​

            if parts(2) < 20 then

        console.WriteLine("value cannot be under 20, your Math result is being evaluated as 20")

                parts(2) = 20

            end if

​

            if parts(3) < 20 then

        console.WriteLine("value cannot be under 20, your Science result is being evaluated as 20")

                parts(3) = 20

            end if

​

        'calculation for the sums and the averages

            sum1 = parts(1) + sum1

            sum2 = parts(2) + sum2

            sum3 = parts(3) + sum3

            ave1 = sum1 / stu

            ave2 = sum2 / stu

            ave3 = sum3 / stu

        'finding out the largests and the smallests

            if parts(1) > max1 then

                max1 = parts(1)

            end if

​

            if parts(2) > max2 then

                max2 = parts(2)

            end if

​

            if parts(3) > max3 then

                max3 = parts(3)

            end if

​

            if parts(1) < min1 then

                min1 = parts(1)

            end if

​

            if parts(2) < min2 then

                min2 = parts(2)

            end if

​

            if parts(3) < min3 then

                min3 = parts(3)

            end if

        next

        end sub

    public sub display()

    'display sequences

        Console.WriteLine("{0,-8}{1,-10}{2,-8}{3,-8} ", "ID", "English", "Maths", "Science")

        for x = 1 to stu

    'num1(x) is redimed everytime, so a loop with x will repeatedly display each set of data

            parts = num1(x).split(",")

            Console.WriteLine("{0,-8}{1,-10}{2,-8}{3,-8} ", parts(0), parts(1), parts(2), parts(3))

        next

​

        Console.WriteLine("{0,-8}{1,-10}{2,-8}{3,-8} ", "max", max1, max2, max3)

        Console.WriteLine("{0,-8}{1,-10}{2,-8}{3,-8} ", "min", min1, min2, min3)

        Console.WriteLine("{0,-8}{1,-10}{2,-8}{3,-8} ", "ave", ave1, ave2, ave3)

    end sub

    public sub find()

    'search sequence

        console.writeLine("would you like to search for a student's results? 1=yes, 2=no.")

        value=console.ReadLine()

        if value=1 then 

        do

        if value=1 

            console.WriteLine("which student's values would you like to see?")

            search=console.ReadLine() 'the ID of the student is to be entered'

            for x = 1 to num1.length - 1 'uses x to loop (linear search method)

            parts = num1(x).split(",") 'cuts data again

            if parts(0) = search then 'parts(0)=ID of student

                console.WriteLine("data found")

                console.WriteLine(num1(x))

                found = true 'boolean value=true'

            end if

                next

        if found = false then 'boolean value=false

                console.WriteLine("data not found, please enter student ID again.")

                end if

            else if value=2 then

            end if

            console.writeLine("would you like to search for a student's results? 1=yes, 2=no.")

            value=console.ReadLine()

        loop while value =1 

        else if value=2 then

        end if 

    end sub

End Module

​