VB程序调试详解.pptVIP

12.2 任务12-1：具有非结构化异常处理的简单计算器——非结构化异常处理 MsgBox(输入的运算符有误！) Exit Sub End Select TextBox1.Text = CStr(r) 显示结果 Exit Sub 退出过程 ErrorPro: 错误处理程序块 Select Case Err.Number Case 6 除数为零时，或运算溢出时的错误号 MsgBox(算术运算溢出！, , 溢出提示) TextBox1.Focus() Exit Sub Case 5 Substring过程的参数不符合要求的错误号 MsgBox(必须输入运算符和第二个运算数！, , 运算数少) Exit Sub Case Else 其它情况显示错误号和错误原因 MsgBox(错误号为 Err.Number Chr(10) Chr(13) 错误原因： Err.Description) Exit Sub End Select End Sub 12.2 任务12-1：具有非结构化异常处理的简单计算器——非结构化异常处理 说明： （1）程序中的“t.IndexOf( )”的作用是在字符串变量t的值中查找空格第一次出现的位置，若找到则以整数形式返回空格所在位置（第一个字符的位置为0），若找不到则返回-1。IndexOf是字符串的一个方法，其作用是在字符串中查找子符的位置，查找到则返回位置值，查找不到返回-1。 （2）程序中“t.Substring(0, space)”的作用是从变量t存放的字符串的第一个字符开始取space个字符作为字串返回。Substring也是字符串的一个方法，其作用是取子串，基本格式有两种，分别如下。 [格式1]：str.Substring(start,length) [作用]：从“str”指定的字符串的第“start”个字符开始，取“length”个字符作为子串返回。参数start代表要取的子串的开始位置，length代表要取的子串的长度，值均应大于等于0。 [格式2]：str.Substring(start) [作用]：从“str”指定的字符串的第“start”个字符开始，一直取到字符串的结尾作为子串返回。 （3）程序中的语句“On Error GoTo ErrorPro”是一条非结构化的错误捕获语句，用来捕获程序中的错误。在非结构化异常处理中，将On Error语句放在代码块的开始处，它将处理在该块内发生的任何错误。如果在执行On Error语句后过程中引发了异常，程序流程将跳转到On Error语句中指定的行参数。行参数（行号或行标签）指示异常处理程序的位置。 有时，在某过程中调用了另一个过程，并且在被调用过程中发生异常。这种情况下，如果被调用过程不处理异常，则异常传播回调用过程，并且程序流程将跳转到On Error语句中指定的行参数。 12.2 任务12-1：具有非结构化异常处理的简单计算器——非结构化异常处理 On Error语句有以下四种形式： On Error GoTo Line On Error Resume Next On Error GoTo 0 On Erro GoTo -1 12.2 任务12-1：具有非结构化异常处理的简单计算器——非结构化异常处理 ① On Error GoTo Line 该语句假定错误处理代码在Line参数指定的行处开始。该语句的作用是如果发生运行时错误，则将流程跳转到该Line参数中指定的行号和行标签，并激活错误处理程序。指定行必须与 On Error GoTo Line 语句位于同一过程中，否则 Visual Basic 将生成编译器错误。请看下面的示例： Sub ErrTest On Error GoTo ErrorHandler 可能包含错误的代码 Exit Sub ErrorHandler: 用于处理错误的代码 Resume End Sub 12.2 任务12-1：具有非结构化异常处理的简单计算器——非结构化异常处理 ① On Error GoTo Line 该语句假定错误处理代码在Line参数指定的