在编程的过程当中我们难免出很多错,对后期的代码调试、代码的维护对于我们程序员来说都将是个考验,复杂、枯燥的代码调试给很多人增加了心理负担,在做学生管理系统中代码调试成了自己的家常便饭,每天在调试中理解代码意思提高了很多,也给自己带来了很多乐趣,之后再米老师课件的讲解中了解到为“每个过程赋予单个退出点”可为是为人民大致服务宗旨的良好体现。
这种方式虽然简单,但是它的意义重大,给了我们很大的思考……不管我们做任何工作,都应更好的本着为人民服务的宗旨。
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
•对事件驱动的应用程序中的代码进行调试是非常麻烦的,因为过程是从别的过程中调用(扇出)的,代码的执行往往像台球桌上的台球弹来弹去。
–Exit Function和Exit Sub这样的简单语句可能进一步增强这种复杂性。
•如果每个过程拥有单个进入点,这将是很有意义的。•每个过程也应该拥有单个退出点,创建单个退出点,可使过程更像是黑箱。代码的执行从一个门进来,代码的退出则从另一个门出去,因此产生的错误比较少,调试也不太难。•创建单个退出点的操作是非常复杂的,但是它的好处是极大的。•得到的好处大于你付出的努力,这种情况并不是总能碰到,因此务必充分利用它。•解决这个问题的办法是在每个过程中创建一个PROC_EXIT标注。•在这个标注下面,放入所有必要的清除代码和一个相应的Exit语句(ExitSub、Exit Function和Exit Property)。•每当你需要退出该过程时,只需加上一个GoToPROC_Exit语句,而不必直接调用Exit命令。
这样为“每个过程增加单个退出点",在学生管理系统的过程中体现出的是出错率很低、降低了代码的复杂程度、很容易代码调试、效率很高,在今后的学习当中我们应该从开发人员、用户等多角度学习、思考问题,最大程度的为人民服务!