Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Создание пользовательских п ÒÉÌÏÖÅÎÉÊ ÓÒÅÄÓÔÁÍ...doc
Скачиваний:
6
Добавлен:
18.11.2019
Размер:
2.02 Mб
Скачать

Логические операции

Логические операции, объединяя два условия в одно, позволяют сформулировать сложное условие (комплексный критерий), результатом проверки которого также является логическое значение True или False. Операндами логических операций могут являться логические переменные или операции сравнения.

Таблица истинности логических операций

1 операнд

2 операнд

Not

And

Or

Xor

Imp

Eqv

True

True

False

True

True

False

True

True

True

False

False

False

True

True

False

False

True

Null

False

Null

True

Null

Null

Null

False

True

True

False

True

True

True

False

False

False

True

False

False

False

True

True

False

Null

True

False

Null

Null

True

Null

Null

True

Null

Null

True

Null

True

Null

Null

False

Null

False

Null

Null

Null

Null

Null

Null

Null

Null

Null

Null

Null

Null

Например, запись A>=25 And A<=85 означает проверку, принадлежит значение переменной A отрезку [25;85].

Значение Null в приведенной таблице истинности указывает на отсутствие значения у операнда или у результата.

Символьные операции

Смысл единственной символьной операции (операции конкатеации или сцепления) состоит в том, что порождается новая символьная строка, значение которой получается присоединением значения второго операнда справа к значению первого операнда. Оба операнда рассматриваются как символьные переменные.

Внимание

  • Знак сложения может использоваться как знак операции конкатенации, но если операндами являются числа, то произойдет сложение операндов.

Пример

В процедуре производится распечатка вновь создаваемой строки c текстом "Visual Basic for Application".

Sub conc_string()

Dim a As String, b As String, c As String

Dim c As String, d As String

a= "Visual"

b= "Basic"

c= "for"

d="Application"

Debug.Print a & " " & b & " " & c &" " & d

End sub

Можно использовать встроенные константы vbCrLf, vbCr, vbLf для разбиения текста на строки. Для этого запишите последний оператор процедуры в виде:

Debug.Print a & vbCrLf & b & vbCrLf & c & vbCrLf & d