当前位置：首页 > news >正文

搜索引擎网站模板/快速提高排名

news 2025/6/29 22:26:24

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
一个软件，用着用着突然出现一个错误，然后不明不白地就退出了，
大家觉得使用者会怎么看这款软件？至少会认为这个软件做的不到家，太影响体验了。

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

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

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

下面的例子：

    Sub main()Dim a As ByteDim b As ByteDim c As ByteDim stra As StringDim strb As StringOn Error GoTo errcodeConsole.WriteLine("请输入数字：")stra = Console.ReadLine()a = Byte.Parse(stra)Console.WriteLine("请输入数字：")strb = Console.ReadLine()b = Byte.Parse(strb)c = a + bConsole.WriteLine("a+b={0}", c.ToString)Console.ReadKey()Exit Suberrcode: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 ByteDim b As ByteDim c As ByteDim stra As StringDim strb As StringTryConsole.WriteLine("请输入数字：")stra = Console.ReadLine()a = Byte.Parse(stra)Console.WriteLine("请输入数字：")strb = Console.ReadLine()b = Byte.Parse(strb)c = a + bConsole.WriteLine("a+b={0}", c.ToString)Catch ex As ExceptionConsole.WriteLine("错误的输入")End TryConsole.ReadKey()End Sub

运行时如下：

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

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

Try
    可能出错的语句块
Catch 错误
    错误处理语句块
Finally
    语句块
End Try
当执行过程离开 Try...Catch 语句的任何部分时，总是会执行 Finally 中的语句块

下面的代码：

    Sub main()Dim a As ByteDim b As ByteDim c As ByteDim stra As StringDim strb As StringTryConsole.WriteLine("请输入数字：")stra = Console.ReadLine()a = Byte.Parse(stra)Console.WriteLine("请输入数字：")strb = Console.ReadLine()b = Byte.Parse(strb)c = a + bConsole.WriteLine("a+b={0}", c.ToString)Catch ex As ExceptionConsole.WriteLine("错误的输入")FinallyConsole.WriteLine("必须经过此步骤")End TryConsole.ReadKey()End Sub

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

在Try……Catch语句中还可以使用 Exit Try ，跳出Try语句，当然，跳出后还是要执行Finally中的语句块

Try后面还可以接多个Catch语句，对不同的错误进行不同的处理。如下代码：

    Sub main()Dim a As SingleDim b As SingleDim stra As ByteDim strb As ByteDim flagErr As Boolean = FalseDoTryConsole.WriteLine("请输入被除数：")stra = Console.ReadLine()a = Byte.Parse(stra)Console.WriteLine("请输入除数：")strb = Console.ReadLine()b = Byte.Parse(strb)Dim c As Bytec = a + bConsole.WriteLine("a+b={0}", c.ToString)flagErr = FalseCatch ex As OverflowExceptionConsole.WriteLine("发生溢出" & ex.Message)flagErr = TrueCatch ex As InvalidCastExceptionConsole.WriteLine("转换失败" & ex.Message)flagErr = TrueCatch ex As ExceptionConsole.WriteLine("错误的输入")flagErr = TrueEnd TryLoop Until flagErr = FalseConsole.ReadKey()End Sub

运行时如下：