Введение в информатику. Хамухин А.А. - 97 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

96
End Sub
Function GetRandomNumber()
GetRandomNumber = Int(10 * Rnd())
End Function
В Рro26 вызов функции GetRandomNumber присваивает переменной N
случайное значение от 0 до 9. Затем в инструкции If происходит проверка условия:
N = 7. Если результат проверки равен True (Истина), на экран выводится
информационное окно с сообщением о выигрыше. Если результат проверки равен
False (Ложь), на экран выводится другое окно с сообщением о проигрыше.
В инструкции If-Then-Else ключевое слово Else и следующий за ним блок
инструкций не являются обязательными. Если эти элементы отсутствуют, при
отрицательном результате проверки управление передается инструкции, стоящей
после ключевых слов End If.
Cредствами If-Then-Else можно организовать разветвление выполнения
программы только на 2 ветви. Рассмотрим другой вариант ее использования, на этот
раз с ключевым словом ElseIf, которое позволяет сделать разветвление на несколько
ветвей:
Sub Pro27()
Dim PassW As String
PassW = GetPassWord
If PassW = "level1" Then
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Visible = True
Sheet.Unprotect
Next
MsgBox "Вы получили полный доступ"
ElseIf PassW = "level2" Then
ActiveWorkbook.Worksheets(1).Visible = True
ActiveWorkbook.Worksheets(1).Unprotect
MsgBox "Вы получили полный доступ к листу1"
ElseIf PassW = "level33" Then
ActiveWorkbook.Worksheets(1).Visible = True
MsgBox " Вы получили доступ на чтение к листу1"
Else
MsgBox "Пароль неверен"
End If
End Sub
Function GetPassWord()
GetPassWord = LCase(InputBox("ВВЕДИ ПАРОЛЬ: ", "PassWord"))
End Function
Здесь в предпоследней строке задано обращения к встроенной функции VBA
LCase. Она преобразует все буквы переданной в нее строки в строчные (если
необходимо преобразовать буквы в заглавные используйте функцию UCase). В
этом примере программа разветвляется на 4 ветви.

Страницы