Module Module1
    Structure pupil
        Dim firstname As String
        Dim surname As String
        Dim year As String
    End Structure
    Structure Staff
        Dim username As String
        Dim password As String
    End Structure
    Structure Questions
        Dim question0 As String
        Dim question1 As String
        Dim question2 As String
        Dim question3 As String
        Dim question4 As String
        Dim question5 As String
        Dim question6 As String
        Dim question7 As String
        Dim question8 As String
        Dim question9 As String
    End Structure
    Dim students(100) As pupil
    Dim teachers(50) As Staff
    Dim question(10) As Questions
    Dim recordnum As Integer
    Dim numofrecords As Integer

    Sub Main()
        Login()
    End Sub
    Private Sub Login()
        Console.WriteLine("Login Below Please")
        Console.Write("Username: ")
        Dim username As String = Console.ReadLine()
        Dim password As String = Console.ReadLine()

        If username.StartsWith("3") Then
            Dim filereader As String
            filereader = My.Computer.FileSystem.ReadAllText("C:\Users\Joshu\Onedrive\Year3.csv")
            Console.WriteLine("Hello " + username + " welcome to the year 3 test")
            Console.WriteLine(filereader)
            Dim answer As String = Console.ReadLine()
            Console.WriteLine("Answer 1: ")
            Console.WriteLine("Answer 2: ")
            Console.WriteLine("Answer 3: ")
            Console.WriteLine("Answer 4: ")
            Console.WriteLine("Answer 5: ")
            Console.WriteLine("Answer 6: ")
            Console.WriteLine("Answer 7: ")
            Console.WriteLine("Answer 8: ")
            Console.WriteLine("Answer 9: ")
            Console.WriteLine("Answer 10: ")
        End If
        If username.StartsWith("4") Then
            'Y4Test()
        End If
        If username.StartsWith("5") Then
            'Y5Test()
        End If
        If username.StartsWith("6") Then
            'Y6Test()
        End If
        If username.StartsWith("1") Then
            Console.Write("Password: ")
            'TMenu()
        End If
        Console.ReadLine()
    End Sub
    Private Sub Y3Test()
        recordnum = -1
        numofrecords = -1

        FileOpen(1, "C:\Users\Joshu\OneDrive\Documents\Year3.csv", OpenMode.Input)
        Do Until EOF(1)
            Dim printline As String = LineInput(1)
            recordnum += 1
            Dim defin() As String = Split(printline, ",")
            With question(recordnum)
                .question0 = defin(0)
                .question1 = defin(1)
                .question2 = defin(2)
                .question3 = defin(3)
                .question4 = defin(4)
                .question5 = defin(5)
                .question6 = defin(6)
                .question7 = defin(7)
                .question8 = defin(8)
                .question9 = defin(9)
            End With
        Loop
        FileClose(1)
        numofrecords = recordnum + 1
        recordnum = 0
    End Sub
    Sub Y3testt()
        Dim filereader As String
        filereader = My.Computer.FileSystem.ReadAllText("C:\Users\Joshu\Onedrive\Year3.csv")
        ' Console.WriteLine("Hello " + username + "welcome to the year 3 test")
        Console.WriteLine(filereader)
        Dim answer As String = Console.ReadLine()
        Console.Write("Answer 1: ")
        Console.Write("Answer 2: ")
        Console.Write("Answer 3: ")
        Console.Write("Answer 4: ")
        Console.Write("Answer 5: ")
        Console.Write("Answer 6: ")
        Console.Write("Answer 7: ")
        Console.Write("Answer 8: ")
        Console.Write("Answer 9: ")
        Console.Write("Answer 10: ")
    End Sub
End Module