Лекция: Инструкции 2

END IF

В блочной форме условного оператора такая разбивка по стро­кам является обязательной. Инструкции могут состоять из несколь­ких операторов или методов и занимать несколько строк.

Несколько условий можно проверять, используя вложенные условные операторы следующей конструкции.

IF условие1 THEN

инструкции 1

ELSEIF условие2 THEN

Инструкции 2

ELSE

Инструкции 3

END IF

Служебное слово ELSEи инструкции, записанные после него, оператор может и не содержать. Тогда он имеет вид:

IF условие THEN инструкции 1

Если условие не выполняется, то инструкции 1пропускаются и работает следующий оператор, записанный после условного.

Пример 4. На Листе Excel в ячейках A2:C2 находятся 3 числа. Найти наибольшее из них и записать в ячейку B3.

Sub пример4()

Dim a As Single, y As Single, max As Single

max = Worksheets(«Лист1»).Cells(2, 1).Value

a = Worksheets(«Лист1»).Cells(2, 2).Value

y = Worksheets(«Лист1»).Cells(2, 3).Value

If a > max Then max = a

If y > max Then max = y

Worksheets(«Лист1»).Cells(3, 1).Value = «максимум=»

Worksheets(«Лист1»).Cells(3, 2).Value = max

End Sub

1.9.3. Оператор выбора

Синтаксис оператора:

Select Case тестовое_выражение

Case список 1 значений выражения

инструкции 1

Case список 2 значений выражения

инструкции 2

............. .

Case Else