Imports System

'Aleister Morales

'12/7/20

'Hurricane Program

​

Public Module Module1

    Public Sub Main()

        Dim speed As Integer         'Declare variables

        Dim result As String

        Console.WriteLine("Enter the wind speed (mph): ")     'Get user input

        speed = Console.ReadLine()

        Select Case speed                'Calculations

            Case 74 To 95 

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

            Case 96 To 110

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

            Case 111 To 130

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

            Case 131 To 155

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

            Case Is >= 156 

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

            Case Else 

                result = "This is not a hurricane"

        End select

        Console.WriteLine("Result: " & result)     'Output

    End Sub

End Module