Imports System

Public Module Module1

    Public Sub Main()

        Dim Triangle, Square, Circle, Rectangle, shape, begin, name, length, width, area, answer, score as String

        Console.Writeline("Hello, welcome to my Shape quiz. What is your name?: ")

        name = console.Readline()

        Console.Writeline("Good to meet you " & name & ", shall we start?: ")

        begin = Console.Readline()

        If begin = "yes" or begin = "Yes" or begin = "YES" then

            Console.Writeline("Brilliant, lets begin!")

            Console.Writeline("Now, please select a shape from the following: Right-Angled Triangle, Square, Circle or Rectangle.")

            shape = Console.readline()

            If shape = "right-angled triangle" or shape = "Right-angled triangle" or shape = "Right-Angled triangle" or shape = "Right-Angled Triangle" or shape = "right-Angled triangle" or shape = "Right-Angled triangle" or shape = "right-Angled triangle" or shape = "right-angled Triangle" or shape = "Right-angled Triangle" then

                Console.writeline("Now you will be doing a question regarding the area of this shape. Here are the dimensions:")

            End If

            If shape = "square" or shape = "Square" or shape = "SQUARE" then

                Console.writeline("Now you will be doing a question regarding the area of this shape. Here are the dimensions:")

            End If

            If shape = "circle" or shape = "Circle" or shape = "CIRCLE" then

                Console.writeline("Now you will be doing a question regarding the area of this shape. Here are the dimensions:")

            End If

            If shape = "rectangle" or shape = "Rectangle" or shape = "RECTANGLE" then

                Console.writeline("Now you will be doing a question regarding the area of this shape. Here are the dimensions:")

                score = 0

                length = 18

                width = 13

                area = length * width

                Console.Writeline("Length = 18")

                Console.Writeline("Width = 13")

                Console.Writeline("Find out the area of this rectangle using the following options: 233, 234, 235, 236. Input your answer here: ")

                answer = console.Readline()

                If answer = area then

                    Console.Writeline("your smart.")

                    score = score + 2

                    Console.Writeline("You have a score of " & score & ".")

                else

                    console.Writeline("Stoopid.")

            End If

        elseIf begin = "no" or begin = "No" or begin = "NO" then

            Console.Writeline("")

        else

            Do

            Console.Writeline("I didn't understand that, please input your answer again")

            begin = Console.Readline()

            Loop until begin = "yes" or begin = "Yes" or begin = "YES" or begin = "no" or begin = "No" or begin = "NO"

            If begin = "yes" or begin = "Yes" or begin = "YES" then

            Console.Writeline("Brilliant, lets begin!")

            Console.Writeline("Now, please select a shape from the following: Triangle, Square, Circle or Rectangle.")

            shape = Console.readline()

            If begin = "no" or begin = "No" or begin = "NO" then

            Console.Writeline("")

        End If

        End If

        End If

        End If

    End Sub

End Module