VB6:当然这个简单的Hex加法错了吗？

Question

我在一些VB6代码中得到奇怪的结果,我已经缩小到这个:

Debug.Print Hex(&hEDB80000 + &h8300)

显示EDB78300

这不可能是正确的吗？当然应该是EDB88300？

我疯了吗？

Answer 1

不要忘记负数如何以二进制表示,VB6和VB.NET以不同的方式解释和&h8300这样的数字.

因为&hEDB80000不适合16位,VB将其解释为长(32位).因为高位被设置,VB6知道它是负的.

让我们撤消二进制补码(在一个32位的世界中)来计算出十进制值

(~&hEDB80000 + 1) = &h1247FFFF + 1 = &h12480000 = 306708480 

因为符号位已设置,那是-306708480

因为&h8300适合16位,VB将其解释为整数(16位).因为高位被设置,VB6知道它是负的.

让我们撤消两个补码(在一个16位的世界中)

(~&h8300 + 1) = &h7DFF + 1 = &h7D00 = 32000

由于符号位已设置,因此为-32000.当添加发生时,两个值都被认为是长(32位).

(-306708480) + (-32000) = -306740480

让我们把它放回两个补码十六进制中

~(306740480 - 1) = ~(&h12487D00 - 1) = ~(&h12487CFF) = &hEDB78300

所以&hEDB78300是正确的答案.

笔记:

我个人认为混乱发生的原因如下:

&h0004000 is interpreted as  16384 // Fits in 16-bits, sign bit is not set
&h0008000 is interpreted as -32768 // Fits in 16-bits, sign bit is set
&h0010000 is interpreted as  65536 // Requires 32-bits, sign bit is not set

正如在另一篇文章中提到的,你可以通过明确地将值标记为long来解决这个问题

&h0004000& is interpreted as  16384 
&h0008000& is interpreted as  32768 
&h0010000& is interpreted as  65536