Imports System

Public Module Module1

    Public Sub Main()

        task1()

        task2()

        task3()

    End Sub

    Private Sub task1()

        'declaring the variable Password as a storage area for the input

        Dim Password as String 

        Console.WriteLine("What is the secret password?")

        Password = Console.ReadLine()

        'loop that gives the user 3 attempts to input the correct password, otherwise they get locked out.

        For i = 0 to 2

            If Password <> "my work"

            Console.WriteLine("Incorrect password, please try again.")

                Password = Console.ReadLine()

            End If

        Next

        'if password is correct the loop doesn't happen otherwise when the loop finishes it locks the user out of the program.

        If Password = "my work"

            Console.WriteLine("Correct password.")

        Else 

            Console.WriteLine("You've been locked out.")

        End If

    End Sub

    Private Sub task2()

        'declaring variables to store the two inputs, the mathematical instruction the user wishes to conduct and the result of the two numbers.

        Dim Answer as Integer 

        Dim Answer1 as Integer

        Dim userChoice as String

        Dim twoNumbers as Integer

        'input prompts which then register the values of the two numbers input one variable at a time.

        Console.WriteLine("Input one of your two favourite numbers")

        Answer = Console.ReadLine()

        Console.WriteLine("Input one of your two favourite numbers")

        Answer1 = Console.ReadLine()

        'asks for the instruction/userChoice, either add, subtract, multiply or divide.

        Console.WriteLine("What would you like to do with your two numbers? Add, subtract, multiply or divide?")

        userChoice = Console.ReadLine()

        'selects a series of instructions based off the user input.

        Select Case userChoice

            Case "add"

                twoNumbers = Answer + Answer1

            Case "subtract"

                twoNumbers = Answer - Answer1

            Case "multiply"

                twoNumbers = Answer * Answer1

            Case "divide"

                twoNumbers = Answer / Answer1   

        End Select

        'outputs result of the two numbers based off the case selection.

        Console.WriteLine(twoNumbers)

​

    End Sub

    Private Sub task3()

        'declaring the variable theAnswer as the storage area for the input

        Dim theAnswer as Integer

        Do Until theAnswer = 42

            Console.WriteLine("What is the answer to life, the universe and everything?")

            theAnswer = Console.ReadLine()

            'the case selection tests the condition which is the value of theAnswer and outputs accordingly.

            Select Case theAnswer

                Case <42

                    Console.WriteLine("too low")

                Case "42"

                    Console.WriteLine("spot on")

                Case >42

                    Console.WriteLine("too high")

            End Select

        Loop

    'if text is added instead of a number there is a run-time exception as a string input cannot be converted into an integer value

    End Sub

End Module