VB 书上一个例题，我按书敲了程序。程序运行时报错： “标签没定义”在VB中标签如何定义，请老师给予帮助
热心网友
!!!!!!!!知道了,对不起刚刚看到邮件正如我所说,你的errorhandle:在sub外面删掉errorHandle:前的end sub,改成exit sub才行祝你新年好运
热心网友
On Error GoTo ErrorHandle...ErrorHandle:你得定义一个句柄名称呀，要不不得出错呀！一般不建议使用on error resume next,这样程序出错不好检测.
热心网友
好象没有问题,出现此提示是定义的错误句柄名称不存在.比如:onerrorgotoErrorHandle.......onerrorgoto0'取消容错处理Er 0then....endif一般不建议使用onerrorresumenext,这样程序出错不好检测.
热心网友
按说不应当有问题的，我通常也这么用啊。仔细看看是不是那里打错了？实在不行就on error resume next是编写软件中最好的选择，呵呵。
热心网友
下面是MSDN里的一个例子，请注意前面带*号的句子。（用的时候记得吧*号去掉）Sub OnErrorStatementDemo() On Error GoTo ErrorHandler ' 打开错误处理程序。 Open "TESTFILE" For Output As #1 ' 打开输出文件。 Kill "TESTFILE" ' 试图删除已打开的文件。 On Error Goto 0 ' 关闭错误陷阱。 On Error Resume Next ' 改变错误陷阱。 ObjectRef = GetObject("MyWord。Basic") ' 试图启动不存在 ' 的对象'检查可能发生的 Automation 错误。 If Err。Number = 440 Or Err。Number = 432 Then ' 告诉用户出了什么事。然后清除 Err 对象。 Msg = "There was an error attempting to open the Automation object!" MsgBox Msg, , "Deferred Error Test" Err。Clear ' 清除 Err 对象字段。 End If *Exit Sub ' 退出程序，以避免进入错误处理程序。ErrorHandler: ' 错误处理程序。 Select Case Err。Number ' 检查错误代号。 Case 55 ' 发生“文件已打开”的错误。 Close #1 ' 关闭已打开的文件。 Case Else ' 处理其他错误状态 。 。 。 End Select* Resume ' 将控制返回到产生错误的语句。*End Sub。