1.输入Private Sub Form1 Click（）EndEnd Sub 2.输入Private Sub Command1_Click()3.输入UnloadmeEnd Sub即完成

结束自身窗体：unload me结束其他窗体：unload 窗体名强制结束程序：End

end是vb整个应用程序，所有代码停止，窗口卸载 exit是模块，可以是循环体，函数，过程 比如："exit sub"vb中还有窗体退出还有，unload xx, me.unload等 如果只有一个窗体也相当于退出程序

Vb中清空退出代码如下所示：私有子Cmdcls＿Click（）Text1。文本＝0 终止子 VB使用一个GUI系统，它允许您轻松地构建应用程序，但也允许您开发相当复杂的程序。VB的程序是一个基于表单的可视化组件组合，并添加了指定组件属性和方法的代码。因为组件中已经定义了一些默认属性和方法，所以程序员不需要编写很...

End --- Private Sub Command1_Click()End End Sub

把下面的代码复制到你的程序里面，你可以自己根据需要更改;，否则继续程序，选择是则关闭，当你点上面那个交叉关闭程序的时候它就弹出对话框询问你是否要关闭程序！这只是个思路！Private Sub Form_Unload(Cancel As Integer)Dim ms As String ms = MsgBox("？",vbYesNo + 32,"你是否要退出程序 ...

Private Sub UserForm_Terminate()Unload frmSub '退出当前窗体前先关闭子窗体 End Sub

if Dir（文件路径）="" then Unlode meEnd if

Private Sub Command1_Click()If MsgBox("是否要退出程序?", vbYesNo + vbExclamation, "退出程序") = vbNo Then MsgBox "继续留在本窗体中", vbExclamation, "退出程序"Else MsgBox "程序准备退出运行状态", vbExclamation, "退出程序"End End If End Sub ...

如果已经在电脑上运行了，打开任务管理器中的应用程序点你要关闭的那个结束任务就可以了 如果是退出的方法一般 end 就可以