УСЛОВНЫЙ ОПЕРАТОР IF... THEN... ELSE (Если … То … Иначе)

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

После первого ключевого слова (IF) должно быть размещено условие. После второго ключевого слова (THEN) последовательность команд (серия 1), которая должна выполняться, если условие принимает значение «истина». После третьего ключевого слова (ELSE) размещается последовательность команд (серия 2), которая должна выполняться, если условие принимает значение «ложь». Блок-схемаЯзык программирования Visual Basic IF Условие THEN Серия 1 [ELSE Многострочная Серия 2] форма записи END IF 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. Блок-схемаЯзыки программирования Visual Basic Select Case Выражение Case Условие 1 Серия 1 Case Условие 2 Серия 2 Case Else Серия End Select Условие 1 Серия 1 Условие 2 Серия Серия 2 Если необходимо осуществить проверку более сложных условий, чем ДА/НЕТ, целесообразно использовать SELECT … END SELECT.

Пример решения задачи Задача. Если введенное с клавиатуры число меньше нуля, то вывести на экран « 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