Visual Basic. Разработка приложений: теория и практика. Ищенко В.А - 48 стр.

                                   48
вуют, при отрицательном результате проверки управление передается опе-
ратору, стоящему после ключевых слов End If.
                  9.2. Дополнительное условие ElseIf
     Средствами структуры принятия решения If-Then-Else можно орга-
низовать выполнение операторов в зависимости от соблюдения опреде-
ленного условия. Рассмотрим другой вариант ее использования, на этот раз
с ключевым словом ElseIf. Данная конструкция If...Then...ElseIf с не-
сколькими операторами If позволяет проверить дополнительное условие,
если исходное условие принимает значение False. Синтаксис оператора,
определяющего несколько групп операторов, из которых в зависимости от
соблюдения условия должна быть выполнена только одна, имеет следую-
щий вид:
                    If условие_1 Then
                        Блок_операторов_1
                    ElseIf условие_2 Then
                        Блок_операторов_2
                    ...
                    Else
                        Блок_операторов_n
                    End If
      В качестве примера рассмотрим программу Proc2, которая отобража-
ет запрос на ввод пароля. Если пароль введен правильно, то программа
предоставляет пользователю определенные возможности работы с рабочей
книгой и сообщает ему об этом.
Пример 2.
Private Sub Proc2_IfThenElseIf ( )
  Dim Password As String
    Password = GetPassword
    If Password = “level1” Then
         For Each Elem In Form1
              Elem.Font.Name = “Ms Sans Serif”
              Elem.Font.Italic = True
              Elem.Font.Size = 10
         Next Elem
    ElseIf Password = “level2” Then
         For Each Elem In Form1
              Elem.Font.Name = “MT Extra”
              Elem.Font.Italic = False
              Elem.Font.Size = 14
         Next Elem
    ElseIf Password = “level3” Then
         For Each Elem In Form1