Imports System

​

public Module module1

    Public Structure StudentData

        Dim ID As Int32

        Dim English As Int32

        Dim Science As Int32

        Dim Maths As Int32

    End Structure

​

    Public Sub Main()

        Console.WriteLine("Welcome to the marks analysis system menu page.")

        Console.WriteLine("Please enter 1 to Enter the data for the students.")

        Console.WriteLine("Please enter 2 to display the results for the class average, maximum, and minimum.")

        Console.WriteLine("Please enter 3 to search for the data of a particulr student.")

        Console.WriteLine("To exit the program please enter -1")

        Dim menu As Integer

        menu = Console.ReadLine()

        If menu = 1 Then

            GetData()

        ElseIf menu = 2 Then

            'Display()

        ElseIf menu = 3 Then

            'Search()

        ElseIf menu = -1 Then

            'Exit()

        Else

            Console.WriteLine("Please enter a valid menu page, or enter -1 to exit program.")

        End If

    End Sub

​

    Sub GetData()

        Dim Data(3) As StudentData

        Console.WriteLine("--------------------------------------------------------------------------------------------")

        Console.WriteLine("Please enter data in the structure Student ID, English Mark, Science Mark, Maths Mark.")

        Console.WriteLine("Make sure to use a comma and then a space ', ' ")

        For i = 0 To 2

            Console.WriteLine("Please input data for student " & i + 1 & ".")

            Dim temp As String = Console.ReadLine()

            Dim temparr() As String = temp.Split(", ")

            While temparr(0) < 10000 Or temparr(0) > 99999 Or temparr(1) > 100 Or temparr(2) > 100 Or temparr(3) > 100

                Console.WriteLine("Please re-input values, not all values were valid.")

                temp = Console.ReadLine()

                temparr = temp.Split(", ")

            End While

            For j = 1 To 3

                If temparr(j) < 20 Then

                    temparr(j) = 20

                End If

            Next

​

            Data(i).ID = temparr(0)

            Data(i).English = temparr(1)

            Data(i).Science = temparr(2)

            Data(i).Maths = temparr(3)

​

        Next

        For i = 0 To 2

            Console.Write(Data(i).ID.ToString + " ")

            Console.Write(Data(i).English.ToString + " ")

            Console.Write(Data(i).Science.ToString + " ")

            Console.Write(Data(i).Maths.ToString + " ")

            Console.WriteLine()

        Next

​

​

​

    End Sub

​

End Module

​