Imports System

​

Public Module Module1

​

    dim StudentID(0) as string

​

    dim Math_Result(0), Eng_Result(0), Sci_Result(0) as integer

​

    dim studentnum as integer

​

    dim average as integer

​

    Public Sub Main() 'these sub routines will be used later on 

        InputStudentNum()

        findaverage()

        displaynameandmarks()

        searchforstudentresults()

    End Sub

​

    public sub inputstudentnum()

        console.WriteLine("enter number of students in class") 'number of students in the class is inputted

        studentnum = console.readline()

        inputnameandmarks()

    End Sub

​

    public sub inputnameandmarks()

        dim studentmarks as string

        dim student(3) as string

        dim valid as boolean = true

        redim StudentID(studentnum - 1), Math_Result(studentnum - 1), Eng_Result(studentnum - 1), Sci_Result(studentnum - 1)

        for i = 1 to studentnum

            do

                valid = true

                console.WriteLine("enter info{0}(in CSV format ID,Result_English,Result_Maths,Result_Science):", i)

                studentmarks = console.ReadLine()

                student = studentmarks.Split(",")

                'need to validate that there are 4 entries in the array 

                if student(0).Length <> 5 then

                    console.writeline("ID Invalid")

                    valid = false

                else if student(1) > 100 or student(1) < 0 then

                    console.WriteLine("marks are invalid")

                    valid = false

                else if student(2) > 100 or student(2) < 0 then

                    console.WriteLine("marks are invalid")

                    valid = false

                else if student(3) > 100 or student(3) < 0 then

                    console.WriteLine("marks are invalid")

                    valid = false

                end if

            Loop until valid = true

​

            StudentID(i - 1) = student(0)

            Eng_Result(i - 1) = validatemarks(student(1))

            Math_Result(i - 1) = validatemarks(student(2))

            Sci_Result(i - 1) = validatemarks(student(3))

        next

    End Sub

​

    public Function validatemarks(mark as integer) as integer 'rename to more accurate name (apply minimum mark or something of the like)

        if mark < 20 then

            mark = 20

        end if

​

        return mark

    end function

​

    public sub findaverage()

        dim sum as integer 'average is calculated for english (need to repeat for other subjects)

        for i = 0 to studentnum - 1

            sum = sum + eng_result(i)

        next

​

        average = sum / studentnum 'assumption has been made that averages are whole numbers

    end sub

​

    public sub displaynameandmarks()

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

        For i = 0 to studentnum - 1

            Console.WriteLine("{0,-8}{1,-8}{2,-8}{3,-8}", StudentID(i), Eng_Result(i), Math_Result(i), Sci_Result(i))

        next

​

        console.WriteLine("English Average is {0}", average)

    end sub

​

    public sub searchforstudentresults()

        dim i as integer

        dim search as string

        dim found as boolean = false

        console.WriteLine("enter student ID you're looking for")

        search = console.ReadLine()

        for i = 0 to studentnum - 1

            if StudentID(i) = search then

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

                Console.WriteLine("{0,-8}{1,-8}{2,-8}{3,-8}", StudentID(i), Eng_Result(i), Math_Result(i), Sci_Result(i))

                found = true

                exit for

            end if

        next

​

        if found = false then

            console.WriteLine("Not found!")

        end if

    end sub

End Module

​