Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Choosing Actions with Select Case

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