Question

请问vb中如果报错，想要弹出对话框为“输入错误，请重新输入”，而不是弹出系统报错的对话框。怎么解决呢?

Answer 1

可以在运行时，捕捉错误，当然，要对发生的错误，尽可能的想周全。
例如：输入错误，如果是inputbox 输入，要求输入数字（1，2，43，23），但，用户输入了非数字（erw,werwerwr ,3eee3)，假如接受变量是Long类型。
此时，发生错误：
如果，代码中未捕捉错误，系统报错：类型不匹配。
如果，代码中捕捉了错误，系统就会执行我们的错误处理代码
具体如下：
1、未捕捉：
Option Explicit
Private Sub Form_Load()
Dim t As Long
t = InputBox("输入数字", "输入")'------------输入非数字时发生错误。
Debug.Print t
End Sub

2、捕捉错误：
Option Explicit
Private Sub Form_Load()
On Error GoTo Myerr‘-------------------------此句表示发生错误，则处理Myerr下面的代码
Dim t As Long
t = InputBox("输入数字", "输入")
Debug.Print t

Exit Sub‘-----------------------有了此句，没有发生错误，则退出过程，不执行下面的代码。

Myerr:’----------------------------从这里开始，处理错误问题。
MsgBox "输入错误，请重新输入数字。", , "输入错误"
End Sub

Answer 2

On Error GoTo MyErrHandler ' 打开错误处理程序。
......
......
......
Exit Sub ' 退出程序，以避免进入错误处理程序。
MyErrHandler: ' 错误处理程序。
Select Case Err.Number ' 检查错误代号。
... ' 处理其他错误状态 . . .
End Select
Resume ' 将控制返回到产生错误的语句。