“if”的最佳实践Visual Basic 6.0 中超过 10 行连续限制的语句

Question

示例：

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 语句更好的方法？

Answer 1

这里有一个选项——一次进行一个测试，用布尔值跟踪最终结果。完成后，只需测试布尔值即可。

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。

Answer 2

您可以使用 Case 语句。它比 if 更简洁：http://msdn.microsoft.com/en-us/library/cy37t14y%28v=vs.80%29.aspx

Answer 3

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