Imports System

Public Module Module1

    Public Sub Main()

        'declaration of variables

        Dim speed as string = " "

        Dim name as string = " "

        dim message as string = " " 'this will be used to combine if statements into one question and one answer.

        'Console requests

        console.writeline("Fictional Hurricane Maker")

        console.writeline("Tell me the name of your hurricane.")

        name = console.readline() 'requesting storm name. this [var] = [function] returns information.

        console.writeline("Tell me the wind speed of the hurricane.")

        speed = console.readline() 'requesting storm category

        'determine output

        if "0" > Speed < "38" then

            message = "This Tropical Depression hasn't earned a name yet."

        elseif "39" > Speed < "78" then

            message = "Tropical Storm " + name + " likes making things wet and windy."

        elseif "79" > Speed then

            message = "Hurricane " + name + " is the sort of Category 1 storm that debranches trees."

        elseif speed = "2" then

            message = "Hurricane " + name + " the Category 2 storm is the enemy of roof tile."

        elseif speed = "3" then

            message = "Hurricane " + name + " the Category 3 storm has been replanting trees."

        elseif speed = "4" then

            message = "Hurricane " + name + " the Category 4 storm hates everyone and is determined to rehome them."

        elseif speed = "5" then

            message = "Hurricane " + name + " is a Category 5 storm. Isn't that all you need to know?"

        else

            message = "ERROR: impossible wind speed"

        end if

        console.writeline(message) 'writes message

    End Sub

End Module