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