Конструкция Select Case

End If

Else

ElseIf objFilm.Color Then

Оператор условного перехода If…Then… Else

End If

Конструкция If…Then… Else аналогична конструкции If…Then, но позволяет задать действия, исполняемые как при выполнении, так и при невыполнении условий (оператор Else). При этом синтаксис условного перехода:

If условие Then

(операторы, выполняющиеся, когда условие принимает значение True)

Else

(операторы, выполняющиеся, когда условие принимает значение False)

End If

Если нужно проверить, кроме основного, ещё и другие условия, используется ключевое слово ElseIf. Оператор Else при этом необязателен, но если он присутствует, то должен быть в структуре последним, в частности:

If x > 10 Then

Label1.Text = "Значение положительное"

ElseIf x = 0 Then

Label1.Text = "Значение равно нулю"

Else

Label1.Text = "Значение отрицательное"

End If

Структуры If…Then и могут вкладываться друг в друга.

Ещё один пример применения условного перехода If…Then… Else:

If objFilm.ExpDate < Date Then

MsgBox "Эта пленка никуда не годится"

ElseIf objFilm.Type = "Слайд" Then

Слайд = Слайд + 1

ЦветНегатив = ЦветНегатив + 1

ЧернобелНегатив = ЧернобелНегатив + 1

Первый оператор проверяет срок годности пленки, и если он превышен, то выдается сообщение в окне MsgBox.

Если пленка годная, т. е. первое условие False, то выполняется второй оператор, который проверяет свойство – тип пленки, слайдовая или нет.

Если плёнка слайдовая(True), то выполняется следующий оператор: в количество пленок такого типа добавляется 1.

Если же условие не выполняется (False), то выполняется следующая операция ElseIf – проверка цветапленки (цветная или нет).

Если плёнка цветная (True), то в счетчик цветных негативных добавляется 1.

Если False, то осуществляется переход к последнему оператору – Else и добавление в счетчик черно-белых плёнок единицу, после чего операция выбора заканчивается.

Оператор If…ElseIf хорошо подходит для принятия решений на основе последовательной проверки уменьшающегося количества значений по различным условиям. Если же приходится проверять одно и то же количество значений в сравнениис различными условиями, то более эффективным, простым в записи и удобочитаемым является оператор Select Case (Case – отдел).

Синтаксис оператора Select Case:

Select Case значение

Case критерий1

(операторы, выполняемые, когда значение удовлетворяет критерию 1)

Caseкритерий2

(операторы, выполняемые, когда значение удовлетворяет критерию 2)

дополнительные операторы Case