2014-02-09
465
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.
