或 if 语句中的运算符未按预期工作答案

【问题标题】：Or operator in if statement not working as intended或 if 语句中的运算符未按预期工作
【发布时间】：2017-06-26 15:01:25
【问题描述】：

当我使用以下代码时，它工作正常：

If xMin <> 0 Then
    If xMax <> 0 Then
        If xMax / xMin > 2 Then
            'some code
        End If
    End If
End If

但我只想使用一个 if 语句来避免除法错误，但是它给了我一个 Run-time error '11': Division by zero:

If xMin <> 0 Or xMax <> 0 Then
    If xMax / xMin > 2 Then
        'some code
    End If
End If

（如果我能设法使上述代码工作），我打算这样做：

If (xMin <> 0 Or xMax <> 0) And (xMax / xMin > 2) Then
    'some code
End If

这背后的原因是什么？如何让它在一个 if 语句中起作用？

【问题讨论】：

【解决方案1】：

你运气不好。

VBA 没有实现短路 And，这与 C、C++、Java 等不同。即使结果已知，它也会计算表达式中的每一项。在您的情况下，这意味着即使 xMin 为 0，也会评估 xMax / xMin。

所以你需要写成

If xMin <> 0 And xMax <> 0 Then
    If xMax / xMin > 2 Then
        'some code
    End If
End If

请注意，我已修正您的条件中的一个错字：您需要一个 And 来代替您的 Or。

【讨论】：