Imports System

​

Public Module Module1

​

    Const AmountStudents = 3

    Private IDs(AmountStudents-1) as integer

​

    Private ENGs(AmountStudents-1) as integer

​

    Private MATs(AmountStudents-1) as integer

​

    Private SCIs(AmountStudents-1) as integer

​

    Public Sub Main()

        Dim nOption as integer

        Do while nOption <> -1

        Console.writeline("Options: Enter 1 to enter student data, enter 2 to display results and enter 3 to search for data.")

        nOption = Console.readline()

        select case nOption

            Case 1

                InputData()

            Case 2

            DisplayData()

            Case 3

                SearchData()

        End select

        Loop

    End Sub

​

    Public Sub InputData()

        Dim SubjectResult as string

        Dim SplittedResult() as string

        Dim IsValid as boolean

        Dim nTemp as integer

        For i = 0 to AmountStudents - 1

                Console.writeline("Please enter the student's results in the format of ID,English,Maths,Science as shown, without a space between each comma.")

                SubjectResult = Console.readline()

                SplittedResult = SubjectResult.split(",")

                nTemp = SplittedResult(0)

                IsValid = Validate_ID(nTemp)

                Do while IsValid = False

                    Console.writeline("Please re-enter the ID.")

                    nTemp = Console.readline()

                    IsValid = Validate_ID(nTemp)

                Loop

​

                IDs(i) = nTemp

                nTemp = SplittedResult(1)

                IsValid = Validate_Results(nTemp)

                Do while IsValid = False

                    Console.writeline("Please re-enter the English Result.")

                    nTemp = Console.readline()

                    IsValid = Validate_Results(nTemp)

                Loop

​

                ENGs(i) = nTemp

                nTemp = SplittedResult(2)

                IsValid = Validate_Results(nTemp)

                Do while IsValid = False

                    Console.writeline("Please re-enter the Maths Result.")

                    nTemp = Console.readline()

                    IsValid = Validate_Results(nTemp)

                Loop

​

                MATs(i) = nTemp

                nTemp = SplittedResult(3)

                IsValid = Validate_Results(nTemp)

                Do while IsValid = False

                    Console.writeline("Please re-enter the Science Result.")

                    nTemp = Console.readline()

                    IsValid = Validate_Results(nTemp)

                Loop

​

                SCIs(i) = nTemp

        Next

    End Sub

​

    Function Validate_ID(IDn as integer) as boolean

        If IDn < 9999 or IDn > 99999 then

            Console.writeline("Please only enter an ID number between 10,000 and 99,999.")

            Return false

        End if

​

        If array.indexof(IDs, IDn) <> -1 then

            Console.writeline("This ID  number is not unique.")

            Return false

        End if

​

        Return true

    End function

​

    Function Validate_Results(Resultn as integer) as boolean

        if Resultn < 20 or Resultn > 100 then

            Return false

        End if

​

        Return true

    End function

​

Public Sub DisplayData()

    Dim nStudents as integer

        nStudents = ENGs.Length

    Dim Average(2) as integer

        Dim Maximum(2) as integer

        Dim Minimum(2) as integer

    Dim Mark as integer

    Dim Total as integer

    Maximum(0) = ENGs(0)

    Minimum(0) = ENGs(0)

    For each Mark in ENGs

    Total += Mark

    If Mark > Maximum(0) then

        Maximum(0) = Mark

    End if

    If Mark < Minimum(0) then

        Minimum(0) = Mark

    End If

Next

Average(0) = Total/AmountStudents

​

Maximum(1) = MATs(1)

Minimum(1) = MATs(1)

Total = 0

For each Mark in MATs

    Total += Mark

    If Mark > Maximum(1) then

        Maximum(1) = Mark

    End if

    If Mark < Minimum(1) then

        Minimum(1) = Mark

    End If

Next

Average(1) = Total/AmountStudents

​

    Maximum(2) = SCIs(2)

    Minimum(2) = SCIs(2)

Total = 0

    For each Mark in SCIs

    Total += Mark

    If Mark > Maximum(2) then

        Maximum(2) = Mark

    End if

    If Mark < Minimum(2) then

        Minimum(2) = Mark

    End If

Next

Average(2) = Total/AmountStudents

​

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

    Console.WriteLine("{0,10}{1,10}{2,10}{3,10}", new String("_", 10), new String("_", 10), new String("_", 10), new String("_", 10))

        for i as integer = 0 to IDs.Length-1

            Console.writeline("{0,10}{1,10}{2,10}{3,10}", IDS(i), Engs(i), Mats(i), Scis(i))

next

    Console.WriteLine("{0,10}{1,10}{2,10}{3,10}", new String("_", 10), new String("_", 10), new String("_", 10), new String("_", 10))

Console.WriteLine("{0,10}{1,10}{2,10}{3,10}", "Average", Average(0), Average(1), Average(2))

        Console.WriteLine("{0,10}{1,10}{2,10}{3,10}", "Maximum", Maximum(0), Maximum(1), Maximum(2))

        Console.WriteLine("{0,10}{1,10}{2,10}{3,10}", "Minimum", Minimum(0), Minimum(1), Minimum(2))

End Sub

Public Sub SearchData()

Dim IDtoFind as integer

Console.writeline("Please enter the ID of the student you want to search for.")

IDtoFind = Console.readline()

Dim index as integer

index = Array.indexof(IDs, IDtoFind)

If index <> -1 then

Console.writeline("Result for ID: " & IDToFind)

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

Console.WriteLine("{0,10}{1,10}{2,10}{3,10}", new String("_", 10), new String("_", 10), new String("_", 10), new String("_", 10))

Console.WriteLine("{0,10}{1,10}{2,10}{3,10}", IDs(Index), ENGs(Index), MATs(Index), SCIs(Index))

else

Console.writeline("ID: " & IDtoFind & " not found.")

End if

End Sub

End Module

​