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后面的代码。

2、结构化的异常处理语句：

Try……Catch

常用的语句格式如下：

Try

    可能出错的语句块

Catch 错误

    错误处理语句块

End Try

我们来看下面的例子：

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

运行时如下：



输入的数值超出了byte范围，所以返回错误。

另外一种异常处理的语句格式
Try

    可能出错的语句块

Catch 错误

    错误处理语句块

Finally

    语句块

End Try

当执行过程离开 Try...Catch 语句的任何部分时，总是会执行 Finally 中的语句块
下面的代码：

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

不管出没有出错，都会输出 “必须经过此步骤”。

在Try……Catch语句中还可以使用  Exit Try ，跳出Try语句，当然，跳出后还是要执行Finally中的语句块
Try后面还可以接多个Catch语句，对不同的错误进行不同的处理。如下代码：

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

运行时如下：



运行时，输入2222，产生OverflowException错误，输入aaa，产生了InvalidCastException错误，当然如果还有其他错误，还会引发Exception，也能够处理。
具体有哪些错误，请参阅msdn，Exception 类。

另外，Try……Catch语句可以嵌套使用，比如
Try

    可能出错的语句块

    Try

        可能出错的语句块

    Catch 错误

        错误处理语句块

    End Try
    Try

        可能出错的语句块

    Catch 错误

        错误处理语句块

    End Try

Catch 错误

    错误处理语句块

End Try

vb.net在处理的时候，先检查包含该错误的最里面的Catch，如果没有找到匹配的Catch语句，那就再继续搜索外层的Catch语句。

相比非结构化的异常处理，个人认为结构化的异常处理更简洁方便使用，避免了跳转出错的可能。大家在代码中尽量使用Try……Catch。

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

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