代码。
Vb提供的error函数用于返回错误类型。
例如：form.print error(11)?窗体上将显示“除数为零” 实例：计算两个数相除的小程序。
如果输入的除数为零弹出消息框提示用户。如没有输入除数和被除数也会弹出消息框提示用户，具体对象及其属性如下：
代码：private sub command1_click() On error goto ww
Text3.text=text1.text/text2.text Exit sub Ww：
If err.number=11 then
Msgbox “除数不能为零”，14，“错误” Else
Msgbox “其他错误”，14，“错误”
End if Resume next End sub