Imports System

'Mahi Khangrua

'December 7th, 2020

'Hurricane Program 

​

Public Module Module1

    Public Sub Main()

        Dim category As String 

        Dim windSpeed As Integer 'Declare variables 

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

        windSpeed = Console.ReadLine 

        Select Case windSpeed 

            Case 74 To 95 

                Console.WriteLine("Category 1: 74-95 mph or 64-82 kt or 119-153 km/hr") 

                    category = Console.ReadLine()

            Case 96 To 110

                Console.WriteLine("Category 2: 96 to 110 mph or 83 to 95 kt or 154 to 177 km/hr")

                    category = Console.ReadLine()

            Case 111 To 130 

                Console.WriteLine("Category 3: 111 to 130 mph or 96 to 113 kt or 178 to 209 km/hr")

                    category = Console.ReadLine 

            Case 131 To 155 

                Console.WriteLine("Category 4: 131-155 mph or 114-135 kt or 210-249 km/hr")

                    category = Console.ReadLine 

            Case windSpeed > 115

        End Select 

                Console.WriteLine("Category 5: greater than 155 mph or 135 kt or 249 km/hr") 

                    category = Console.ReadLine

​

        Console.WriteLine(category)

    End Sub

End Module