Imports System

Imports System.Collections.Generic

​

Public Module Module1

    ' create a typedef

    Sub Main()

        Console.WriteLine("Write 1 to input test results, 2 to display test results, 3 to search by student ID, -1 to quit program")

        Dim not_quit As Boolean

        ' initialisation menu system(inifinate loop)

        While Not (not_quit)

            Dim option_prompt as string = console.ReadLine()

            try

                Convert.toint32(option_prompt)

                console.writeline("please work")

                If option_prompt = 1 Then

                    Input_Data()

                ElseIf option_prompt = 2 Then

                    Display_Data()

                ElseIf option_prompt = 3 Then

                    Search_Data()

                ElseIf option_prompt = -1 Then

                    not_quit = False

                End If

            catch

                Console.WriteLine("Invalid Input")

            end try

                ' call seperate functions based on input

        End While

        Console.WriteLine("Program quit")

    End Sub

​

    Private Sub Input_Data()

​

        'How many students are there

​

        Dim number_of_students As Integer = 100

​

        'variable decleration

        Dim StudentID As New List(Of Integer) 'why'd make it a list??

        Dim English As New List(Of Integer)

        Dim Math As New List(Of Integer)

        Dim Science As New List(Of Integer)

        Dim student_test_indexer(), student_counter As Integer

        Dim current_student_results() As String

        Dim test_results As String

        Dim valid_results As Boolean = False

        Dim is_valid_input = True

​

        Console.WriteLine("Input results for all students (ID, English Score, Math Score, Science code), each seperated by one comma")

        While Not (student_counter = 10)

            test_results = Console.ReadLine()

            current_student_results = test_results.Split(",")

            'Start of validation, confirm list length

            If current_student_results.Length() = 4 Then

                ' confirm everything is an integer or comma

                'confirm no results after 100

                ' result less than 20 editing

                Try

                    For i As Integer = 0 To 3

                        Convert.ToInt32(current_student_results(i))

                        If current_student_results(i) < 20 Then

                            current_student_results(i) = 20

                        Else if current_student_results(i) > 100 then

                            is_valid_input = False

                            Exit For

                        End If

                    Next

                Catch

                End Try

            End If

​

            If is_valid_input = True Then

                StudentID.Add(current_student_results(0))

                English.Add(current_student_results(1))

                Math.Add(current_student_results(2))

                Science.Add(current_student_results(3))

                student_counter += 1

            Else

                Console.WriteLine("Invalid Input")

            End If

        End While

    End Sub

​

    Private Sub Display_Data()

        ' ensure search data doesn't break if 1st step not done

    End Sub

    Private Sub Search_Data()

​

    End Sub

​

End Module