Этот оператор служит для пропуска определенной части кода.
Синтаксис:
Goto метка:
Метка:
Весь код от Goto метка: до метка: пропускается.
Например, сейчас сделаем программу которая будет перескакивать оператор Exit Sub. На форму кинь кнопку.
Вот Код: Dim x As Long
Private Sub Command1_Click()
x = x + 1 ' При каждом клике по кнопке к перем. x прибавляем 1
If x = 2 Then GoTo qw: ' Если x = 2 то с помощью оператора Goto пропускаем весь код до qw:
Exit Sub ' Выходим из процедуры
qw: ' Метка, до которой пропускается весь код от оператора Goto qw:
MsgBox "Оператор Goto" ' Выдаем сообщение
End Sub