Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Логические переменные и выражения



Программирование в Microsoft Excel

Лабораторная работа №3

Условные конструкции VBA

Логические переменные и выражения

Переменной логического типа можно присваивать только значения true (истина) или false (ложь). Логические выражения составляются при помощи операций отношения, логических операций и операндов, которыми могут являться переменные, математические и строковые выражения, а также элементы массивов и функции, которые будут рассмотрены в следующих лабораторных. Простое логическое выражение имеет следующий вид:

Операнд1 Операция отношения Операнд2

Операции отношения
< > <= >= <> = Меньше Больше меньше или равно больше или равно не равно равно

Например, оператор

Lg = 5>3

присвоит логической переменной Lg значение true. В данном случае 5 и 3 – операнды.

Более сложные логические выражения создаются при помощи логических операций и круглых скобок.

Логические операции
Выражение1 And Выражение2   Выражение1 Or Выражение2     Выражение1 Xor Выражение2     Not Выражение Логическое "И" (умножение). Операция возвращает true("истина"), если оба выражения возвращают true. Логическое "или" (сложение). Операция возвращает true("истина"), если хотя бы одно выражение возвращают true. Исключающее "или". Операция возвращает true("истина") тогда и только тогда, когда истинно только одно выражение. Логическое "нет" (отрицание). Операция возвращает значение, противоположное значению выражения.

Например, необходимо присвоить логической переменной значение true, если больше или равно нулю и false, если меньше нуля:

Function pp()

Dim Lg As Boolean

Dim a As Single, b As Single, c As Single, D As Single

a = InputBox("Введите a:")

b = InputBox("Введите b:")

c = InputBox("Введите c:")

D = b ^ 2 - 4 * a * c

Lg = D > 0 Or D = 0 ' возможен другой вариант: Lg = Not D < 0

MsgBox "Lg=" & Lg ' возможен другой вариант: MsgBox

' "Lg=" & (D > 0 Or D = 0) -

' логическое выражение прямо в операторе MsgBox

End Function





Дата публикования: 2015-07-22; Прочитано: 234 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.009 с)...