刘金玉的零基础VB教程057期：vb6中的try catch finally异常捕获机制

https://v.qq.com/x/page/o0785bin4ix.html

文本讲解：

在程序中肯定会有很多的bug，有些bug认为可以发现并且弥补，但是有些bug很多人虽然能发现，但是却无法弥补的，因为在系统运行的时候，其实会有很多无法预料的情况发生。毕竟程序员也是人，容易忽略一些问题。

那么如何弥补这种情况呢？我们此时就应该引入异常捕获机制了，从此以后就不用再担心这类问题。

异常捕获机制形式：

Try….catch…finally

详解：

异常捕获：就是说对程序代码中一些错误进行处理。方便我们排错，也能提升用户体验。

Try就是开始尝试异常捕获

Catch就是将捕获到的异常进行处理

Finallly 就是最后不会发生异常的代码，是会被默认执行的代码

课堂总结

1、学会goto与on error联用

2、掌握vb中模仿 try catch finally

3、理解try catch finally这三块内容分别应该是什么

本期界面：

本期代码：

Private Sub Command1_Click()
Dim a As Double
Dim b As Double
a = Val(Text1.Text)
b = Val(Text2.Text)

'开始捕获
On Error GoTo catch
try:
MsgBox a / b
Picture1.Print "除法结果已得出"
GoTo finally

catch:
MsgBox "您的输入有误！无法计算！"

finally:
Picture1.Print "请继续输入..."

End Sub