Visual BasicNET程序设计基础.ppt

三、实训相关的知识点 （1）程序中出现错误的三种类型。 （2）Visual Basic.NET程序的调试方法。 （3）Try…Catch…Finally语句和结构化异常处理。 四、主要操作步骤 【实训任务一】 （1）启动Visual Basic.NET，进入“起始页”。 （2）新建一个控制台应用程序，项目名称为“Experiment6_1”。 （3）在【代码】窗口输入如代码6-1所示的程序代码。 （4）调试程序，修改其中错误，直到生成成功。 （5）运行该程序，修改运行错误和逻辑错误，直到运行成功，输出正确的运行结果。 【实训任务二】 （1）新建一个控制台应用程序，项目名称为“Experiment6_2”。 （2）在【代码】窗口中编写程序代码，参考代码如代码6-2所示。 代码6-2 01 02 03 04 05 06 07 08 09 10 Module Module1 Sub Main() Dim num As Integer Dim factorial As Long = 1 Dim errorFlag As Boolean Dim errorMessage As String Try Console.Write(计算阶乘，请输入一个整数：) num = Console.ReadLine For i As Integer = 1 To num 代码6-2 11 12 13 14 15 16 17 factorial = factorial * i i += 1 Next Catch ex As OverflowException errorFlag = True errorMessage = ex.StackTrace _ 出现错误，产生错误的原因是： ex.Message 代码6-2 18 19 20 21 22 23 24 25 26 Finally If errorFlag = True Then Console.WriteLine(errorMessage) Else Console.WriteLine({0}!={1}, num, factorial) End If Console.Read() End Try End Sub End Module 代码6-2 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Module Module1 Sub Main() Dim num As Integer Dim factorial As Long = 1 Dim errorFlag As Boolean Dim errorMessage As String Try Console.Write(计算阶乘，请输入一个整数：) num = Console.ReadLine For i As Integer = 1 To num factorial = factorial * i i += 1 Next Catch ex As OverflowException errorFlag = True errorMessage = ex.StackTrace _ 出现错误，产生错误的原因是： ex.Message Finally If errorFlag = True Then Console.WriteLine(errorMessage) Else Console.WriteLine({0}!={1}, num, factorial) End If Console.