Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Enter wind speed MPH")

        dim wind as integer =Console.readline()

        Select case wind

        case 74 to 95    'score is 0 or 10

            console.Writeline("Category 1 74-95 mph 64-82 kt 119-153 km/h")

        case 96 to 110  'score is 20,21,22,or 23

            console.Writeline("Category 2   96-110 mph 83-95 kt 154-177 km/h")

        case 111 to 130

            console.Writeline("Category 3 (major)111-130 mph 96-113 kt 178-209 km/h")

        case 131 to 155

            console.Writeline("Category 4 (major)130-156 mph 113-135 kt 209-249 km/h")

        case < 155 

            console.Writeline("Category 5 (major)155 mph or higher 135 kt or higher 249 km/h or higher")

            End Select

    End Sub

End Module