Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Welcome To the Computer Systems Quiz")

        Console.WriteLine("Enter the letter of the correct answer...")

        Dim answer As String

        Dim score As Integer

            Console.WriteLine()

            Console.WriteLine("Question 1: What does buses do?")

            Console.WriteLine("A. Transport data between the components inside the processer and the memory")

            Console.Writeline("B. Store data between components")

            Console.Writeline("C. Link the parts on the motherboard together")

            answer = Console.ReadLine().ToUpper

            If answer = "A" Then

                Console.WriteLine("Well done!")

                    score += 1

            Else

                Console.WriteLine("Wrong - buses transport data between components inside the processor and the memory")

            End If

            Console.WriteLine()

            Console.WriteLine("Question 2: How many types of register are there?")

            Console.WriteLine("A. 5")

            Console.Writeline("B. 4")

            Console.Writeline("C. 3")

            answer = Console.ReadLine().ToUpper

            If answer = "A" Then

                Console.WriteLine("Good Job!")

                    score += 1

            Else

                Console.WriteLine("Nice try - it's 5")

            End If

            Console.WriteLine()

            Console.WriteLine("Question 3: How fast does an average clock of an average computer spins per second?")

            Console.WriteLine("A. 2GHz")

            Console.Writeline("B. 3GHz")

            Console.Writeline("C. 6GHz")

            answer = Console.ReadLine().ToUpper

            If answer = "B" Then

                Console.WriteLine("Well done!")

                    score += 1

            Else

                Console.WriteLine("Oops, the correct answer is 3GHz")

            End If

    End Sub

End Module