Select...Case Statement
рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХреЛ рдорд╛рдирдорд╛ рдирд┐рд░реНрднрд░ рд░рд╣рдиреЗ рдПрдХ рд╡рд╛ рдПрдХ рднрдиреНрджрд╛ рдмрдвреА рдХрдерди рдЦрдгреНрдбрд╣рд░реВ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрджрдЫ ред
рдЪрдпрди рдХреЗрд╕ рдЕрд╡рд╕реНрдерд╛ рдХреЗрд╕ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдХрдерди рдЦрдгреНрдб[рдХреЗрд╕ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐реи рдХрдерди рдЦрдгреНрдб][рдХреЗрд╕ рдЕрддрд┐рд░рд┐рдХреНрдд ]рдХрдерди рдЦрдгреНрдб рдЕрдиреНрдд рдЪрдпрди
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
рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН "Number from 1 to 5"
Case 6, 7, 8
рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН "Number from 6 to 8"
Case 8 To 10
рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН "Greater than 8"
Case Else
"рез рджреЗрдЦреА резреж рдХреЛ рджрд╛рдпрд░рд╛ рдмрд╛рд╣рд┐рд░"рдЫрдкреНрдиреБрд╣реЛрд╕реН
End Select
End Sub