End Function. В процедуре IfThenElse вызов функции GetRandomNumber присваивает переменной Num1 случайное значение от 0 до 9

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

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

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

Элемент	Описание
If	Ключевое слово, отмечающее начало инструкции If-Then-Else
Num1 = 7	Условие для проверки. Первое условие всегда указано после ключевого слова If. Результатом проверки является одно из двух значений – 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.

Как вы уже убедились на предыдущем примере, средствами If-Then-Else можно организовать выполнение инструкции в зависимости от соблюдения определенного условия. Рассмотрим другой вариант ее использования, на этот раз с ключевым словом ElseIf. Программа IfThenElseIf отображает запрос на ввод пароля. Если пароль введен правильно, программа предоставляет пользователю определенные возможности работы с рабочей книгой и сообщает ему об этом.

Sub IfThenElseIf()

Dim Password As String

Password = Get Password

If Password = "level1" Then

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Visible = True

Sheet.Unprotect

Next

MsgBox "У Вас есть доступ ко всем листам этой книги."

Elself Password = "level2" Then

ActiveWorkbook.Worksheets(l). _

Visible = True

ActiveWorkbook.Worksheets(1). _

Unprotect

MsgBox "У Вас есть доступ только к 1-му листу книги."

Elself Password = "level3" Then

ActiveWorkbook.Worksheets(l).Visible = True

MsgBox "Вам доступен для чтения первый лист."

Else

MsgBox "Пароль введен неверно. Попробуйте ещё раз!"

End If