2015-02-14
490
В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
