If statement '的最佳实践；如果'；超过Visual Basic 6.0中10行连续限制的语句

例如：

If condition or _
   condition or _
   condition or _
   condition or _
   condition or _
   condition or _
   condition or _
   condition or _
   condition or _
   condition or Then
    Do something
End If

---

假设我有超过10个条件需要评估。。。有没有比嵌套多个

if

语句更好的方法？

您可以使用Case语句。如果您可以使用Case语句，那么它比

要干净一点。如果

s:

这里有一个选项——一次做一个测试，用布尔值跟踪最终结果，那么它比

要干净一点。完成后，只需测试布尔值

Dim A As Long
Dim B As Long
Dim C As Long
Dim D As Long

Dim Result As Boolean

Result = True
Result = Result And (A > 10)
Result = Result And (B > 10)
Result = Result And (C > 10)
Result = Result And (D > 10)

If Result Then
    ' Do "something" here...
End If

如果A、B、C或D中的任何一个小于10，
Result
将切换到
False
，并从此保持该状态。只有在所有测试都通过的情况下，才会出现
True
。
这里有一个选项——一次执行一个测试，以布尔值跟踪最终结果。完成后，只需测试布尔值

Dim A As Long
Dim B As Long
Dim C As Long
Dim D As Long

Dim Result As Boolean

Result = True
Result = Result And (A > 10)
Result = Result And (B > 10)
Result = Result And (C > 10)
Result = Result And (D > 10)

If Result Then
    ' Do "something" here...
End If

Dim Result as boolean
result = false
If condition1 Then result = true
ElseIf condition2 Then result = true
ElseIf condition3 Then result = true
ElseIf condition4 Then result = true

If result Then debug.print "Success"

如果A、B、C或D中的任何一个小于10，
Result
将切换到
False
，并从此保持该状态。只有在所有测试都通过的情况下，才会显示为
True

Dim Result as boolean
result = false
If condition1 Then result = true
ElseIf condition2 Then result = true
ElseIf condition3 Then result = true
ElseIf condition4 Then result = true

If result Then debug.print "Success"

如果要在条件不相同的情况下使用select语句，请使用：

Select Case True
    Case A=5,b=10,c="my answer",d=11
      ....
End Select

如果要在条件不相同的情况下使用select语句，请使用：

Select Case True
    Case A=5,b=10,c="my answer",d=11
      ....
End Select

您也可以在一行上放置多个条件，但这可能会影响可读性。您也可以在一行上放置多个条件，但这可能会影响可读性。hmmm这需要在它们之间放置“do something”函数。或者为它们中的每一个更新一个标志。从长远来看，似乎比嵌套的ifs更多的代码。@TonyRaymond这取决于条件是什么。如果要检查表达式是否与一组值匹配，
Select Case
非常完美。例如，要检查变量
a
是否具有一组值中的一个，请执行此操作
选择案例a：案例1、2、3、4、5、6、7、8、9、10:do something
链接（实际上）已断开：“Visual Studio 2005退役文档”hmmm，需要在它们之间放置“do something”函数。或者为它们中的每一个更新一个标志。从长远来看，似乎比嵌套的ifs更多的代码。@TonyRaymond这取决于条件是什么。如果要检查表达式是否与一组值匹配，
Select Case
非常完美。例如，要检查变量
a
是否有一组值中的一个，请执行此操作
选择案例a：案例1、2、3、4、5、6、7、8、9、10:do something
链接（实际上）已断开：“Visual Studio 2005退役文档”非常优雅，我喜欢这样。非常感谢。那很优雅，我喜欢。非常感谢。