Select...Case Statement
ΠΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΠΎΠ΄ΠΈΠ½ ΠΈΠ»ΠΈ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΠ°ΡΡΠΊΠΎΠ² ΠΊΠΎΠ΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ.
Select Case Π£ΡΠ»ΠΎΠ²ΠΈΠ΅ Case ΠΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π£ΡΠ°ΡΡΠΎΠΊ_ΠΊΠΎΠ΄Π° [Case ΠΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅2 Π£ΡΠ°ΡΡΠΎΠΊ_ΠΊΠΎΠ΄Π°][Case Else] Π£ΡΠ°ΡΡΠΎΠΊ_ΠΊΠΎΠ΄Π° 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 "Π§ΠΈΡΠ»ΠΎ ΠΎΡ 1 Π΄ΠΎ 5"
Case 6, 7, 8
Print "Π§ΠΈΡΠ»ΠΎ ΠΎΡ 6 Π΄ΠΎ 8"
Case 8 To 10
Print "ΠΠΎΠ»ΡΡΠ΅ 8"
Case Else
Print "ΠΠ½Π΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΠΎΡ 1 Π΄ΠΎ 10"
End Select
End Sub