Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim score As Integer

        Dim answer As String

        Dim option As String

        do

            console.WriteLine("1) What is Cyberbullying? A)Onlie Bull Fighting  B)Online Bullying  C)Windning someone up online")

            answer = Console.Readline()

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

                Console.WriteLine("Correct Answer!")

                Score = score + 1

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

                Console.WriteLine("Wrong Answer")

            else

                Console.WriteLine("INVALID ANSWER")

            end if

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

​

        do

            console.WriteLine("2) What is Phising? A)Fishing but spelt differently  B)Anti-virus software  C)Sending scam emails disguised as real companies")

            answer = Console.Readline()

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

                Console.WriteLine("Correct Answer!")

                Score = score + 1

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

                Console.WriteLine("Wrong Answer")

            else

                Console.WriteLine("INVALID ANSWER")

            end if

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

​

        do

            console.WriteLine("3) What is a scam email? A)An email that contains or leads to a scam  B)A virus  C)A legitimate email")

            answer = Console.Readline()

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

                Console.WriteLine("Correctt Answer!")

                Score = score + 1

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

                Console.WriteLine("Wrong Answer")

            else

                Console.WriteLine("INVALID ANSWER")

            end if

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

​

        do

            console.WriteLine("4)What is piracy? A)Being a pirate online  B)stealing  C)Unauthorised use or reproduction of someone's work")

            answer = Console.Readline()

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

                Console.WriteLine("Correct Answer!")

                Score = score + 1

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

                Console.WriteLine("Wrong Answer")

            else

                Console.WriteLine("INVALID ANSWER")

            end if

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

​

        do

            console.WriteLine("5)What is online grooming? A)Brushing someone's hair online  B)Using a groom online  C)Befriending someone and exploiting them")

            answer = Console.Readline()

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

                Console.WriteLine("Correct Answer!")

                Score = score + 1

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

                Console.WriteLine("Wrong Answer")

            else

                Console.WriteLine("INVALID ANSWER")

            end if

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

                            If score >= 4 then

                                Console.WriteLine(“You’ve unlocked a bonus question!”)

                            End If

                                Console.WriteLine("What is e-safety? A)Electric safety  B)Safety to prevent hackers  C)Online safety")

            answer = Console.Readline()

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

                                    Console.WriteLine("Well Done You Got The Bonus Question Right!")

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

                Console.WriteLine("Wrong Answer")

            else

                Console.WriteLine("INVALID ANSWER")

                                    End If

                                    do

                            If score >= 4 then

                                Console.WriteLine(“You scored Exceeding!”)

                            else if score >= 2 then

                                    Console.WriteLine(“You scored Secure.”)

                                Else

                                    Console.WriteLine(“You scored Developing. You may want to try the quiz again.”)

                                    End If

                                        Console.WriteLine(“Do you want to play again? Type ‘Yes’ or ‘No’”)

                                            option= console.readline()

                                        Loop Until option = “Yes” or option = “yes”

    End Sub

End Module

​