Visual Basic.NET程序设计 普通高等教育十一五 国家级规划教材 教学课件 作者 柳青 严健武 第八章.ppt

《Visual Basic.NET程序设计 普通高等教育十一五 国家级规划教材 教学课件 作者 柳青 严健武 第八章.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、第8章程序调试与异常处理本章导读本章分析了程序异常类型、程序调试的基本方法和程序异常的处理。VB.NET中对异常的处理可以使用结构化的处理结构（Try结构，推荐使用），也可以使用非结构化的处理结构（OnError结构，与VB.NET以前版本兼容）。8.1程序错误类型在程序设计或编写代码过程中，无论初学者或资深程序员，无论如何细心，发生错误总是难免的。程序中的错误，即“异常”，通常称为“Bug”。发现程序中的错误并进行修复的过程，称为“调试”。程序总是在不断调试和测试中完善的。编程错误通常分为三类：编译错误、运行时错误和逻辑错误。1.

2、编译错误编译错误又称为“编译器错误”，是指无法使程序正常启动运行的错误，是一种最容易发现并修改的错误。用VB.NET编写代码时，以波浪线形式提醒出现错误的代码行，将鼠标移动到出现波浪线上方面，将出现错误提示。一般可能出现错误的原因：变量在定义前使用；调用函数或过程参数个数或类型不匹配；对象参与不具备运算符的运算等。案例8-1变量定义前使用的错误。设某程序出现编译错误如图8-1所示。图8-1编译错误示例如果此时按F5运行程序，将弹出错误提示对话框，如图8-2所示。图8-2编译错误对话框单击“否”按钮，可以从“错误列表”对话框中看到错误

3、的原因，如图8-3所示。图8-3“错误列表”对话框2.运行时错误运行时错误是程序运行时发生的错误。这种错误通常是初学者最容易犯的错误，原因是程序对用户任意可能操作或特殊的运行环境没有进行判断，程序设计过程没有错误，按正常操作也不会出现错误，这些错误通常是在程序试图执行不可能执行的操作时发生。案例8-2输入0~100的分数，判断分数等级。[窗体布局]在窗体放置一个文本框和一个按钮，名称默认。[程序代码]PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.E

4、ventArgs)HandlesButton1.ClickDimscoreAsIntegerscore=TextBox1.TextIfscore>=90ThenMsgBox(“优秀“)ElseIfscore>=80ThenMsgBox(“良“)ElseIfscore>=70ThenMsgBox(“中“)ElseIfscore>=60ThenMsgBox(“及格“)ElseMsgBox(“不及格“)EndIfEndSub[运行结果]⑴正确输入分数，如90，按F5运行程序，结果正确，如图8-4所示。图8-4案例8-2正常运行结果⑵假定用

5、户输入数字30时，不小心把数字“0”输入为字母“O”，则出现运行错误，如图8-5与图8-6所示。图8-5错误的输入图8-6“异常助手”对话框[错误原因]文本框Text属性默认是字符串类型，字符串类型赋予数字类型时，最好进行显式转换。在赋值前，最好判断文本框中输入的数据是否数字(IsNumeric函数)类型，再进行赋值。3.逻辑错误逻辑错误是程序能够通过编译并且可以顺利运行，运行过程也没有错误提示，但运行结果不是所期待的。逻辑错误是最难查找和修复的错误。案例8-3求两数相加的结果。[界面布局]在窗体放置三个文本框和两个标签控件，一个按

6、钮控件，如图8-7所示。图8-7案例8-3界面布局TextBox1TextBox2TextBox3Button1[程序代码]PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox3.Text=TextBox1.Text+TextBox2.TextEndSubEndClass[运行结果]图8-8案例8-3运行结果[错误原因]字符串类型数据执行相加（+）运

7、行，相当于执行字符串连接，而不是数学上的相加。8.2程序调试方法对于运行时错误或逻辑错误，VB.NET的调试工具可以提供很大的帮助。两项调试技术，设置“断点”和“单步执行”代码可以帮助逐行检查代码找出错误。案例8-4有一个包含学生分数的数组Score()={100,90,60,35.9}，用GetAvg函数求其平均分。其中，Score代表分数，Sum代表总分，StudentNum代表学生人数。[界面布局]该例为了简单起见，只在窗体上放置一个按钮Button1。[程序代码]1PublicClassForm12PrivateSubBut

8、ton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click3DimScore()AsDouble={100,90,60,35.