Visual Basic. Теория. Нагина Е.К - 49 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

49
деляет порядок выполнения команд в операторе If-Then-
Else. Если условие соблюдено (True), управление переда-
ется оператору, написанному сразу за ключевым словом
If, следует до оператора перед ключевым словом Else, а
затем переходит к оператору после ключевых слов End If.
Если условие не выполнено (False), управление передает-
ся оператору после ключевого слова Else и следует до
ключевых слов End If.
Then Ключевое слово , отмечающее конец условия.
MsgBox Оператор, выполняемый при положительном
“ Congratulations! результате
You received
the winning”
& Num1 &”.”
Else Ключевое слово , отмечающее конец блока операторов,
выполняемых при положительном результате проверки,
и начало блока операторов, выполняемых при отрица-
тельном результате проверки
MsgBox “ I′m sorry, Функция , выполняемая при отрицательном
You lose. результате проверки
You number was”
& Num1 & “ .”
End If Ключевые слова, отмечающие конец структуры If-Then-
Else
В структуре If-Then-Else ключевое слово Else и следующий за ним
блок операторов не являются обязательными. Если эти элементы отсутст-
вуют, при отрицательном результате проверки управление передается опе-
ратору, стоящему после ключевых слов End If.
9.2. Дополнительное условие ElseIf
Средствами структуры принятия решения If-Then-Else можно орга -
низовать выполнение операторов в зависимости от соблюдения опреде-
ленного условия. Рассмотрим другой вариант ее использования , на этот раз
с ключевым словом ElseIf. Программа Proc31 отображает запрос на ввод
пароля . Если пароль введен правильно , программа предоставляет пользо -
вателю определенные возможности работы с рабочей книгой и сообщает
ему об этом.
Sub Proc31_IfThenElseIf ( )
Dim Password As String
Password = GetPassword
If Password = “level1” Then
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Visible = True 
                                        49
                    деляетпо рядо к вы по лнения ко манд в о перато ре If-Then-
                    Else. Е сли усло вие со блю дено (True), управление переда-
                    ется о перато ру, написанно м усразуза клю чевы м сло во м
                    If, следуетдо о перато ра перед клю чевы м сло во м Else, а
                    затем перехо дитк о перато рупо слеклю чевы х сло вEnd If.
                    Е сли усло вие не вы по лнено (False), управление передает-
                    ся о перато ру по сле клю чево г   о сло ва Else и следуетдо
                    клю чевы х сло вEnd If.
Then                 К лю чево е сло во , о тмечаю щ ее ко нец усло вия.
MsgBox              О перато р, вы по лняем ы й при по ло ж ительно м
“ Congratulations! результате
You received
 the winning”
& Num1 &”.”
Else                 К лю чево е сло во , о тмечаю щ ее ко нец бло ка о перато ро в,
                    вы по лняемы х при по ло ж ительно м результате про верки,
                    и начало бло ка о перато ро в, вы по лняем ы х при о триц а-
                    тельно м результате про верки
MsgBox “ I′m sorry, Ф ункц ия, вы по лняемая при о триц ательно м
You lose.           результате про верки
You number was”
& Num1 & “ .”
End If              К лю чевы е сло ва, о тмечаю щ ие ко нец структуры If-Then-
                    Else
       В структуре If-Then-Else клю чево е сло во Else и следую щ ий за ним
бло к о перато ро в не являю тся о бязательны м и. Е сли эти элементы о тсутст-
вую т, при о триц ательно м результате про верки управление передается о пе-
ратору, сто ящ ем упо сле клю чевы х сло вEnd If.

                     9.2. Д опол нител ьное у сл овие ElseIf

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

Sub Proc31_IfThenElseIf ( )
  Dim Password As String
    Password = GetPassword
    If Password = “level1” Then
         For Each Sheet In ActiveWorkbook.Sheets
             Sheet.Visible = True

Страницы