Imports System

Public Module Module1

    Public Sub Main()

        Dim answer1 as string

        Dim score as integer

        Dim loginCheck as boolean ' declaring a true or false.

        Console.Writeline ("In this quiz there will be 5 questions with multiple choiceanswers. Type a,b,c or d to choose the answer.")

        Console.Clear()

        Do

            Console.Writeline ("How can I prevent cyberbullying?")' question 1

            Console.Writeline ("a) Talk to a trusted adult")

            Console.Writeline ("b) Say something back to the bully")

            answer1 = Console.Readline()

            if answer1 = "a" then

                Console.Writeline ("Correct!")

                loginCheck = true

            elseif answer1 = "b" then

                Console.Writeline ("false :(")

                loginCheck = true

            Else

                Console.Writeline ("Thats not a or b. Try again (press enter to continue)")

                Console.Readline()

                loginCheck = false

            End if

        Loop Until loginCheck = true ' this do loop will repeat until the login check variableis true

        Do

            Console.Writeline ("What will protect you from a phishing attack?") ' question 2

            Console.Writeline ("a) Share personal information")

            Console.Writeline ("b) Do not click on any links listed in the email message")

            Console.Writeline ("c) Open any attachments contained in a suspicious email")

            answer1 = Console.Readline()

            if answer1 = "b" then

                Console.Writeline ("Correct!")

                loginCheck = true

            elseif answer1 = "a" then

                Console.Writeline ("false :(")

                loginCheck = true

            elseif answer1 = "c" then

                Console.Writeline ("false :(")

                loginCheck = true

            Else

                Console.Writeline ("Thats not a,b or c. Try again (press enter to continue)")

                Console.Readline()

                loginCheck = false

            End if

        Loop Until loginCheck = true ' this do loop will repeat until the login check variable is true

        Do

            Console.Writeline ("Which of these are classed as privacy?") ' question 3

            Console.Writeline ("a) Date of birth")

            Console.Writeline ("b) Online nickname")

            Console.Writeline ("c) Gender")

            answer1= Console.ReadLine()

            if answer1 = "a" then

                Console.Writeline ("Correct!")

                loginCheck = true

            elseif answer1 = "b" then

                Console.Writeline ("false :(")

                loginCheck = true

            elseif answer1 = "c" then

                Console.Writeline ("false :(")

                loginCheck = true

            Else

                Console.Writeline ("Thats not a,b or c. Try again (press enter to continue)")

                Console.ReadLine()

                loginCheck = true

            End if

        Loop Until loginCheck = true ' this do loop will repeat until the login check variable is true

        Do

            Console.Writeline ("What name would you give to an email attachment that may harm your computer?") ' question 4

            Console.Writeline ("a) Phishing")

            Console.Writeline ("b) Spam")

            Console.Writeline ("c) Malware")

            answer1 = Console.Readline()

            if answer1 = "c" then

                Console.Writeline ("Correct!")

                loginCheck = true

            elseif answer1 = "a" then

                Console.Writeline ("false :(")

                loginCheck = true

            elseif answer1 = "c" then

                Console.Writeline ("false :(")

                loginCheck = true

            Else

                Console.Writeline ("Thats not a,b or c. Try again (press enter to continue)")

                Console.Readline()

                loginCheck = false

            End if

        Loop Until loginCheck = true ' this do loop will repeat until the login check variable is true

        Do

            Console.Writeline ("Which of the following is a simple way to stay safe online?") ' question 5

            Console.Writeline ("a) Don't give out personal information")

            Console.Writeline ("b) Don't connect te computer to the interent")

            Console.Writeline ("c) Don't leave the computer on overnight")

            answer1 = Console.ReadLine()

            if answer1 = "a" then

                Console.Writeline ("Correct!")

                loginCheck = true

            elseif answer1 = "b" then

                Console.Writeline ("false :(")

                loginCheck = true

            elseif answer1 = "c" then

                Console.Writeline ("false :(")

                loginCheck = true

            Else

                Console.Writeline ("Thats not a,b or c. Try again (press enter to continue)")

                Console.ReadLine()

                loginCheck = false

            End if

        Loop Until loginCheck = true ' this do loop will repeat until the login check variable is true

    End Sub

End Module