Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
Оператор условного перехода
|
|
Условный оператор, или оператор условного перехода, служит для организации процесса вычислений в зависимости от какого-либо условия. Общий вид условного оператора:
If Условие Then Оператор1 Else Оператор2
Условие – это выражение логического типа. Оно может быть простым или сложным. Если в условном операторе < Условие> истинно, то выполняется < Оператор1>, в противном случае выполняется < Оператор2>.
Для записи условий могут быть использованы знаки логических отношений, представленные в табл. 5.
Пример
A > = 10
Таблица 5
Знаки сравнения
| Операция | Название | Пример выражения |
| = | Равно | A=B |
| < > | Не равно | A< > B |
| > | Больше | A> B |
| < | Меньше | A< B |
| > = | Больше или равно | A> =B |
| < = | Меньше или равно | A< =B |
Сложные условия образуются из простых путем применения логических операций и круглых скобок.
Пример
If A > 10 And A < 20 then …..
If (B > 4 Or B < 2) And A > 5 then …..
В табл. 6 указаны логические операции, предназначенные для составления сложных условий.
Таблица 6
Логические операции
| Операция | Название | Пример выражения |
| Not | Логическое отрицание | Not A |
| And | Логическое И | A And B |
| Or | Логическое ИЛИ | A Or B |
В условном операторе допустимо использование блока операторов. В этом случае условный оператор имеет вид
If Условие Then
Блок операторов 1
Else
Блок операторов 2
End If
Ветвь Else в условном операторе является необязательной. Такая форма условного оператора называется неполной и выглядит следующим образом:
If Условие Then Оператор
или
If Условие Then
Блок операторов
End If
Условный оператор может содержать в себе еще несколько условных операторов. В этом случае условный оператор имеет вид
If Условие1 Then
Блок операторов 1
ElseIf Условие2 Then
Блок операторов 2
ElseIf Условие3 Then
………..
Else
Блок операторов
End If
В условном операторе после слова Then можно разместить несколько операторов в одну строку. В этом случае они должны быть разделеныдвоеточием.
Пример
If A > 10 Then A = A + 1: B = B + A: C = C + B
Если этот же пример записать с использованием в операторе If записи после Then в столбик, это будет выглядеть так:
IfA > 10 Then
A = A + 1
B = B + A
C = C + B
End If
Пример 1
Задано целое число x. Вычислить значение функции
, если x> 0;
Y = x2, если x< 0;
5, если x=0.
Программный код
Option Explicit
Sub PR3()
Dim x As Integer
Dim y As Double
x = Val(InputBox(" Введите x"))
If x > 0 Then y = Sqr(x)
If x < 0 Then y = x ^ 2
If x = 0 Then y = 5
MsgBox (" y=" & y)
End Sub
Пример 2
Задано действительное число x. Вычислить значение функции
 |
Y =
Программный код
Option Explicit
Sub PR4()
Dim x As Double
Dim y As Double
x = Val(InputBox(" Введите x"))
If x > 0 Then
y = 1 / Sqr(x)
MsgBox (" y=" & y)
Else
MsgBox (" Решения нет")
End If
End Sub
Пример 3
Задано три действительных числа x, y, z. Вычислить самое большое из них.
Программный код
Option Explicit
Sub PR5()
Dim x As Double, y As Double, z As Double, max As Double
x = Val(InputBox(" Введите x"))
y = Val(InputBox(" Введите y"))
z = Val(InputBox(" Введите z"))
If (x > y) And (x > z) Then max = x
If (y > x) And (y > z) Then max = y
If (z > x) And (z > y) Then max = z
MsgBox (" Максимум=" & max)
End Sub
|
|