巧用Exit Sub减少循环层数

发布时间:2016-12-6 22:22:45 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"巧用Exit Sub减少循环层数",主要涉及到巧用Exit Sub减少循环层数方面的内容,对于巧用Exit Sub减少循环层数感兴趣的同学可以参考一下。

       什么是好的代码,好的代码不是简单的可以运行,而应该是简洁美观的,让人很容易就可以看懂的,所以我们在使用循环的时候应尽可能的减少循环的层数。        比较下面两段代码: 代码1: If Trim(txtUserName.Text = "") Then MsgBox "没有这个用户,请重新输入!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Else txtSQL = "select * from user_Info where user_ID= '" & txtUserName.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox "没有这个用户,请重新输入!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Else If Trim(mrc.Fields(1)) <> Trim(txtPassword.Text) Then MsgBox "密码错误,请重新输入!", vbOKOnly + vbExclamation, "警告" txtPassword.SetFocus txtPassword.Text = "" Else OK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text) End If End If End If 代码2: If Trim(txtUserName.Text = "") Then MsgBox "请输入用户名!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Exit Sub End If txtSQL = "select * from User_Info where userID= '" & txtUserName.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox "没有这个用户,请重新输入!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Exit Sub End If If Trim(mrc.Fields(1)) <> Trim(txtPassword.Text) Then MsgBox "密码错误,请重新输入!", vbOKOnly + vbExclamation, "警告" txtPassword.SetFocus txtPassword.Text = "" Exit Sub End If OK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text)        代码1和代码2实现的是同样的功能,但是代码1中的if嵌套有三层,而代码2利用Exit Sub把这三层嵌套分成了三个独立的if语句,使得代码变得简单易懂。 初学者,不当之处敬请评指正! 欢迎光临我的网易博客:http://blog.163.com/liu_xiaochun/

上一篇:delphi脚本解释器比较
下一篇:iPhone开发环境搭建全过程

相关文章

相关评论