' TempDescrip Example

' Input a Fahrenheit Temperature, output descriptor.

Imports System.Console
Public Module Module1

    Public Sub Main()

        Dim temp As Double, descrip As String

        Write("Enter a temperature: ")
        temp = ReadLine()
        Select Case temp
            Case Is < 32 : descrip = "Frigid"
            Case 32 To 50 : descrip = "Cold"
            Case 50 To 65 : descrip = "Chilly"
            Case 65 To 78 : descrip = "Perfect"
            Case 78 To 85 : descrip = "Warm"
            Case Else : descrip = "Hot"
        End Select
        Write("Temperature descriptor is " & descrip & ".")
        ReadLine()
    End Sub
End Module