Private sub command1_click()


        If Not Testtxt(txtCourseno.Text) Then     '判断课程编号是否为空
        
            MsgBox "请输入课程编号！", vbOKOnly + vbExclamation, "警告"
            txtCourseno.SetFocus
    
            Exit Sub
        End If

       If Len(txtCourseno) > 12 Then               '对编号位数的限制
            MsgBox "课程编号不能超过12位", vbOKOnly + vbExclamation, "警告"
           txtCourseno.Text = ""
           txtCourseno.SetFocus
           Exit Sub
       End If
   ……

End Sub

?如果每个过程拥有单个进入点，这将是很有意义的。

?每个过程也应该拥有单个退出点，创建单个退出点，可使过程更像是黑箱。代码的执行从一个门进来，代码的退出则从另一个门出去，因此产生的错误比较少，调试也不太难。

?创建单个退出点的操作是非常复杂的，但是它的好处是极大的。

?得到的好处大于你付出的努力，这种情况并不是总能碰到，因此务必充分利用它。

?解决这个问题的办法是在每个过程中创建一个PROC_EXIT标注。

?在这个标注下面，放入所有必要的清除代码和一个相应的Exit语句（ExitSub、Exit Function和Exit Property）。

?每当你需要退出该过程时，只需加上一个GoToPROC_Exit语句，而不必直接调用Exit命令。