Imports System

Public Module Module1

    Dim ID as string

    Dim English_Result as integer

    Dim Maths_Result as integer

    Dim Science_Result as integer

    Dim count as integer = 0

    Public Sub Main()

        Dim s as string

        Dim parts() as string

        Console.Writeline("Enter results in this format")

        Console.Writeline("ID, English, Maths, Science")

        s = console.readline()

        parts= s.split(",")'Code wont work if it isnt in format'

        Do while parts.length <> 4

            Console.Writeline("Requires all 4 values")

            s = console.ReadLine()

            parts = s.split(",")

        Loop

        For i = 1 to 3

        parts(i) = Convert.ToInt32(parts(i))'Converts from string to integer, System.String[] appears due to this part I believe'

    Next

    ID = Task_1(parts(0))

        English_Result = Task_2(parts(1))'Uses same task for same thing'

        Maths_Result = Task_2(parts(2))

        Science_Result = Task_2(parts(3))

        Display()'Display task part'

    End Sub

    public function Task_1(ID_1 as string)

        Dim I as string = "     " 'For lengths of 5 digits/characters/letters/e.t.c'

        Do

            If ID_1.length <> I.length 'If the length of the ID is not 5 digits/symbols, code will loop as ID is not valid'

                Console.Writeline("Not a valid ID, try again")

                Console.Writeline("Enter student's ID")

                ID_1 = Console.Readline()

            End if

        Loop while ID_1.length <> I.length

            Return ID_1

end function

​

        public function Task_2(Result as integer) 'Calculates all the results'

            Dim type as string() = {"English", "Maths", "Science"}

        Do  

                If Result < 20 then

                        Result = 20

                Else if Result > 100 then

                        Console.Writeline("Over score limit, reinput " & type(count) & " results")

                        Result = Console.Readline()

        End if

                Loop While Result > 100 or Result < 20

                    count = count + 1

            Return Result

                    End function

                public sub Display()

                    Dim ans as string

                    Console.Writeline("Do you want to display the results? (yes to see result)")'Made it optional'

                    ans = Console.Readline()

                    ans = ans.tolower 'Accidental caps/ caps wont affect it'

                        If ans = "yes" 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}", ID, English_Result, Maths_Result, Science_Result)

                    Else

                        Console.Writeline("Okay")'any other response to ans leads to this'

                    end if

                End sub

End Module