Imports System

Public Module Module1

    Public Sub Main()

        Dim answer as string

        Dim score as integer

        Do

        Console.WriteLine( "In this E-Safety Quiz, you will answer 5 questions with multiple choice answers . Question 1: If a website asks you to sign up and give your personal details what should you do? A) Sign Up B) Check with a friend C) Check with a trusted adult.")

        answer = Console.ReadLine() 

        If answer = "C" or answer = "c" then

            Console.WriteLine("Correct!")

            score = score + 1

        Else If answer = "B" or answer = "b" or answer = "a" or answer = "A" then

                Console.WriteLine("Incorrect answer, try again.")

                score = score - 1

            Else 

                Console.WriteLine("Incorrect answer, try again.")

            End If

        Loop until answer = "A" or answer = "a" or answer = "b" or answer = "C" or answer = "c"

        Do

                Console.WriteLine( "What is cyberbullying? A) Giving someone a false email. B) Gaining unauthorised access to someone's files or device. C) Bullying someone online.")

        answer = Console.ReadLine() 

        If answer = "C" or answer = "c" then

            Console.WriteLine("Correct!")

            score = score + 1

        Else If answer = "B" or answer = "b" or answer = "C" or answer = "c" then

                Console.WriteLine("Incorrect answer, try again.")

                score = score - 1

            Else 

                Console.WriteLine("Incorrect answer, try again.")

            End If

        Loop until answer = "A" or answer = "a" or answer = "b" or answer = "C" or answer = "c"

            Do 

                    Console.WriteLine( "What is hacking? A) Bullying someone online. B) Gaining unathorised access to someone's data. C) Watching a film illegally.")

        answer = Console.ReadLine() 

        If answer = "B" or answer = "b" then

            Console.WriteLine("Correct!")

            score = score + 1

        Else If answer = "a" or answer = "A" or answer = "C" or answer = "c" then

                Console.WriteLine("Incorrect answer, try again.")

                score = score - 1

            Else 

                Console.WriteLine("Incorrect answer, try again.")

            End If

                    Loop until answer = "A" or answer = "a" or answer = "b" or answer = "B" or answer = "C" or answer = "c"

            Do

                        Console.WriteLine( "What is Trolling? A) Annoying someone online. B) Pretending to be someone. C) Forgetting your passsword.")

        answer = Console.ReadLine() 

        If answer = "A" or answer = "a" then

            Console.WriteLine("Correct!")

            score = score + 1

        Else If answer = "B" or answer = "b" or answer = "C" or answer = "c" then

                Console.WriteLine("Incorrect answer, try again.")

                score = score - 1

            Else 

                Console.WriteLine("Incorrect answer, try again.")

            End If

                        Loop until answer = "A" or answer = "a" or answer = "b" or answer = "B" or answer = "C" or answer = "c"

            Do

                            Console.WriteLine( "If someone you met online asks to meet you in person. Do you: A) Go to the meeting place. B) Decline the offer. C) Pretend to be someone else")

        answer = Console.ReadLine() 

        If answer = "B" or answer = "b" then

            Console.WriteLine("Correct!")

            score = score + 1

        Else If answer = "A" or answer = "a" or answer = "C" or answer = "c" then

                Console.WriteLine("Incorrect answer, try again.")

                score = score - 1

            Else 

                Console.WriteLine("Incorrect answer, try again.")

            End If

                            Loop until answer = "A" or answer = "a" or answer = "b" or answer = "B" or answer = "C" or answer = "c"

                        Console.WriteLine("Your final score is: " & score)

    End Sub

End Module