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

最新推荐文章于 2023-06-25 12:51:27 发布

转载最新推荐文章于 2023-06-25 12:51:27 发布 · 157 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/youyouran/p/5348039.html

本文探讨了在编程中连续判断的效率问题，指出即使第一个条件不满足，后续的判断仍会被执行，可能导致效率降低。并通过实例展示了如何优化这种结构以提高程序性能。

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

减代码不一定能提高效率,对于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

转载于:https://www.cnblogs.com/youyouran/p/5348039.html