程序调试与出错处理

《程序调试与出错处理》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第十五章程序调试与程序发布本章要求:1.掌握VB程序调试方法2.学会查找和修改和分析程序错误的方法3.了解错误处理的方法：捕捉错误，设计的程序来处理不同错误。4.了解程序的打包和发布。1．编译错误指由于违反了VB的有关语法而产生的错误（也称语法错误）。常见的编译错误有：15.1常见错误类型VisualBasic程序的错误分为：编译错误运行时错误逻辑错误（1）标点符号错（程序中只能使用西文标点）；关键字输入错（例：Dim写成Din）；一行语句没有写完整等，（2）对象名称（Name属性）写错；（3）对象的属性名、方法名，内部函数名

2、写错；（4）变量未定义或变量名写错（可在通用声明段加OptionExplicit，采用变量显式声明）；（3）块If没有对应的EndIf语句；For循环没有对应的Next语句；Do循环没有对应的Loop语句等，这类错误当VB开始运行时提示出错信息，且将出错位置用反色显示，15.1常见错误类型2运行错误VB在运行代码时指令代码执行了一非法操作引起的误指。例如，除法时分母为零，被操作的驱动器未准备好或磁盘读写有错。或数组下标超界、数据溢出等。运行出错也将弹出一个子窗口，提示出错信息。15.1常见错误类型3逻辑错误程序存在逻辑上的缺陷

3、引起程序运行后，得不到所期望的结果。例如，使用了不正确的变量类型或指令的次序不对。又如，循环中起终值不正确。逻辑错误也可以产生运行错误。通常，逻辑错误不会产生错误提示信息，需要程序员仔细地阅读分析程序。15.1常见错误类型15.2VB6.0系统调试工具15.2.1设置自动语法检测在VB集成开发环境中，选择“工具”菜单的“选项”命令，再在打开的“选项”对话框中选“编辑器”标签，15.2.2VB调试工具VisualBasic的调试包括：断点、中断表达式、监视表达式、通过代码一次经过一个语句或一个过程、显示变量和属性的值。1、调试工

4、具栏15.2VB6.0系统调试工具15.3调试和排错方法15.3.1控制程序的运行1．启动对象及控制程序的运行（1）逐语句运行（2）逐过程运行（3）从过程中跳出2．设置断点15.2VB6.0系统调试工具15.3.2程序调试窗口有三个调试窗口，它们是：“立即”窗口、“监视”窗口、和“本地”窗口。可单击视图菜单中的对应命令打开这些窗口。（1）“立即”窗口显示代码中正在调试的语句所产生的信息，或直接往窗口中键入的命令所请求的信息。15.2VB6.0系统调试工具（2）在中断模式下，可自动显示出所有在当前过程中的变量声明及变量值。（单击

5、调试工具栏上的“本地窗口”按扭或选择“视图”菜单的“本地窗口”显示），如图15-8所示。15.2VB6.0系统调试工具（3）“监视”窗口显示当前的监视表达式，在代码运行过程中可决定是否监控这些表达式的值。例15.1、调试第六章例6.4传值、传址例题，观察变量的虚实结合过程。15.2VB6.0系统调试工具15.4出错处理所谓错误处理，就是允许编写的应用程序对错误进行响应。当一个错误发生了，程序能捕捉到这一错误，并可按程序设计者事先设计的方法来处理这一错误。常规下通过以下步骤在应用程序中增加指令捕捉和处理运行错误：1、设置错误陷阱

6、在程序适当的地方加入一些语句来捕捉错误，一旦错误发生，程序的运行将转移到错误处理程序，根据所捕获到的错误代码告诉应用程序应当怎样操作。2、编写错误处理程序当程序中出现运行错误时，程序的运行将转到错误处理程序，错误处理程序根据可预知的错误类型决定采取何种措施。1．设置错误陷阱使用OnError语句可设置陷阱，捕捉错误。OnError语句有如下形式：(1)OnErrorResumeNext发生错误时，忽略错误行，继续执行下一语句。(2)OnErrorGoTo语句标号发生错误时，使程序转跳到语句标号所指示的程序块。(3)OnErro

7、rGoTo0表示当发生错误时，不使用错误处理程序块。15.4出错处理2．编写错误处理程序编写错误处理程序一般要使用到Err对象，它是一个系统对象，可以通过Err对象来获取错误的消息。当出现VB错误时，有关错误的信息存储在Err对象中。Err对象每次只维护一个错误的信息。当出现新的错误时，Err对象将更新为新的错误信息。Err对象的缺省属性是Number属性。当运行时错误发生时，Err对象的属性被填入明确识别错误的信息以及处理这个错误所使用的信息。当OnError捕捉到错误后，Err对象的属性Number指示对应错误号。在错误处

8、理程序块中可使用“SelectCaseErr.Number”或“IfErr.Number=”语句编写出错处理。15.4出错处理例如，下面的Test过程是Number属性在错误处理过程中的典型用法。PrivateSubtest()OnErrorGoTooutDimx,yx=1/