Вопрос №17. Оператор VBA Select Case. Привести примеры.
Когда нужно проверить результат одного выражения, который может иметь много различных значений, и для каждого из этих значений надо выполнить свою уникальную последовательность действий удобнее пользоваться управляющим оператором Select Case вместо If…Then…Else. В примере определяется диапазон, в который попадает переменная А. Этот оператор используется, когда из всех альтернатив надо выбрать одну. Удобнее оператора If…Then…Else, особенно при большом числе проверок.
Синтаксис:
Select Case –выражение-
Case 1 – выражение 1-
          (блок операторов)
Case 2 – выражение 2-
          (блок операторов)
----//----
Case else
          (блок операторов)
End Select
Sub Klen()
Dim B As Integer
Dim X As String
B = 4
Select Case B
Case 0 To 4
X = "A=4"
Case 5, 6, 7, 8, 9, 10
X = "5<=A<=10"
Case Else
X = "A<0 или A>10"
End Select
MsgBox X
End Sub Sub My_Pr()
n = InputBox (“введи число от 1 до 7”)
Select Case n
Case 1
MsgBox(“понедельник”)
Case 2
MsgBox(“вторник”)
Case 3
MsgBox(“среда”)
Case 4
MsgBox(“четверг”)
Case 5
MsgBox(“пятница”)
Case 6
MsgBox(“суббота”)
Case 7
MsgBox(“воскресенье”)
Case Else
MsgBox(“введите правильное число”)
End Select
End Sub