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