例: Select Case ステートメント

' One of five Print statements is selected for execution, 
' depending on the value of the variable segSelect. 
' Note that the Case Else clause is executed only if
' segSelect is less than 0, between 0 and 1, between 1 and 2,
' between 2 and 3, or between 5 and 6.
Dim segSelect As Double
' ...
For segSelect# = -1 to 7
   Select Case segSelect#
      Case 0       : Print "0"
      Case 1, 2    : Print "1, 2"
      Case 3 To 5  : Print "3 TO 5"
      Case Is >= 6 : Print ">=6"
      Case Else    : Print "Else"
   End Select
Next
' Output:
' Else
' 0
' 1, 2
' 1, 2
' 3 TO 5
' 3 TO 5
' 3 TO 5
' >=6
' >=6