Imports System

Public Module Module1

    Public Sub Main()

        Dim answer As String

Dim score As Integer

Do

            Do          

Console.WriteLine(“Q1 – Which of these is an example of trolling? ”)

Console.WriteLine(“A. The act of winding somebody online. B. A fake email. C. Bullying someone online. ”)

answer = Console.ReadLine()

If answer = “A” or answer = “a” then

    Console.WriteLine(“Correct!”)

    score = score + 1

ElseIf answer = “B” or answer = “b” or answer = “C” or answer = “c” then

    Console.WriteLine(“Incorrect.”)

Else

    Console.WriteLine(“Invalid answer.”)

            Loop Until answer = “A” or answer = “B” or answer = “C” or answer = "a" or answer = "b" or answer = "c"

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

Do

                Console.WriteLine(“Q2 – which of these is phishing? ”)

Console.WriteLine(“A. The act of winding somebody online. B. A fake email. C. Bullying someone online. ”)

answer = Console.ReadLine()

If answer = “B” or answer = “b” then

    Console.WriteLine(“Correct!”)

    score = score + 1

ElseIf answer = “A” or answer = “a” or answer = “C” or answer = “c” then

    Console.WriteLine(“Incorrect.”)

Else

    Console.WriteLine(“Invalid answer.”)

                Loop Until answer = “A” or answer = “B” or answer = “C” or answer = "a" or answer = "b" or answer = "c"

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

                Do

                    Console.WriteLine(“Q3 – Which of these is cyber bullying ”)

Console.WriteLine(“A. The act of winding somebody online. B. A fake email. C. Bullying someone online. ”)

answer = Console.ReadLine()

If answer = “C” or answer = “c” then

    Console.WriteLine(“Correct!”)

    score = score + 1

ElseIf answer = “B” or answer = “b” or answer = “A” or answer = “a” then

    Console.WriteLine(“Incorrect.”)

Else

    Console.WriteLine(“Invalid answer.”)

                    Loop Until answer = “A” or answer = “B” or answer = “C” or answer = "a" or answer = "b" or answer = "c"

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

                    Do

                        Console.WriteLine(“Q4 – What do you do if you get an email from someone you dont know? ”)

                                    Console.WriteLine(“A. reply. B. ignore it. C. block them. ”)

answer = Console.ReadLine()

If answer = “C” or answer = “c” then

    Console.WriteLine(“Correct!”)

    score = score + 1

ElseIf answer = “B” or answer = “b” or answer = “A” or answer = “a” then

    Console.WriteLine(“Incorrect.”)

Else

    Console.WriteLine(“Invalid answer.”)

                                    Loop Until answer = “A” or answer = “B” or answer = “C” or answer = "a" or answer = "b" or answer = "c"

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

                        Do

                                        Console.WriteLine(“Q5 – What do you do if someone olnine asks you to meet up? ”)

                                                Console.WriteLine(“A. meet them. B. dont meet them. C. meet them but take a friend. ”)

answer = Console.ReadLine()

If answer = “B” or answer = “b” then

    Console.WriteLine(“Correct!”)

    score = score + 1

ElseIf answer = “B” or answer = “b” or answer = “A” or answer = “a” then

    Console.WriteLine(“Incorrect.”)

Else

    Console.WriteLine(“Invalid answer.”)

                                                Loop Until answer = “A” or answer = “B” or answer = “C” or answer = "a" or answer = "b" or answer = "c"

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

                                                    if score>= 4 then

                                                        console.WriteLine("you've unlocked a bonus question!")

                                                        console.WriteLine("if you share a photo online who can see it?")

                                                        console.WriteLine("A. only people you know B.anyone C.nobody at all")

                                                        answer = Console.Readline()

                                                        If answer = "B" or "b" then

                                                            Console.WriteLine("correct")

                                                            score = score + 1

                                                        else if answer = "A" or answer = "a" or answer = "C" or answer = "c"

                                                                console.WriteLine("incorrect")

                                                            else

                                                                Console.WriteLine("invalid answer")

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

    End Sub

End Module