Select...Case Statement
αααααβααααα»αβααα ααααΈβαααααβααΆαααβαα½α α¬βα αααΎαβ αααβααα’ααβααΎβαααααβααβααααααβαα½αβΒ α
ααΆαααβααααααα α
Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block End Select
αααΆαααΆαααααα α
Condition α ααααααβαα½αβα ααα½αβ αααβαααα½αααααΆβααααα·αβααΎβααααα»αβααα ααααΈβαααααβααΆααα αααβαα βααααβααΈβα’αα»βαααααα Case αααβαβαααα½αβααααΌαβααΆαβααααα·ααααα·Β α
Expression α αααααααα½αβα ααα½αβ αααβααβααααΆβααΆαα½αβααααααβααααααβααααααααΒ α ααααα»αβααα ααααΈβαααααβααΆααα αααβαα βαααααβα’αα»βαααααα Case ααααΌαβααΆαβααααα·ααααα·β ααααα·αβααΎ αααααααα ααααΌαααα ααααααΒ α
α§ααΆα ααα α
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