Imports System

Public Module Module1

    Public Sub Main()

        'This program requires inputs in order to create a fictional hurricane.

​

        'Declaration of variables

        Dim name as string = " " 'name of the storm

        Dim speed as string = " " 'storm's wind speed. determines category

        Dim locate as string = " " 'storm's landfall location.

        Dim title as string = " " 'input is only cyclone, hurricane, or typhoon.

        Dim message as string = " " 'the message; output

        'Console requests user input here

        console.writeline("Fictional Hurricane Maker")

        console.writeline("Tell me the name of your hurricane. Please capitalize its first letter.") 'whole-lowercase name looks weird

        name = console.readline() 'requests name of storm.

        console.writeline("Tell me the hurricane's wind speed, in miles per hour.")

        speed = console.readline() 'etc etc

        console.writeline("Tell me where the hurricane will make landfall. Please use proper capitalization.")

        locate = console.readline()

        console.writeline("Finally, tell me whether the hurricane is called a Hurricane, Typhoon, or Cyclone.")

        title = console.readline()

        'if/then requests for the message variable. The variable Speed controls the mesage.

        if "0" < Speed >= "38" then

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

        else if "39" <= Speed <= "78" Then

            message = "Tropical Storm " + name + "is going to make things wet and windy at " + locate + "."

        else if "79" <= Speed <= "95" Then

            message = title + " " + name + "is the sort of Category 1 storm that likes debranching trees at " + locate + "."

        else if "96" <= Speed <= "110" Then

            message = title + " " + name + " the Category 2 storm is the enemy of all of " + locate + "'s roof tiles."

        else if "111" <= Speed <= "130" Then

            message = title + " " + name + " the Category 3 storm has been replanting trees at " + locate + "."

        else if "131" <= Speed <= "155" Then

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

        else if Speed >= "156" Then

            message = title + " " + name + " is a Category 5 storm set to make landfall at " + locate + ". Isn't that all you need to know?"

        else

                                    message = "Invalid Storm." 'how do I make this output happen when the speed is equal to or less than 0?

        end if

        console.writeline(message)

    End Sub

End Module