Question

在QTP中使用 On Error GoTo line 为什么会提示语法错误？

脚本如下：
Private Sub Command1_Click()
Dim i , j ,k
On Error GoTo ErrHandle
i = 100
j = 0
k = i / j
Exit sub

ErrHandle:
MsgBox "除数不能为0 "
End Sub

运行时，会提示“On Error GoTo ErrHandle ” 语法错误
MSDN中对 On Error GoTo line 有如下介绍：
该语句启用从必选参数 line 指定的行开始的错误处理例程。参数 line 可以是任意的行标签或行号。如果发生了运行时错误，控制将跳转至指定行，以激活错误处理程序。指定的行必须和 On Error 语句处在同一个过程中，否则会产生编译时错误。

对于“行标签”、“行号”，我不太理解是什么意思，所以才写了这段代码。
该段代码旨在了解 On Error GoTo line 的使用方法，不为如何更好得实现这段代码，所以请各位有“识”之士能够针对 On Error GoTo line 的使用来解答。谢谢！

Answer 1

你这种用法是不符合VBScript规定的，QTP里面也不能这么使用。
关于错误处理，只能使用
On Error Resume Next - 开启错误处理，不弹出错误。
On Error GoTo 0 - 关闭错误处理，弹出错误。
按照你的需求，你的代码应该改成：
Sub Command1_Click()
Dim i , j ,k
On Error Resume Next
i = 100
j = 100
k = i / j

If Err.number>0 then
MsgBox "除数不能为0 "
End If
End Sub
就可以了。

如果你用MSDN来解释这个问题，你就用VS.net，不要用QTP。QTP的编辑器引擎是VBScripts，我已经说了，不是VS.net。VBScripts的规则里面很早就已经删除了Goto语句，所以你没有办法通过编译。

Answer 2

楼上正解...回答的非常好...