VBA 比较运算符用大小写计算不正确

Question

我有一个代码块一直在错误地求值。我不知道为什么会这样。

我确定这至少与我的“选择案例”有关。如果运算符的顺序发生变化，例如=, >, <或 <, =, >等评价变化。

我的期望是评估将是 a = b万一highest_header = 24 - 而 24不可避免地分配给highest_header ，我的代码使用我认为是错误的“案例”来执行此操作。

我稍微简化了代码片段，但结果是一样的——比较被评估为 a = b = FALSE和 a < b = TRUE

Sub highest_header()
Dim highest_header_count As Integer
Dim a As Integer
Dim b As Integer

a = 24
b = 24

Debug.Print a '24
Debug.Print b '24
Debug.Print TypeName(a) 'Integer
Debug.Print TypeName(b) 'Integer

Select Case highest_header_count
    Case a = b
        highest_header_count = b
    Case a < b
        highest_header_count = b
    Case a > b
        highest_header_count = a
End Select

End Sub

如有任何见解，我们将不胜感激。

Answer 1

您的 Select Case 正在将值为 0 的整数与 bool 值进行比较。

a = b为 True 为 -1， a < b为 False，即 0， a > b为 False，即 0。

这就是为什么您在 a < b 上受到打击的原因.