Imports System

​

Public Module Module1

​

    Const ENTER_RESULT_SET = "Enter a set of results for a student. Format is ID,Result_For_English,Result_For_Maths,Result_For_Science"

​

    Const REENTER_RESULT_SET = "Invalid Results. Please Re-enter a set of results for a student. Format is ID,Result_For_English,Result_For_Maths,Result_For_Science"

​

    Const ERROR_ID = "Student ID must be 5 digit string"

​

    Const ERROR_MARK = "Marks must be between 20 and 100"

​

    Const NUM_OF_STUDENTS = 3

​

    Private Results_IDs(NUM_OF_STUDENTS - 1) As String

​

    Private Results_English(NUM_OF_STUDENTS - 1) As Decimal

​

    Private Results_Maths(NUM_OF_STUDENTS - 1) As Decimal

​

    Private Results_Science(NUM_OF_STUDENTS - 1) As Decimal

​

    Public Sub Main()

        Dim i As Integer

        For i = 0 To NUM_OF_STUDENTS - 1

            InputResultSet(i)

        Next

​

        DisplayResults()

    End Sub

​

    Public Sub InputResultSet(nResultIndex As Integer)

        Dim StudentData() As String

        Dim bInputOK As Boolean

        Dim ResultSet As String

        ResultSet = Input(ENTER_RESULT_SET)

​

        Do

            bInputOK = True

            StudentData = ResultSet.Split(",")

            If StudentData.Length <> 4 Then

                Console.WriteLine("Input data has wronmg number of items supplied")

                bInputOK = False

            End If

​

            Dim nIndexOF As Integer

            nIndexOF = Array.IndexOf(Results_IDs, StudentData(0))

            If nIndexOF <> -1 Then

                Console.WriteLine("StudentID already exists")

                bInputOK = False

            End If

​

            If StudentData(1) < 20 Then

                Console.WriteLine("English result too low. Converted to 20")

                StudentData(1) = 20

            ElseIf StudentData(1) > 100 Then

                Console.WriteLine("English result outside accepted bounds")

                bInputOK = False

            End If

​

            If StudentData(2) < 20 Then

                Console.WriteLine("Maths result too low. Converted to 20")

                StudentData(2) = 20

            ElseIf StudentData(2) > 100 Then

                Console.WriteLine("Maths result outside accepted bounds")

                bInputOK = False

            End If

​

            If StudentData(3) < 20 Then

                Console.WriteLine("Science result too low. Converted to 20")

                StudentData(3) = 20

            ElseIf StudentData(3) > 100 Then

                Console.WriteLine("Science result outside accepted bounds")

                bInputOK = False

            End If

​

            If bInputOK = False Then

                ResultSet = Input(REENTER_RESULT_SET)

            End If

        Loop Until bInputOK = True

​

        Results_IDs(nResultIndex) = StudentData(0)

        Results_English(nResultIndex) = StudentData(1)

        Results_Maths(nResultIndex) = StudentData(2)

        Results_Science(nResultIndex) = StudentData(3)

    End Sub

​

    Public Sub DisplayResults()

        Dim i As Integer

        Console.WriteLine()

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

        For i = 0 To NUM_OF_STUDENTS - 1

            Console.WriteLine("{0,-8}{1,-8}{2,-8}{3,-8}  ", Results_IDs(i), Results_English(i), Results_Maths(i), Results_Science(i))

        Next

    End Sub

​

    Public Function Input(sMesage As String)

        Console.WriteLine(sMesage)

        Dim s As String

        s = Console.ReadLine()

        Return s

    End Function

​

    Public Sub Print(s)

        Console.WriteLine(s)

    End Sub

End Module

​