![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Логические операторы
Помнить нужно про AND, OR, NOT, остальные логические операторы используются редко.
Условный оператор Позволяет выполнить один или несколько операторов, если условие истинно. Можно использовать однострочный или блочный вариант. Если необходимо выполнить более одной строки кода, нужно использовать блочный вариант с оператором End IF.
Синтаксис: IF < логическое выражение > Then < оператор (код) > или IF < логическое выражение > Then < блок кода > End IF
Пример
Sub testIF() Dim x As Integer, y As Integer, z As Integer x = InputBox(" x=", " Ввод данных") y = InputBox(" y=", " Ввод данных") If x > y Then z = x MsgBox (" x> y z=" & z) End If If y > x Then z = y MsgBox (" x< y z=" & z) End If If x = y Then MsgBox (" x=y z=" & x) End Sub
Пример: IF x < 10 Then z = 0 IF x > 10 Then z = 2 z = z + x End IF
Пример ветвления по трём и более направлениям IF < условие > THEN < оператор 1 > ELSE < оператор 2 > End IF
Позволяет определить два блока операторов. Первый выполняется, когда условие истинно, а второй, когда оно ложно.
Пример: If x < > 0 Then y = Sin(x)/x Else y = 1 End IF
Пример ветвления по трём и более направлениям: IF < условие 1 > Then < блок кода 1 > ElseIF < условие 2 > Then < блок кода 2 > ElseIF < условие 3 > Then < блок кода 3 > Else < блок кода 4 > End IF
В блоке IF допускается любое количество предложений ElseIF, но ни одно не может находиться после предложения Else. Пример: IF x = -1, 57 Then y = -1 ElseIF x = 0 Then y = 0 ElseIF x = 1, 57 Then y = 1 Else y = Sin(x) End IF
Оператор Select...Case Select...Case позволяет по определенному значению, диапазону или условию выполнить разные действия. Например: если а = 5 то выполнить действие 1 если a в диапазоне между 7 и 9 то действие 2 если a не подходит ни одно условие то действие 3
Это можно записать условным оператором If, получается следующее: If a = 5 Then действие 1 elseif (a > 7 And a < 9) Or (a = 7 Or a = 9) then действие 2 Else действие 3 End If
Теперь запишем это же, но с помощью конструкции Select: Select Case a Case 5 действие 1 Case 7 To 9 действие 2
|