IBM Lotus Symphony
|
Definerer en eller flere setningsblokker avhengig av verdien av et uttrykk.
Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block End Select
Betingelse: En betingelse som kontrollerer om setningsblokken som følger det respektive Case-leddet, blir utført.
Uttrykk: Et uttrykk som er kompatibelt med setningen for betingelsestype. Setningsblokken som følger etter Case-leddet, utføres hvis Betingelse samsvarer med Uttrykk.
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Tall fra 1 til 5"
Case 6, 7, 8
Print "Tall fra 6 til 8"
Case 8 To 10
Print "Større enn 8"
Case Else
Print "Utenfor området 1 til 10"
End Select
end sub