巧用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 "没有这个用户，请重新输入！","警告"
            txtUserName.SetFocus
        Else
            If Trim(mrc.Fields(1)) <> Trim(txtPassword.Text) Then
                MsgBox "密码错误，请重新输入！","警告"
                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 "请输入用户名！","警告"
        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 "没有这个用户，请重新输入！","警告"
        txtUserName.SetFocus
        Exit Sub
    End If
        
    If Trim(mrc.Fields(1)) <> Trim(txtPassword.Text) Then
        MsgBox "密码错误，请重新输入！","警告"
        txtPassword.SetFocus
        txtPassword.Text = ""
        Exit Sub
    End If
            
    OK = True
    mrc.Close
    Me.Hide
    UserName = Trim(txtUserName.Text)

初学者，不当之处敬请评指正！

欢迎光临我的网易博客：http://blog.163.com/liu_xiaochun/

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!