Программа 20.10. Использование оператора Select Case
Программа 20.10. Использование оператора Select Case
Sub branchLinef) Dim t As Integer
Использование оператора GoTo будет рассмотрено чуть ниже.
labelInput: t = InputBox{"Введите число") If (Not (IsNumeric(t))) Then
Call MsgBox("Введено не число", vbCritical)
GoTo labellnput End If
Select Case t Case 0
Msgbox ("Введен 0") Case 1 To 100
MsgBox("Введено положительное число") Case -100 To -1
MsgBox("Введено отрицательное число") Case Is < -100 , Is > 100
MsgBox("Число больше 100 или меньше -100") Case Else
MsgBox("He может быть") End Select End Sub
Подобная конструкция, как упоминалось, возможна и для строковых значений, в таком случае используется лексикографическое упорядочивание.
Помимо условных операторов, в VBA существует оператор безусловного перехода, который также меняет порядок выполнения операторов в программе (безусловно):
GoTo имяМетки
После ключевого слова идет имя метки. Метка — это идентификатор, приписанный оператору программы и используемый в других частях программы для обращения к этому оператору. Метка может быть определена как до, так и после ключевого оператора GOTO, причем она должна отделятся от помеченного ею оператора двоеточием. В примере, приведенном выше, в случае введения нечислового значения, выполняется безусловный переход и пользователю заново предлагается ввести число.
