LOTUSSCRIPT 言語

例: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

関連項目