Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim windSpeed As Integer

        Dim message As String

        Console.WriteLine("Please Enter The windSpeed: ")

        windSpeed = Console.ReadLine()

        Select Case windSpeed

            Case 74 to 95 'bounded range'

                message = "74-95 mph or 64-82 kt or 119-153 km/hr"

            Case 96 to 110 'bounded range'

                message = "96-110 mph or 83-95 kt or 154-177 km/hr"

            Case 111 to 130 'bounded range'

                message = "111-130 mph or 96-113 kt or 178-209 km/hr"

            Case 131 to 155 'bounded range'

                message = "131-155 mph or 114-135 kt or 210-249 km/hr"

        Case is > 155 'single bounded range'

                message = "greater than 155 mph or 135 kt or 249 km/hr"

    End Select

        Console.WriteLine(message)

    End Sub

End Module

​