Imports System

Public Module Module1

    Public Sub Main()

        Dim username.answer as String

        Dim score as integer 

        Console.WriteLine("What is your name?")

        username= console.ReadLine()

        If username= "risha" or username = "Risha" then

            loginCheck=true

            Console.WriteLine("Welcome")

        Else 

            Console.WriteLine("Invalid Username")

            Console.ReadLine()

            Console.Clear()

        End If 

        Do 

            Console.WriteLine("What are phishing for? a) a way of stealing data b) a way to threaten people on social media") 

            If answer= console.ReadLine()

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

                    Console.WriteLine("Yay correct")

                    score= score + 1

                    Elself answer = "b" or answer = "B" then

                    Console.WriteLine("Incorrect!")

                    score= score - 1 

                Else 

                    Console.WriteLine("Invalid answer- try again")

                End If 

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

            Do 

    Console.WriteLine("What are cookies for? a) eating b) improving online experience")

            If answer= console.ReadLine()

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

                    Console.WriteLine("Yay correct")

                    score= score + 1

                    Elself answer = "a" or answer = "A" then

                    Console.WriteLine("Incorrect!")

                    score= score - 1 

                Else 

                    Console.WriteLine("Invalid answer- try again")

                End If 

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

            Do 

                    Console.WriteLine("What term describes the act of winding people up online? a) bullying b) phishing c) trolling") 

            If answer= console.ReadLine()

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

                    Console.WriteLine("Yay correct")

                    score= score + 1

                            Elself answer = "b" or answer = "B" or answer = "A" or answer = "a" then

                    Console.WriteLine("Incorrect!")

                    score= score - 1 

                Else 

                    Console.WriteLine("Invalid answer- try again")

                End If 

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

            Do 

                        Console.WriteLine("True or False: cybercrimes can only be committed on a Computer and not on any other devices?")

                        answer= console.ReadLine()

                        if answer= "False" or answer = "false" or answer = "FALSE" then

                            Console.WriteLine("Correct!")

                            Score = score + 1

                            Elself answer = "True" or answer = "true" or answer = "TRUE" THEN

                            Console.WriteLine("Incorrect!")

                            score = score-1 

                        Else 

                            Console.WriteLine("Invalid answer- try again")

                        End If 

                    Loop Until answer = "true" or answer = "True" or answer = "TRUE" or answer = "false" or answer = "false" or answer = "FALSE" 

                    if score >=4 then 

                        Console.WriteLine("Because you got 4 points or more, we've got a Bonus question for you!")

                        Console.WriteLine(" How many computers in the world in 2019? a) 10 billion b) 2 billion c) 2 million ")

                        answer= console.ReadLine()

                        Elself answer = "b" or answer = "B" then 

                        Console.WriteLine(" Wow very well done!")

                        score = score + 1

                        Elself answer = "c" or answer = "C" or answer = "A" or answer = "a" then

                        Console.WriteLine("Incorrect - better luck next time!")

                    End If 

                    if score >=4 then 

                        Console.WriteLine("Well done! You got exceeding!")

                        Console.Writeline ("Your final score is "&" score") 

                    Else if 

                            Console.WriteLine("Good job! You got secure!")

                        End Sub

                    End Module