Шаг 19 - Инструкция Exit

Завершает выполнение блока программы Do…Loop, For...Next, Function, Sub или Property.

Замечания
Не следует путать инструкции Exit с инструкциями End. Инструкция Exit не определяет конец структуры.

Пример
В данном примере инструкция Exit используется для завершения цикла For...Next, цикла Do...Loop и процедуры Sub.

Sub ExitStatementDemo()
Dim I, MyNum
	Do					' Бесконечный цикл.
		For I = 1 To 1000			' Цикл выполняется 1000 раз.
			MyNum = Int(Rnd * 1000)	' Генерирует случайное число.
			Select Case MyNum		' Анализирует случайное число.
				Case 7: Exit For	' Если 7, завершает цикл For...Next.
				Case 29: Exit Do	' Если 29, завершает цикл Do...Loop.
				Case 54: Exit Sub	' Если 54, завершает процедуру Sub.
			End Select
		Next I
	Loop
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.