АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Конструкция If . Then

Читайте также:
  1. Вентилируемая кровельная конструкция
  2. Генераторы переменного и постоянного электрического тока. Конструкция и области применения. Лещинский.
  3. Для несущих конструкций покрытия используют дерево, сталь, бетон и железобетон. Предпочтение отдают сборным конструкциям.
  4. Зенитные фонари, их конструкция.
  5. Комплектность и конструкция прибора
  6. Конструкция
  7. Конструкция
  8. Конструкция
  9. КОНСТРУКЦИЯ
  10. Конструкция If . . . Then . . . Else
  11. Конструкция Select Case

Конструкция 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 в блочной конструкции).


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.004 сек.)