Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
Логические операторы
|
|
| Оператор | Описание |
| AND | логическое И, должны быть истинными оба условия |
| OR | логическое ИЛИ, должно быть истинным хотя бы одно из условий |
| NOT | логическое отрицание, возвращает TRUE, если условие ложно |
| XOR | логическое исключение. В выражении A XOR B возвращает TRUE, если только A = TRUE или только B = TRUE, иначе — FALSE |
| EQV | эквивалентность двух выражений, возвращает TRUE, если они имеют одинаковое значение |
| IMP | импликация, возвращает FALSE, если A = TRUE и B = FALSE, иначе — TRUE. |
Помнить нужно про 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
|
|