End Sub：表示一个过程结束的代码，每一个Sub中都包含一个End Sub。
Exit Sub：表示带过程中执行代码时，选择性退出。不执行Exit Sub之后的代码
Private Sub Form_Load()
Dim a As Integer
a = 1
Label1.Caption = a
Exit Sub
Label2.Caption = a
End Sub
结果为：
当注释掉Exit sub时
例：
Private Sub Form_Load()
Dim a As Integer
a = 1
Label1.Caption = a
'Exit Sub 被注释代码
Label2.Caption = a
End Sub结果为：
