Блок операторов

End If

2) альтернативная

а) линейная If условие Then выражение_1 EIse выражение_2;

б) блочная If условие Then

Блок операторов_1

EIse

Блок операторов_2

End If

Sub Рrос1_IfThenElse ()

Dim Num1 As Integer

Num1 = Get RandomNumber

If Num 1 = 9 Then

MsgBox "Поздравляем! Вы победитель! Ваш номер был" &_ Num1 & ". ''

Else

MsgBox "Извините, вы проиграли. Ваш номер был" &_Num1 & ". "

End If

End Sub

Function GetRandomNumber ()

GetRandomNumber = Int (10*Rnd())

End Function

В РгосЗО вызов функции GetRandomNumber присваивает переменной Numl случайное значение от 0 до 9. Затем в операторе If происходит про­верка условия: Num 1=1'. Если результат проверки равен True (Numl равно 7), на экран выводится информационное окно с сообщением о выигрыше.

Если результат проверки равен False (Numl не равно 7), на экран вы­водится другое окно - с сообщением о проигрыше.

Рассмотрим отдельные элементы оператора If-Then-Else.

If	Ключевое слово, отмечающее начало оператора If-Then-Else.
Num 1 = 9	Условие для проверки. Результатом проверки является одно из двух значений - True или False, кот. опред.порядок выполнения команд в операторе If-Then-Else. Если условие соблюдено (True), управление переда­ется оператору, написан.сразу за ключевым словом If, следует до оператора перед ключевым словом Else, а затем переходит к оператору после ключевых слов End If. Если условие не выполнено (False), управление передает­ся оператору после ключевого слова Else и следует до ключевых слов End If.
Then	Ключевое слово, отмечающее конец условия.
MsgBox "Поздравляем! Вы победитель! Ваш номер был" &_ Num1 & ". ''	Оператор, выполняемый при положительном результате
Else	Ключ. слово, отмеч. конец блока операторов, выполняемых при полож. результате проверки, и начало блока операторов, выполняемых при отриц.
MsgBox "Извините, вы проиграли. Ваш номер был" &_Num1 & ". "	Функция, выполняемая при отрицательном результате проверки
End If	Ключевые слова, отмечающие конец структуры If-Then- Else

В структуре If-Then-Else ключевое слово Else и следующий за ним блок операторов не являются обязательными. Если эти элементы отсутст­вуют, при отрицательном результате проверки управление передается опе­ратору, стоящему после ключевых слов End If.

№20 Структура принятия решения If-Then- ElseIf

Конструкция If-Then- ElseIf с несколькими операторами If позв. проверить дополнит. условие, если исход. услов. принимает знач. False. Синтаксис:

If условие1 Then

Блок операторов 1

ElseIf условие2 Then