Imports System

Public Module Module1

    Public Sub Main()

        Dim answer as string

        Dim score as integer

        Do

        Console.Writeline("Question 1- What is the act of winding people up online? A)twisting their characters head around B) Trolling") 

        answer = Console.Readline()

        If Answer = "B" or Answer  ="b" then

            Console.Writeline("Correct")

                score = score + 1

        Elseif Answer = "A" or Answer  ="a" then 

            Console.Writeline("Incorrect") 

        else

            Console.Writeline("Invalid Answer")

            End If      

        Loop Until answer = "A" or answer = "a" or answer = "B" or Answer = "b" 

        Console.WriteLine(“Your score is: ” & score)

        Do

            Console.Writeline("Question 2-  Cyber-Bullying is bullying online for example on social media. True or False?")

        answer = Console.Readline()

            If Answer = "True" or Answer  ="true" or Answer = "T" or Answer = "t" then

            Console.Writeline("Correct")

                score = score + 1

            Elseif Answer = "False" or Answer  ="false" or Answer = "F" or Answer = "f" then

            Console.Writeline("Incorrect") 

        else

            Console.Writeline("Invalid Answer")

            End If      

        Loop Until answer = "True" or answer = "true" or answer = "T" or Answer = "t" or answer = "False" or answer = "false" or answer = "F" or answer = "f "

        Console.Writeline("Your score is: "& score)

        Do

        Console.Writeline("Question 3- What is the act of gaining of unauthorized access to data in a system or computer?  A) Hacking B) Phishing") 

        answer = Console.Readline()

        If Answer = "A" or Answer = "a" then

            Console.Writeline("Correct")

                score = score + 1

        Elseif Answer = "B" or Answer = "b" then 

            Console.Writeline("Incorrect") 

        else

            Console.Writeline("Invalid Answer")

            End If      

        Loop Until answer = "A" or answer = "a" or answer = "B" or Answer = "b" 

        Console.Writeline("Your score is:"& score)

        Do

        Console.Writeline("Question 4- What is it known as when you present someone else’s work or ideas as your own? A) Copy and pasting B) Plagiarism") 

        answer = Console.Readline()

        If Answer = "B" or Answer = "b" then

            Console.Writeline("Correct")

                score = score + 1

        Elseif Answer = "A" or Answer = "a" then 

            Console.Writeline("Incorrect") 

        else

            Console.Writeline("Invalid Answer")

            End If      

        Loop Until answer = "A" or answer = "a" or answer = "B" or Answer = "b" 

        Console.Writeline("Your score is:" & score)

        Do

        Console.Writeline("Question 5- What law are you breaking if you make changes to unauthorised computer material?  A)Computer Misuse Act B) Computer Material Misuse Act") 

        answer = Console.Readline()

        If Answer = "A" or Answer = "a" then

            Console.Writeline("Correct")

                score = score + 1

        Elseif Answer = "B" or Answer = "b" then 

            Console.Writeline("Incorrect") 

        else

            Console.Writeline("Invalid Answer")

            End If      

        Loop Until answer = "A" or answer = "a" or answer = "B" or Answer = "b" 

        Console.Writeline("Your score is:" & score)

        Console.Writeline(" Well done! If you are seeing this then it means you have completed the quiz. Let's have a look at your results: 4 or 5- Exceeding, well done. 2 or 3- Secure, that is good. 0 or 1-Dveloping, maybe take a look at what you got wrong and take it the quiz again")

    End Sub

End Module

​