11) Инструкция выбора If.

Наиболее часто для программирования разветвлений используется

инструкция If ... End If

Эта инструкция может иметь однострочный или блочный синтаксис.

Однострочный синтаксис.

If Условие Then Инструкция1 [Else Инструкция2]

Здесь If (если), Then (то) и Else (иначе) - зарезервированные слова. Функционирование

этой инструкции относительно просто. Если записанное после If условие истинно, т.е.

результат равен True, то выполняется Инструкция 1, указанная за Then. Если же

результат равен False, то выполняется Инструкция 2, следующая за ключевым словом

Else, если такая имеется. Например:

If a = 7 Then Beep

If x < 9 Then MsgBox("False!") Else MsgBox("True!")

Первая строка задает подачу звукового сигнала, если переменная a равна 7. Во второй

строке в окне функции MsgBox выводится текст False!, если значение переменной x

меньше 9. В противном случае выводится текст True!.

Существенно, что после слова Then, а также после слова Else может находиться

несколько операторов, отделенных друг от друга двоеточием. В этом случае такая

последовательность операторов является одной группой, которая либо выполняется, либо

пропускается в зависимости от управляющего условия.

Пример:

Dim a As Boolean = False, b As Integer

If a Then b = b + 1 : b = b + 1 : b = b + 1

Console.WriteLine(b)

В этом примере переменная b получит значение 0. Если бы переменная a была равна

True, то переменная b получила бы значение 3.

Блочный синтаксис.

If Условие Then

[Инструкции 1]

[ElseIf УсловиеN Then

[Инструкции N]

Else

[Инструкции 2]]

End If

Если в зависимости от условия необходимо выполнить не простую команду, а группу

инструкций, следует использовать блочный синтаксис. Это относится и к ветви Else.

Кроме того, блочная структура с ElseIf позволяет анализировать несколько условий:

If A = 7 Then

Beep

End If

If Name = "Иванов" Then

MsgBox("Ваша карточка удерживается!")

Else

MsgBox("Получите деньги, пожалуйста!")

End If

If Обращение = 1 Then

MsgBox("Здравствуйте, господин")

ElseIf Обращение = 2 Then

MsgBox(" Здравствуйте, госпожа")

Elself Обращение = 3 Then

MsgBox(" Здравствуйте, дамы и господа")

Else

MsgBox("Здравствуйте, люди")

End If

12) Инструкция множественного выбора Select Case.

Еще одной инструкцией VB, предназначенной для программирования разветвлений,

является Select Case (выбрать в случае), которая позволяет выполнить одну из

нескольких групп операторов в зависимости от значения некоторого выражения.

Инструкция Select Case имеет следующий синтаксис:

Select Case Проверочное_выражение

[Case Значение1

[Инструкции1]]

[Case Значение2

[Инструкции2]]

[Case Else

[ИнструкцииЗ]]

End Select

Пример:

Select Case V

Case 1

MsgBox("Равно 1")

Case 2, 3

MsgBox("Равно 2 или 3") Case 4 То 6

MsgBox("Больше или равно 4 и меньше или равно 6")

Case Is >= 9

MsgBox("Больше или равно 9")

Case Else

MsgBox("Ни одно из предшествующих")

End Select

В качестве значения для блока Case можно указывать не только одно значение (4), но и

несколько, разделенных запятой (2, 3). Можно определять также области сравнения

(4 То 6) или воспользоваться относительным сравнением (Is >= 9). Вместо

непосредственного значения проверочного выражения можно использовать ключевое

слово Is.

Блок Case Else выполняется, если ни одно из предыдущих условий не является

истинным.

Если условию Select Case соответствует несколько блоков Case, то выполняется

первый из них.