Imports System,Microsoft.VisualBasic
'Damon Copeland
'12/06/21
'Hurricane Program
Public Module Module1
Public Sub Main()
Dim milesPerHour As Integer 'Declare variables
Dim category As Single
Console.WriteLine("Insert wind mph below") 'UserInput
milesPerHour = Console.ReadLine()
Select Case milesPerHour 'Calculations
Case Is > 155
category = 5
Case 131 To 155
category = 4
Case 111 To 130
category = 3
Case 96 To 110
category = 2
Case 74 To 95
category = 1
Case Else
category = 0
End Select
If category = 0 Then
Console.WriteLine("No hurricane")
ElseIf category > 0 Then
Console.WriteLine("Category is " & category)
End If
End Sub
End Module
