End Function

End Sub

End If

Else

MsgBox "Сожалею, но Вы проиграли. Выпало число " & _

Num1 & "."

Function GetRandomNumber()

GetRandomNumber = Int(10 * Rnd())

В процедуре 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.