tdbgrid 数据类型输入错误 vb_学习VB编程第47天，异常捕获机制

今天学习了刘金玉老师零基础VB教程的第57期，学习的主要内容是try catch finally异常捕获机制。

1.异常捕获：就是对程序代码中一些错误进行处理。方便我们排除错误代码，提升用户使用程序效果。

2.语法解释：

Try开始尝试异常捕获

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

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

3.与on error goto和goto联用案例

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