УСЛОВНЫЙ ОПЕРАТОР презентация

(Если … То … Иначе)

ЛИБО ЛОЖНЫМ.

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

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

второго ключевого слова (THEN) последовательность команд (серия 1), которая должна выполняться, если условие принимает значение «истина». После третьего ключевого слова (ELSE) размещается последовательность команд (серия 2), которая должна выполняться, если условие принимает значение «ложь».

Условие

Серия 1

Серия 2

Многострочная форма записи оператора условного перехода IF … THEN … ELSE … END IF (ЕСЛИ … ТО … ИНАЧЕ … КОНЕЦ ЕСЛИ)

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

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

с ключевых слов Select Case, после которых записывается выражение (переменная, арифметическое выражение). После ключевых слов Case заданное выражение сравнивается с определенными значениями – записываются условия, при истинности одного из которых начинает выполняться серия команд. Заканчивается инструкция ключевыми словами End Select.

Условие 1

Серия 1

Условие 2

Серия

Серия 2

Если необходимо осуществить проверку более сложных условий, чем ДА/НЕТ, целесообразно использовать SELECT … END SELECT.

вывести на экран «<0». Если число находится в пределах от 0 до 9, то вывести на экран «0-9». Если число равно 10 или 11, то вывести на экран «10,11». Во всех остальных случаях вывести на экран «>11».
Private Sub Command1_Click()
Dim a As Single
a = Val(InputBox("Bведите число", "Bвод числа"))
Select Case a
Case Is < 0: Print " < 0 "
Case 0 To 9: Print "0 - 9 "
Case Is = 10, 11: Print "10, 11"
Case Else
Print " > 11 "
End Select
End Sub