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

                                     59

                            9.9. Оператор Exit
      С помощью этого оператора осуществляется выход из процедуры
или функции. В некоторых случаях также необходимо прервать выполне-
ние цикла до его завершения. Это можно сделать с помощью команды без-
условного перехода Exit.
      Команда Exit завершает выполнение цикла и передает управление
следующей за циклом конструкции. Синтаксис этого оператора внутри
цикла For выглядит так: Exit For. Внутри цикла Do синтаксис оператора
Exit Do.
     For СчетчикЦикла = НачальноеЗначение To
                           КонечноеЗначение [Step Шаг]
           Блок операторов_1
           [Exit For]
           Блок операторов_2
     Next [СчетчикЦикла]


      Do [{While / Until} условие]
           Блок операторов_1
           [Exit Do]
           Блок операторов_2
      Loop [{While / Until} условие]

      Например:
      For nCounter=100 To 1 Step –10
      nDecades(nCounter) = nCounter * 2
       If nDecades(nCounter) > 20 Then Exit For
      Next
       Оператор Exit служит также для выхода из процедур Sub и Function.
Синтаксис операторов в этом случае соответственно Exit Sub и Exit Func-
tion. Эти операторы могут находиться в любом месте тела процедуры. Они
используются в том случае, когда процедура выполнила нужные действия
и из нее необходимо выйти.
Пример 11.
Private Sub КнопкаВычислить_ Click()
      If Text1.Text = “” Or Text2.Text = “” Then
             NsgBox “Нет данных для расчета”
             Text1.SetFocus
             Exit Sub
      End If
      dblA = CDbl(Text1.Text)
      dblB = CDbl(Text2.Text)