Imports System

​

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

Public Module Module1

    'change number of students to a small number when developing

    CONST NUM_STUDENTS = 3

​

    Dim sIDs(NUM_STUDENTS-1) AS Integer

​

    Dim anEnglish(NUM_STUDENTS-1) as Integer

​

    Dim anMaths(NUM_STUDENTS-1) as Integer

​

    Dim anScience(NUM_STUDENTS-1) as Integer

​

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

    Public Sub Main()

        Dim nOption as integer

        Console.WriteLine("What do you want to do. Enter 1 to enter data, 2 to display results, 3 to search")

        nOPtion = Console.readline()

        select case nOption

        Case 1

            EnterResults()

        End select

    End Sub

​

    Public Sub EnterResults()

        Dim sResult as string

        Dim asResults() as string

        Console.WriteLine("Enter Results")

        'START A FOR LOOP to enter 3 setS of results

        For i as integer = 0 to NUM_STUDENTS -1

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

            sResult = Console.readline()

            'split sResult into a array

            asResults = sResult.split(",")

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

            sIDs(i) = asResults(0)

            anEnglish(i) = asResults(1)

            anMaths(i) = asResults(2)

            anScience(i) = asResults(3)

        'END OF FOR lOOP

        Next

​

    'PRINT EACH ARRAY - JUST FOR TESTING REMOVE FROM FINAL PROJECT

        PrintArray(sIDS)

        PrintArray(anEnglish)

    End Sub

​

    Public Sub PrintArray(tArray() as integer)

        For each item in tArray

            Console.WriteLine(item)

        next

    End Sub

End Module

​