Использование логических операторов при проверке условий
|
Логическое условие |
Фрагмент программы |
|
2<a<5 |
If a > 2 And a < 5 Then c = a + b Else c = b - a End If |
|
a<0 или b<0 |
If a < 0 or b < 0 Then MsgBox ("Отрицательные значения") End If |
|
2<a<5 или 10<a<15 |
If (a > 2 And a < 5) Or (a > 10 And a < 15) Then ..... |
Пример 1
Вычислить
,
при a - x
> 0
a и x - любые целые числа, задаваемые с клавиатуры.
Составить блок-схему. Все переменные вывести на лист.
|
Option Explicit Sub prog1()
‘Объявление данных Dim a as integer, x as integer, y as single
‘Ввод исходных данных a = InputBox (“a = “) x = InputBox (“x = “)
‘Проверка условий If a – x > 0 then y = (a – x) ^ 0.5 End IF
‘Вывод результата на лист Sheets(“Лист3”).Cells(1,1) = y
End Sub |
|
Пример 2
Составить блок-схему. Значение х вводить с клавиатуры.
Значение у вывести на лист
Внимание!!! При расчете тригонометрических функций типа sin, cos и т.п. значение угла должно браться в радианах
|
Option Explicit Sub prog2()
‘Объявление данных Dim x as single, y as single
‘Ввод исходных данных x = InputBox (“x = “)
‘Перевод угла из градусов в радианы x = x * 3.142 / 180
‘Проверка условий If x <= 1 then y = sin(x) Else y=cos(x) End IF
‘Вывод результата на лист Sheets(“Лист3”).Cells(1,1) = “x” Sheets(“Лист3”).Cells(1,2) = “y” Sheets(“Лист3”).Cells(2,1) = x Sheets(“Лист3”).Cells(2,2) = y
End Sub |
|
Пример 3
Составить блок-схему. Значение х считывать с листа.
Значение z вывести на лист.
Выполнить проверку в Excel.
|
Option Explicit Sub prog3()
‘Объявление данных Dim x as single, a as single Dim m as single, z as single
‘Ввод исходных данных x = InputBox (“x = “) a = InputBox (“a = “) m = InputBox (“m = “)
‘Проверка условий If x >1 then y = a * m * x ^ 0.5 Else If x = 0 then y = a * m + x Else y = 5 + x ^ 3 End IF End IF
‘Вывод результата на лист Sheets(“Лист3”).Cells(1,1) = “x” Sheets(“Лист3”).Cells(1,2) = “a” Sheets(“Лист3”).Cells(1,3) = “m” Sheets(“Лист3”).Cells(1,4) = “y” Sheets(“Лист3”).Cells(2,1) = x Sheets(“Лист3”).Cells(2,2) = a Sheets(“Лист3”).Cells(2,3) = m Sheets(“Лист3”).Cells(2,4) = y
End Sub |
|
Пример 4 (с.р.)
Значения a задавать вводом с клавиатуры.
Значения всех переменных вывести на лист.
При составлении программы необходимо правильно (с учетом требований VBA) записать диапазон условий ( см. Использование логических операторов при проверке условий)