imports system

Module Module1

​

    Public Sub Main()

        Dim qas(5, 5) As String

        Dim oSR As New IO.StreamReader("qanda.txt")

        Dim osrr As New IO.StreamReader("Results.txt")

        Dim name As String

        Dim line As String = ""

        Dim ans As String = ""

        Dim correct As Integer = 0

        Dim count As Integer = 0

        Dim incorrect As Integer = 0

        For i = 0 To 5

            For j = 0 To 5

                line = oSR.ReadLine

                qas(i, j) = line

            Next

        Next

        oSR.Close()

        Console.WriteLine("Please enter your name")

        name = Console.ReadLine

        For i = 0 To 5

            Console.WriteLine(qas(i, 0))

            Console.WriteLine(qas(i, 1))

            Console.WriteLine(qas(i, 2))

            Console.WriteLine(qas(i, 3))

            Console.WriteLine(qas(i, 4))

            Do

                Console.WriteLine("Please answer A, B, C or D")

                ans = Console.ReadLine

                ans = ans.ToLower

            Loop Until ans = "a" Or ans = "b" Or ans = "c" Or ans = "d"

            If ans = qas(i, 5) Then

                correct += 1

            Else incorrect += 1

            End If

        Next

        Console.WriteLine("You got " & correct & " correct")

        osrr.Close()

        Dim lines() As String = System.IO.File.ReadAllLines("Results.txt")

        Dim new_lines(lines.Length) As String

        For i = 0 To lines.Length - 1

            new_lines(i) = lines(i)

        Next

        new_lines(lines.Length) = name & " " & correct

​

        System.IO.File.WriteAllLines("Results.txt", new_lines)

        Console.ReadLine()

    End Sub

​

End Module