 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Конструкция If . Then
Конструкция If... Then применяется, когда необходимо выполнить один или группу операторов в зависимости от некоторого условия. Синтаксис этой конструкции позволяет задавать ее в одной строке или в нескольких строках программы:
If условие Then выражение
If условие Then
выражение
End If
Обычно условие является простым сравнением, но оно может быть любым выражением с вычисляемым значением. Это значение интерпретируется как False (Ложь), если оно нулевое, а любое ненулевое рассматривается как True (Истина). Если условие истинно, то выполняются все выражения, стоящие после ключевого слова Then. Для условного выполнения одного оператора можно использовать как синтаксис для одной строки, так и синтаксис для нескольких строк (блоковую конструкцию).
Пример 1. Условный переход (If … Then…)
Рассчитать значение А и n при x = 2.3, y=45.8, z=55.5 и условиях:
Запишем код программы:
| Option Explicit |
| Public Sub Execute() |
| Dim a As Single, x As Single, y As Single |
| Dim z As Single, n As Single |
| x = 2.3 |
| y = 45.8 |
| z = 55.5 |
| a = Sqr(Abs(x + y ^ 2 + z)) |
| If a > 2 Then |
| n = x ^ 2 - y ^ 3 + 2 * x * y |
| End If |
| If a = 2 Then |
| n = y ^ 3 - x ^ 2 |
| End If |
| If a < 2 Then |
| n = 1 - (y - z) / (y + z) |
| End If |
| Debug.Print "x ="; x; "y ="; y; "z ="; z |
| Debug.Print "a ="; a |
| Debug.Print "n ="; n |
| End Sub |
Пример 2. Рассчитать температуру при условии кипения воды или вода будет превращаться в пар (рис. 24.).
Рис. 24. Результат программы примера 2.
Заметим, что синтаксис оператора If... Then для одной строки не использует оператор End If. Чтобы выполнить последовательность операторов, если условие истинно, следует использовать блоковую конструкцию If... Then... End If.
Так, например:
If (a = b) Or (c <> d) Then
b = d
a = 20
End If
Выражение b=d будет выполнено только в том случае, если a=b или c<>d.
Если условие ложно, то операторы после ключевого слова Then не выполняется, а управление передается на следующую строку (или строку после оператора End If в блочной конструкции).
Поиск по сайту: