Dim username, answer as string
Dim LoginCheck as boolean
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
Console.WriteLine(" Invalid code. Please try again:")
Loop Until LoginCheck = true
Console.WriteLine("Login Successful.")
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!")
ElseIf answer = "A" or answer = "B" or answer = "a" or answer = "b"
Console.WriteLine("Incorrect.")
Console.WriteLine("Invalid answer Please try again:")
Loop until answer = "A" or answer = "B" or answer = "a" or answer = "b" or answer = "C" or answer = "c"
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!")
Else If answer = "B" or answer = "C" or answer = "b" or answer = "c"
Console.WriteLine("Incorrect.")
Console.WriteLine("Invalid answer Please try again:")
Loop until answer = "B" or answer = "C" or answer = "b" or answer = "c"
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!")
Else If answer = "B" or answer = "C" or answer = "b" or answer = "c"
Console.WriteLine("Incorrect.")
Console.WriteLine("Invalid answer Please try again:")
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!")
Else If answer = "a" or answer = "A" or answer = "C" or answer = "c" then
Console.WriteLine("Incorrect.")
Console.WriteLine("Invalid answer Please try again:")
Loop until answer = "a" or answer = "A" or answer = "C" or answer = "c"
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!")
Else If answer = "B" or answer = "C" or answer = "b" or answer = "c"
Console.WriteLine("Incorrect.")
Console.WriteLine("Invalid answer Please try again:")
Loop until answer = "B" or answer = "C" or answer = "b" or answer = "c"
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!")
Console.WriteLine("Incorrect/Invalid answer!")
Loop until answer = "C" or answer = "c"
Console.WriteLine("Well Done, you have scored Secure, looks like you know your E-Safety!")
Console.WriteLine("You scored Developing, try again!")