vb On Error GoTo 的使用

'一个简单除法计算代码
'显然 你在Text1,Text2输入汉字 或 Text2输入 0(0不能做除数)都会出错
'但如果出现这样情况,程序肯定会报错并死亡.
Private Sub Command1_Click()
Text3.Text = Text1.Text / Text2.Text
End Sub

'如果你改成这样,那一出错会继续执行跳转的那一行去执行的
Private Sub Command1_Click()
On Error GoTo e1
Text3.Text = Text1.Text / Text2.Text
Exit Sub
e1: '出错跳到本行运行
MsgBox "输入错误"
End Sub

--------------------
出错后,重新回到初始的状态.
你就在e1:后面
把重新初始化代码放在这个区域(这样一出错就初始化)

Private Sub Command1_Click()
Text3.Text = Text1.Text / Text2.Text
End Sub

'如果你改成这样,那一出错会继续执行跳转的那一行去执行的
Private Sub Command1_Click()
On Error GoTo e1
Text3.Text = Text1.Text / Text2.Text

你的意思是不是出错继续运行，如果用On error goto ...则会一直出现报错提示，为何不用On error resume next，这样出错了也可以继续执行。

on error resume next

on error resume next