Imports System

Public Module Module1

    Public Sub Main()

        Dim username, answer, difficulty as string

        dim score as integer

        Dim loginCheck as boolean ' Boolean is true or false

        Do

        Console.WriteLine("Please enter your username: ")

        username = console.readline()

        If username = "Thomas" or username = "Partington" then

            loginCheck = True

        Else

            Console.Writeline("Invalid login. Please try again.")

            loginCheck = False

        End If

        Loop Until loginCheck = True

        Do

        Console.Writeline("Welcome to the quiz " & username)

        Console.WriteLine("Would you like to play the easy quiz or the harder quiz?")

        Console.WriteLine("Type 'easy' or 'hard'")

        difficulty = console.readline()

        If difficulty = "easy" or difficulty = "Easy" then

                Do

            Console.WriteLine("Ok! Here are the easy questions.")

                Console.WriteLine("Question 1 - Hacking is always criminal offence. True or false?")

                answer = console.readline()

                If answer = "True" or answer = "true" then

                    Console.WriteLine("Incorrect. White hat hacking is ethical and can help an individual or company identify weaknesses in their network.")

                ElseIf answer = "False" or answer = "false" then

                    Console.WriteLine("Correct. There are two types of hacking - white hat and black hat. Black hat hackers tend to be cyber criminals.")

                    score = score + 1

                Else

                    Console.WriteLine("Invalid option.")

                End If

                Loop Until answer = "True" or answer = "true" or answer = "False" or answer = "false"

                console.writeline("easy")

        ElseIf difficulty = "hard" or difficulty = "Hard" then

                Console.WriteLine("Ok! Here are the hard questions.")

                Do

                Console.WriteLine("Question 1 - There are two types of hacking. Both of them are criminal offences. True or false?")

                answer = console.readline()

                If answer = "True" or answer = "true" then

                    Console.WriteLine("Incorrect. White hat hacking is ethical and can help an individual or company identify weaknesses in their network.")

                ElseIf answer = "False" or answer = "false" then

                    Console.WriteLine("Correct. There are two types of hacking - white hat and black hat. Black hat hackers tend to be cyber criminals.")

                    score = score + 1

                    Else

                    Console.WriteLine("Invalid option.")

                End If

                Loop Until answer = "True" or answer = "true" or answer = "False" or answer = "false"

            end if

        Loop Until difficulty = "easy" or difficulty = "Easy" or difficulty = "hard" or difficulty = "Hard"

    End Sub

End Module