/text/sbasic/shared/03090102.xhp

Select Case statement Case keyword; in Select Case statement Select...Case Statement Defines one or more statement blocks depending on the value of an expression.

Select Case syntax Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block End Select condition: Any expression that controls if the statement block that follows the respective Case clause is executed. expression: Any expression that is compatible with the condition type expression. The statement block that follows the Case clause is executed if condition matches expression. Sub ExampleRandomSelect Dim iVar As Integer iVar = Int((15 * Rnd) -2) Select Case iVar Case 1 To 5 Print "Number from 1 to 5" Case 6, 7, 8 Print "Number from 6 to 8" Case 8 To 10 Print "Greater than 8" Case Else Print "Out of range 1 to 10" End Select End Sub