如上图,当进行连续判断的时候,即使第一个已经不符合条件了,后面的依然会计算.这点一定要记住,除非你所有的函数都有必要执行,否则会导致效率降低.
减代码不一定能提高效率,对于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