Imports System

​

Public Module Module1

​

    'define number of students.

    'change this in final version

    Const NUM_STUDENTS = 2

​

    'initialize arrays, use the key Private , when declaring outside a function/subroutine.

    Private IDs(NUM_STUDENTS - 1) as integer

​

    Private ENGs(NUM_STUDENTS - 1) as integer

​

    Private SCIs(NUM_STUDENTS - 1) as integer

​

    Private MATs(NUM_STUDENTS - 1) as integer

​

    Public Sub Main()

        'setup the menu

        Dim nOption as integer

        Console.WriteLine("Mark Analysis System. What Do you want to do. Enter 1 to enter marks, 2 to display, 3 to search")

        nOption = Console.ReadLine()

        select case nOption

        Case 1

            'input data

        Case 2

            'display data

        Case 3

            'search

        Case 4

            'edit (for later)

        End Select

        End Sub

        Public Sub InputData()      

        'get input

        Dim sIn as string ' to hold input

        For i = 0 to NUM_STUDENTS - 1

        Console.writeline(" Enter ID and Results.Format is: ID, EnglishResult, MathResult, ScienceResult ")

            sIn = Console.ReadLine()

            Dim asIn = sIn.Split(", ")

            'asIN will be an array of string, and the IDS and results are integers

            'however, VB.Net will implicitly convert into the correct datatype.

            'if you enter a result that is not a number by mistake e.g., 20300,e4,90,80, the code, as written will crash.

            'the ID is  always the first item in the array asIN

            IDs(i) = asIN(0)

            'the English result is  always the first item in the array asIN

            ENGs(i) = asIN(1)

            'the Maths result is  always the first item in the array asIN

            MATs(i) = asIN(2)

            'the Science result is  always the first item in the array asIN

            SCIs(i) = asIN(3)

        Next

​

        'print arrays out - just to test code works , remove from final version

        PrintArray(IDs)

        PrintArray(ENGs)

        PrintArray(MATs)

        PrintArray(SCIs)

    End Sub

​

    Public Sub PrintArray(the_array as object)

        'this is a subroutine that should print any array regardless of datatype

        For each s as object in the_array

            Console.writeline(s.ToString())

        Next

    End Sub

End Module

​