Imports System

'Om Patel

'11/22/21

'Hurricane Program

Public Module Module1

    Public Sub Main()

        Dim windSpeed As Integer                    'Step 1

        Dim Category As String

        Console.WriteLine("Enter the wind speed (in mph): ")                'Step 2

        windSpeed = Console.ReadLine()

        Select Case windSpeed                       'Step 3

            Case Is < 74 

                Category = "Not a hurricane."

            Case 74 To 95 

                Category = "Category 1: 74-95 mph or 64-82 kt or 119-153 km/hr"

            Case 96 To 110 

                Category = "Category 2: 96-110 mph or 83-95 kt or 154-177 km/hr"

            Case 111 To 130 

                Category = "Category 3: 111-130 mph or 96-113 kt or 178-209 km/hr"

            Case 131 To 155 

                Category = "Category 4: 131-155 mph or 114-135 kt or 210-249 km/hr"

            Case Is > 155 

                Category = "Category 5: greater than 155 mph or 135 kt or 249 km/hr"

        End Select

        Console.WriteLine(Category)         'Step 4

    End Sub

End Module