程序中存在的错误，我们希望程序不要崩溃，还能继续运行，这时候就需要错误处理。
VB有一个全局类Err，专门针对错误处理的类，有如下常用的属性和方法。
|
属性\方法 |
说明 |
|
Number |
用于标识该错误的专用号码 |
|
Source |
当前VB项目的名字 |
|
Description |
表义性的错误消息。如果某个错误没有这个字符串，本属性就会指明“应用程序定义的错误或对象定义的错误“ |
|
Clear |
清除Err对象的属性 |
|
Raise |
运行时生成错误 |
示例程序
|
Private Sub Command1_Click() On Error GoTo War Text3.Text = Text1.Text / Text2.Text War: If Err.Number = 13 Then MsgBox “数据类型错误”, vbOKOnly, “错误提示” Err.Clear Exit Sub End If If Err.Number = 11 Then MsgBox “除数不能为0！”, vbOKOnly, “错误提示” Err.Clear Exit Sub End If End Sub |