有没有人知道怎么使运行中的程序出错退出？高分！

MSDN 中的。你看看吧。建议你看看 MSDN 中 Err 对像的帮忙。Dim Msg
' 如果有错误发生，就构成一个错误信息
On Error Resume Next   ' 改变错误处理的方式。
Err.Clear
Err.Raise 6   ' 生成一个溢出（Overflow）的错误。
' 检查错误代号，显示相关错误信息。
If Err.Number <> 0 Then
   Msg = "Error # " & Str(Err.Number) & " was generated by " _
         & Err.Source & Chr(13) & Err.Description
   MsgBox Msg, , "Error", Err.Helpfile, Err.HelpContext
End If