Try Catch捕捉错误的三个实例分析

第一个实例：

 

Module Module1     Sub Main()         Dim a, b, c As Integer         Console.Write("a = ")         a = Console.ReadLine()         Console.Write("b = ")         b = Console.ReadLine()         Try             c = a / b         Catch ex As Exception             Console.WriteLine(ex.ToString)         End Try         Console.WriteLine("a / b = {0}", c)         Console.Read()     End Sub End Module 第二个实例： Module Module1     Sub Main()         Dim i As Integer         Dim score() As Integer = {1, 2, 3}         For i = 1 To 3             Console.Write("score({0})=", i.ToString)             Try                 Console.WriteLine(score(i))             Catch e As IndexOutOfRangeException                 Console.WriteLine()                 Console.WriteLine("异常处理类型 :{0}", e.GetType.ToString)                 Console.WriteLine("错误消息 :{0}", e.Message)                 Console.WriteLine("程序或对象名称 :{0}", e.Source)                 Console.WriteLine("产生错误程序 :{0}", e.TargetSite.Name)                 Console.WriteLine("错误之处 :{0}", e.StackTrace)             Finally                 Console.WriteLine("index = {0}", i.ToString)             End Try         Next         Console.Read()     End Sub End Module 第三个实例： Module Module1     Sub Main()         Dim i, n, f As Short         Do While (True)             Try                 Console.Write("n = ")                 n = Console.ReadLine()                 f = 1                 For i = 1 To n                     f = f * i                 Next                 Exit Do             Catch e1 As InvalidCastException                 Console.WriteLine("乐博网提示：数据类型错误")             Catch e2 As OverflowException                 Console.WriteLine("乐博网提示：溢出错误")             Catch e3 As Exception                 Console.WriteLine("乐博网提示：其它错误")             End Try         Loop         Console.WriteLine("{0} != {1}", n, f)         Console.ReadLine()     End Sub End Module