vb.net 教程 2-11 错误处理

一个软件，用着用着突然出现一个错误，然后不明不白地就退出了，
大家觉得使用者会怎么看这款软件？至少会认为这个软件做的不到家，太影响体验了。

因此，我们在设计软件的时候，需要尽量处理可能出现的错误，防止程序崩溃，避免影响用户体验。

vb.net提供两种方法处理错误
1、非结构化的异常处理，这也是早期的vb中使用的异常处理方法
On Error Goto 标签 发生错误时，跳转到标签位置
On Error Resume Next 发生错误时，忽略错误，继续执行错误后面的语句

出现错误后，就可以调用ErrObject类，来获得具体的信息。
Description 某个错误关联的描述性字符串
Number 返回或设置一个指定错误的数值
但我猜测为了衔接之前的vb，在程序中可以直接用Err。

下面的例子：

    Sub main()
        Dim a As Byte
        Dim b As Byte
        Dim c As Byte

        Dim stra As String
        Dim strb As String

        On Error GoTo errcode

        Console.WriteLine("请输入数字：")
        stra = Console.ReadLine()
        a = Byte.Parse(stra)

        Console.WriteLine("请输入数字：")
        strb = Console.ReadLine()
        b = Byte.Parse(strb)

        c = a + b
        Console.WriteLine("a+b={0}",c.ToString)
        Console.ReadKey()
        Exit Sub

errcode:
        Console.WriteLine("错误的输入{0}",Err.Description)
        Console.ReadKey()
    End Sub

当发生错误的时候，程序跳转到errcode标签所在代码。

注意，我们必须在errcode前面加上exit sub，否则即使没有发生错误也会执行errcode后面的语句。

可以看到，当输入的不是一个数字的时候，会产生一个错误，然后执行errcode后面的代码。

    Sub main()
        Dim a As Byte
        Dim b As Byte
        Dim c As Byte

        Dim stra As String
        Dim strb As String

        Try
            Console.WriteLine("请输入数字：")
            stra = Console.ReadLine()
            a = Byte.Parse(stra)
            Console.WriteLine("请输入数字：")
            strb = Console.ReadLine()
            b = Byte.Parse(strb)

            c = a + b
            Console.WriteLine("a+b={0}",c.ToString)

        Catch ex As Exception
            Console.WriteLine("错误的输入")
        End Try
        Console.ReadKey()
    End Sub

    Sub main()
        Dim a As Byte
        Dim b As Byte
        Dim c As Byte

        Dim stra As String
        Dim strb As String

        Try
            Console.WriteLine("请输入数字：")
            stra = Console.ReadLine()
            a = Byte.Parse(stra)

            Console.WriteLine("请输入数字：")
            strb = Console.ReadLine()
            b = Byte.Parse(strb)

            c = a + b
            Console.WriteLine("a+b={0}",c.ToString)

        Catch ex As Exception
            Console.WriteLine("错误的输入")
        Finally
            Console.WriteLine("必须经过此步骤")
        End Try
        Console.ReadKey()
    End Sub

    Sub main()
        Dim a As Single
        Dim b As Single

        Dim stra As Byte
        Dim strb As Byte

        Dim flagErr As Boolean = False
        Do
            Try
                Console.WriteLine("请输入被除数：")
                stra = Console.ReadLine()
                a = Byte.Parse(stra)
                Console.WriteLine("请输入除数：")
                strb = Console.ReadLine()
                b = Byte.Parse(strb)

                Dim c As Byte
                c = a + b
                Console.WriteLine("a+b={0}",c.ToString)
                flagErr = False
            Catch ex As OverflowException
                Console.WriteLine("发生溢出" & ex.Message)
                flagErr = True
            Catch ex As InvalidCastException
                Console.WriteLine("转换失败" & ex.Message)
                flagErr = True
            Catch ex As Exception
                Console.WriteLine("错误的输入")
                flagErr = True
            End Try
        Loop Until flagErr = False

        Console.ReadKey()
    End Sub

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程 目录