巧用Exit Sub减少循环层数

最新推荐文章于 2019-12-30 18:58:53 发布

原创最新推荐文章于 2019-12-30 18:58:53 发布 · 1.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #if循环

vb 专栏收录该内容

1 篇文章

订阅专栏

本文通过两个登录验证功能的例子对比，展示了如何通过减少if语句的嵌套层级来优化代码结构，使其更加简洁易读。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

什么是好的代码，好的代码不是简单的可以运行，而应该是简洁美观的，让人很容易就可以看懂的，所以我们在使用循环的时候应尽可能的减少循环的层数。

比较下面两段代码：

代码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/