Imports System

​

'THIS IS USED TO TEST THE DATA INPUT TECHNIQUES FOR TE INTERNAL PROJECT     

Public Module Module1

​

    Dim sIDs(3) AS Integer

​

    Dim anEnglish(3) as Integer

​

    'ADD STATEMENTS TO DECLARE ARRAYS TO HOLD MATHS AND SCIENCE RESULTS

    Dim anMaths(3) as integer

    Dim anScience(3) as integer

​

    Public Sub EnterResults()

        Dim sResult as string

        'START A FOR LOOP to enter 3 setS of results

        Dim i as integer

        for i = 0 to 3

    'Use SPLIT sub and loop'''

        'enter sets o results all on one line e., 20100,50,60,90

        print("Please enter ID, EnglishResult, MathsResults, ScienceResult")

        sResult = Console.readline()

        Dim s, s1, s2, s3 as string

        Dim No As String() = sResult.Split(New Char() {","c})

​

​

        For Each word As String In No

        Console.WriteLine("{0}", word)

        Next

        console.writeline(s, s1, s2, s3)

        dim Rresult(4) as string

        Rresult(0) = s

        Rresult(1) = s1

        Rresult(2) = s2

        Rresult(3) = s3

        'split sResult into a array

        'enter values into the 4 arrays, using the 4 values in the array you used with teh split method.

    console.writeline(s, s1, s2, s3)

    next

        'END OF FOR lOOP

        'PRINT EACH ARRAY

        PrintArray(sIDS)

        PrintArray(anEnglish)

    End Sub

​

    Public Sub PrintArray(tArray() as integer)

        For each item in tArray

            Console.WriteLine(item)

        next

    End Sub

​

Public Sub Print(p)

        console.writeline(p)

    End sub

​

Public Sub Main()

        EnterResults()

    End Sub

End Module

​