vb不能手动退出的应用程序是

end是vb整个伏缺手应用程序，所有代码停止，扮孝窗口卸载

exit是模块，可以是循环体，缺嫌函数，过程 比如："exit sub"vb中还有窗体退出还有，unload xx, me.unload等 如果只有一个窗体也相当于退出程序

将窗体的属性KeyPreview设置为True：

Option

Explicit

Private

Sub

Form_KeyPress(KeyAscii

As

Integer)

If

KeyAscii

=

27

Then

'如果皮渗按的燃旅脊键是Esc，

End

'那么退出程镇悄序

End

If

End

Sub

Private

Sub

Form_Load()

Me.KeyPreview

=

True

End

Sub

Application.DisplayAlerts

=

False‘不出现提示框，就是无需确认

Application.Visible

=

True’文件可见

WorkBook.Close‘这步不可省

，这步是关闭工作表

Application.Quit’这步银滑不可少，这步是退出程序锋含

’锋基腊以下是释放变量（内存）。注意顺序：

Set

Sheet

=

Nothing

Set

WorkBook

=

Nothing

Set

Application

=

Nothing

供参考。

---