Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim username, answer as string

        Dim score as integer

        Dim LoginCheck as boolean

        Do

            Console.WriteLine(" Welcome to the E-Safety test brought to you by Computer Genius. Please enter your code below:")

            username = Console.ReadLine()

            If username = "CHSY8" then

                LoginCheck = true

            Else

                LoginCheck = false

                Console.WriteLine(" Invalid code. Please try again:")

                Console.ReadLine()

                Console.Clear()

            End If

        Loop Until LoginCheck = true

​

        Console.WriteLine("Login Successful.")

        Do

            Console.WriteLine("What is the defintion of cyber-bullying? A) The use of bullying towards cyber material. B) The spreading of private government information on illegal fugitives. C) The use of electronic communication to bully a person, typically by sending messages of an intimidating or threatening nature.")

            answer = Console.ReadLine()

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

                Console.WriteLine("Correct!")

                score = score + 1

            ElseIf answer = "A" or answer = "B" or answer = "a" or answer = "b"

                Console.WriteLine("Incorrect.")

            Else

                Console.WriteLine("Invalid answer Please try again:")

                Console.ReadLine()

                Console.Clear()

            End If

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

​

        Do

            Console.WriteLine("Is Piracy Illegal in the UK? A) Yes, absolutely! B) It depends on the context. C) It is 100% legal.")

            answer = Console.ReadLine()

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

                Console.WriteLine("Correct!")

                score = score + 1

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

                Console.WriteLine("Incorrect.")

            Else

                Console.WriteLine("Invalid answer Please try again:")

                Console.ReadLine()

                Console.Clear()

            End If

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

        Do

​

        Console.WriteLine("What is a computer virus? A)a malicious software program loaded onto a user's computer without the user's knowledge and performs malicious actions. B) an illness which only affects HP computers.C)When the owner of cyber material contracts an illness.")

        answer = Console.ReadLine()

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

            Console.WriteLine("Correct!")

            score = score + 1

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

            Console.WriteLine("Incorrect.")

        Else

                Console.WriteLine("Invalid answer Please try again:")

                Console.ReadLine()

                Console.Clear()

        End If

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

​

​

        Console.WriteLine("What is the Data Protection act?A) The professional name for data when it rewrites itself B)A law that controls how your personal information is used by organisations, businesses or the government.C) An organization supporting animal cyber rights.")

        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.")

        Else

            Do

                Console.WriteLine("Invalid answer Please try again:")

                Console.ReadLine()

                Console.Clear()

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

        End If

​

        Do

            Console.WriteLine("What is phishing? A) The name given to scams sent via email that try to trick you into revealing sensitive information B) The term given to surfing the internet for infomation about marine animals C) The term given when computers are acting fihsy.")

            answer = Console.ReadLine()

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

                Console.WriteLine("Correct!")

                score = score + 1

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

                Console.WriteLine("Incorrect.")

            Else

                Do

                    Console.WriteLine("Invalid answer Please try again:")

                    Console.ReadLine()

                    Console.Clear()

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

            End If

​

            If score >= 4 then

            End If

​

            DO

                Console.WriteLine("Well Done, you have scored exeeding. Press enter for a bonus question!")

                answer = Console.ReadLine()

                Console.WriteLine(" What should you do if you are cyber-bullied online? A) Tell no-one B) Tell your cat C)Tell a trusted adult.")

                answer = Console.ReadLine()

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

                    Console.WriteLine("Correct, you are an official Computer Science Genius!")

                Else

                    Console.WriteLine("Incorrect/Invalid answer!")

                End If

            Loop until answer = "C" or answer = "c"

​

            If score >= 3 then

                Console.WriteLine("Well Done, you have scored Secure, looks like you know your E-Safety!")

            Else

                Console.WriteLine("You scored Developing, try again!")

            End If

​

            Console.ReadLine()

        loop

    End Sub

End Module

​