Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Программирование в 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 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!