Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Use Integer as the switch value for Select Case Structure

Sub ifTest5()       Dim intNum As Integer       intNum = 2       Select Case intNum       Case 1             Debug.Print "This is the lowest number"       Case 15             Debug.Print "This is the highest number"       Case Else             Debug.Print "The number is between 1 and 15"       End Select End Sub