Imports System

​

Public Module Module1

​

    CONST ENTER_RESULT_SET = "Enter a set of resultf 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 = 1

​

    'Initialize variables

    Dim Results_IDs(NUM_OF_STUDENTS - 1) as integer

​

    Dim Results_English(NUM_OF_STUDENTS - 1) as decimal

​

    Dim Results_Maths(NUM_OF_STUDENTS - 1) as decimal

​

    Dim Results_Science(NUM_OF_STUDENTS - 1) as decimal

​

    Public Sub Main()

        'InputResultSets

        Dim i as integer

        For i = 0 to NUM_OF_STUDENTS - 1

            InputResultSet(i)

        Next

    'Display Results

    DisplayResults()

    'Display Stats 

    End Sub

​

    Public Sub InputResultSet(nResultIndex as integer)

        'this sub routine allows the user to enter a set of results for 1 student

        'Start a loop, so we do not stop the input process UNTIL all data is entered correctly

        Dim StudentData() as String

        Dim bInputOK as boolean = True

        Do

            'enter the results all on one line

            Dim ResultSet as string

            ResultSet = Input(ENTER_RESULT_SET)

            'split the input into an array using the split method

            'validate the input 

            StudentData = ResultSet.Split(",")

            'the length of StudentData must be 4 

            if StudentData.Length <> 4 then

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

                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

        Loop Until bInputOK = True

​

        'if we get here the input data is OK, copy into the results arrays

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

        For i = 0 to NUM_OF_STUDENTS - 1

            console.writeline("{0}  {1}  {2}  {3}  ", 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

​