Электронные таблицы. Салмин А.А. - 107 стр.

UptoLike

Составители: 

107
программы. Данные конструкции подразделяются на
ветвления и циклы. Ветвлением называется управляющая
конструкция, позволяющая пропускать при выполнении те
или иные группы инструкций в зависимости от значения
условия. Цикл это управляющая конструкция,
представляющая возможность многократно выполнять
группы инструкций до наступления какого-либо события.
6.5.1. Ветвление
Конструкция If…Then
Конструкция If…Then дает VBA указание принять
простейшее из решений: если условие, идущие после
оператора If, истинно, нужно выполнить следующие за
ними оператор (или операторы); если же условие ложно,
нужно перейти к строке, расположенной непосредственно
за условной конструкцией. Однострочная конструкция:
If условие Then оператор[ы]
При использовании нескольких операторов (блок If):
If условие Then
оператор
[операторы]
End If
Пример однострочной конструкции:
Sub vozrast()
Age = InputBox("укажите свой возраст.", "Возраст")
If Age < 21 Then MsgBox "Вы не можете покупать
алкогольные напитки.", , "несовершеннолетний"
End Sub
программы. Данные конструкции подразделяются на
ветвления и циклы. Ветвлением называется управляющая
конструкция, позволяющая пропускать при выполнении те
или иные группы инструкций в зависимости от значения
условия. Цикл – это управляющая конструкция,
представляющая возможность многократно выполнять
группы инструкций до наступления какого-либо события.

  6.5.1. Ветвление
  Конструкция        If…Then
   Конструкция If…Then дает VBA указание принять
простейшее из решений: если условие, идущие после
оператора If, истинно, нужно выполнить следующие за
ними оператор (или операторы); если же условие ложно,
нужно перейти к строке, расположенной непосредственно
за условной конструкцией. Однострочная конструкция:
   If условие Then оператор[ы]
   При использовании нескольких операторов (блок If):

  If условие Then
     оператор
     [операторы]
  End If


  Пример однострочной конструкции:

  Sub vozrast()
  Age = InputBox("укажите свой возраст.", "Возраст")
  If Age < 21 Then MsgBox "Вы не можете покупать
алкогольные напитки.", , "несовершеннолетний"
   End Sub


                                                  107