VB中如何停止运行

用"End"强制程序结束运行，给出一段程序：

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a=Val(Text1.Text)

b=Val(Text2.Text)

Text3.Text=a+b

End Sub

在这段VB程序中，VB一直执行语句，直到最后一句结束语句”End Sub“，才结束程序运行。

按command按钮结束程序：

在窗体上添加一个按钮，编辑代码：

Private Sub Command1_Click()

Unload Me

End Sub

这是正常退出，会执行Private Sub Form_Unload(Cancel As Integer)内容，例如退出确认之类提示

如果有多个窗体，那么

Private Sub Command1_Click()

End

End Sub

此乃强制结束，跳过一切步骤，直接结束。类似结束进程。

---