Операторы Exit

ВVBA имеется несколько операторов Exit для выхода из процедур-функций, процедур-подпрограмм, процедур обработки свойств или повторно выполняемых блоков операторов в структурах Do…loop, For…Next, For Each … Next.

Операторы Exit обрабатываются следующим образом:

o Exit Function, Exit Sub и Exit Property вызывают немедленный выход из функции, подпрограммы или процедуры обработки свойств, в которой находится соответствующий оператор Exit…. Управление получает следующий оператор в вызывающей процедуре.

o Exit Do может применяться в структуре Do…loop и предназначен для немедленной передачи управления оператору. следующему после Loop.

o Exit For может применяться только в структуре For…Next или For Each …Next и предназначен для немедленной передачи управления оператору, следующему после

Next.

Пример

Дан одномерный массив. Найти первый отрицательный элемент и определить его номер позиции.

 

Рrivate Sub Кнопка0_Click()

Dim a(10) As Integer, i, k As Byte, x As Integer, s As String

For i = 1 To 10

a(i) = InputBox("Ввести А")

s = s & a(i) & " "

Next i

Поле1.Value = s

For i = 1 To 10

If a(i) < 0 Then

k = i

Exit For

End If

Next i

MsgBox "k=" & Str(k)

MsgBox "отрицательное =" & a(k)

End Sub