УСЛОВНЫЙ ОПЕРАТОР

УСЛОВИЕ – ЭТО ВЫСКАЗЫВАНИЕ, КОТОРОЕ МОЖЕТ БЫТЬ ЛИБО ИСТИННЫМ, ЛИБО ЛОЖНЫМ.
Условие, записанное на формальном языке, называется условным или логическим выражением.
Условные выражения могут быть простыми и сложными.
Простое условие включает в себя два числа, две переменные или два арифметических выражения, которые сравниваются между собой с использованием операций сравнения (=, >, <, >=, <=, <>). Например, 17<2, Х>=5, X*Y=X+Y.
Сложное условие – это последовательность простых условий, объединенных между собой знаками логических операций. Например, Y>-2 AND Y< 8.
Оператор условного перехода может быть записан в однострочной форме или многострочной форме.
В однострочной форме он записывается с помощью инструкции IF . . . THEN . . . ELSE (Если … То … Иначе)

После первого ключевого слова (IF) должно быть размещено условие. После второго ключевого слова (THEN) последовательность команд (серия 1), которая должна выполняться, если условие принимает значение «истина». После третьего ключевого слова (ELSE) размещается последовательность команд (серия 2), которая должна выполняться, если условие принимает значение «ложь».
Условие
Серия 1
Серия 2
Многострочная форма записи оператора условного перехода IF … THEN … ELSE … END IF (ЕСЛИ … ТО … ИНАЧЕ … КОНЕЦ ЕСЛИ)

Пример:
Задача. Определить максимальное из двух введенных с клавиатуры чисел.
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a = Val(InputBox("Bведите 1 число", "Bвод числа"))
b = Val(InputBox("Bведите 2 число", "Bвод числа"))
IF a = b Then Print a; "="; b
IF a > b Then
Print a; " > "; b: Print "MAX = "; a
Else
Print b; " >"; a: Print "MAX = "; b
End If
End Sub

Пример:
Задача. Определить максимальное из двух введенных с клавиатуры чисел.
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a = Val(InputBox("Bведите 1 число", "Bвод числа"))
b = Val(InputBox("Bведите 2 число", "Bвод числа"))
IF a = b Then Print a; "="; b: Goto 1
IF a > b Then
Print a; " > "; b: Print "MAX = "; a
Else
Print b; " >"; a: Print "MAX = "; b
End If
1 End Sub

ОПЕРАТОР ВЫБОРА
Select Case Выражение
Case Условие 1
Серия 1
Case Условие 2
Серия 2
Case Else
Серия
End Select

В Visual Basic инструкция выбора начинается с ключевых слов Select Case, после которых записывается выражение (переменная, арифметическое выражение). После ключевых слов Case заданное выражение сравнивается с определенными значениями – записываются условия, при истинности одного из которых начинает выполняться серия команд. Заканчивается инструкция ключевыми словами End Select.
Условие 1
Серия 1
Условие 2
Серия
Серия 2
Если необходимо осуществить проверку более сложных условий, чем ДА/НЕТ, целесообразно использовать SELECT … END SELECT.