Language Basics VisualBasic Script

Sub TestChooseActivity() 
    Debug.Print ChooseActivity(25) 
    Debug.Print ChooseActivity(34) 
    Debug.Print ChooseActivity(35) 
    Debug.Print ChooseActivity(65) 
    Debug.Print ChooseActivity(66) 
    Debug.Print ChooseActivity(75) 
    Debug.Print ChooseActivity(95) 
End Sub 
Function ChooseActivity(Temperature As Integer) As String 
    Dim sActivity As String 
    Select Case Temperature 
        Case Is < 32 
            sActivity = "S" 
        Case 33, 35 To 45 
            sActivity = "H" 
        Case 34 
            sActivity = "S" 
        Case 46 To 50, 65, 70 To 72 
            sActivity = "C" 
        Case 75 To 80 
            sActivity = "G" 
        Case 80 To 100 
            sActivity = "W" 
        Case Else 
            sActivity = "T" 
    End Select 
    ChooseActivity = sActivity 
End Function