<< 向前        下一页 >>

ID : 110

Resume

功能

结束错误处理程序，重新从指定行开始执行。

格式

Resume 处理

指定项目

处理
未指定时：执行发生错误的行。
指定“Next”时：执行发生错误行的下一行。
指定<标签>时：执行<标签>指定的行。

解说

结束错误处理程序，重新从处理指定行开始执行。

仅可用于错误处理程序。

组合On Error语句后，可与“On Error Resume Next”一起使用。参照“On Error”

相关项目

On Error、 错误处理示例

注意事项

-

应用示例

'!TITLE "电装机器人程序"
Sub Sample_Resume

  On Error GoTo LABEL1

  Dim aaa As Integer
  Dim bbb As Integer

  aaa = 0

  ' 除数为0导致发生错误，移至LABEL1
  bbb = 10 / aaa

  ' 在讯息输出视窗中显示10
  PrintDbg bbb

  Exit Sub

LABEL1:

  aaa = aaa + 1

  Resume

End Sub

ID : 110

<< 向前        下一页 >>