关于VB里判断逻辑的一个说明

Posted 2020-07-03 一个码农的蹉跎岁月

如上图,当进行连续判断的时候,即使第一个已经不符合条件了,后面的依然会计算.这点一定要记住,除非你所有的函数都有必要执行,否则会导致效率降低.

减代码不一定能提高效率,对于IIF和连续判断写法,貌似很多人都不知道funcA,funcB,funcC都会执行

代码如下,有兴趣的可以去试试 or 是否也像 and 一样

Option Explicit

Private Sub Command1_Click()
    Print "连续判断------------------------"
    If funcA And funcB And funcC Then
        Print ">>> OK" & vbCrLf
    Else
        Print ">>> NO" & vbCrLf
    End If
    
    Print "嵌套判断------------------------"
    If funcA Then
        If funcB Then
            If funcC Then
                Print ">>> OK" & vbCrLf
                Exit Sub
            End If
        End If
    End If
    Print ">>> NO" & vbCrLf
    
    Print "IIF 判断------------------------"
    If IIf(funcB, funcC, funcA) Then
        Print ">>> OK" & vbCrLf
    Else
        Print ">>> NO" & vbCrLf
    End If
End Sub

Private Function funcA() As Boolean
    Print "运行过 funcA"
    funcA = False
End Function
Private Function funcB() As Boolean
    Print "运行过 funcB"
    funcB = True
End Function
Private Function funcC() As Boolean
    Print "运行过 funcC"
    funcC = True
End Function