VB的BUG??大家进来看一段很小的程序.

[pigsanddogs]

放一个button,写下面代码
Private Sub Command1_Click()
Dim nOffset As Integer
Dim pOffset As Integer
Dim tOffset As Integer

nOffset = -17940
pOffset = 334
MsgBox nOffset
tOffset = (nOffset + pOffset) Mod 512
MsgBox tOffset
End Sub

编译成exe执行.
msgbox的结果分别为 -17940. 314.

把MsgBox nOffset删除,重新编译成exe执行.
msgbox的结果为 -198.

vb6+sp6 英文企业版.结果如上.

[shala99]

up

[jxgzay]

的确有趣！Msgbox可以影响最终结果。
而且解析执行和编译后执行结果也不一样。

[56625079]

看了ningkang(搜索客)链的文章,应该是符号溢出

[atestya]

up

[thirdapple]

Integer的问题吧

[homezj]

不算Bug，
1、这是本机码编译时对存在岐义的数值类型的必然选择，因为本机码编译时，若选择“代码速度优化”，在遇到不确定类型的整数时，它会优先按32位CPU最擅长的Long型处理。P代码编译或本机码选“代码大小优化”及“无优化”时均无此问题。

2、msgbox 时不传原变量地址，也无此问题，如改成：MsgBox (nOffset) 就会正常了。

3、不取&H8000-&HFFFF之间的值（因为这段数值在Long与Integer中意义不同），也不会有此问题。

平时注意对传址类参数（Byref）严格按所需类型传递，可有效防止本机码编译中这些岐义的产生。如：MsgBox需要的是一个字符串，却生硬地给它一个数值，让它看着办，它当然会给你点“颜色”看。

还有一点个人经验：若打算本机码编译，整数尽量用Long，而不使用Integer类型，是一个好习惯。（这点不奢求大家都能接受）

[bwldwb6]

好问题,发现这么重大的问题了

[pigsanddogs]

nOffset = -17940超出integer所表示的范围。
===================
并没有超过integer的范围， 如果超过了肯定报错
Integer variables are stored as 16-bit (2-byte) numbers ranging in value from -32,768 to 32,767

[optop]

我的是日文系統，也是出現同樣的情況！

[w3k]

win2(server)英文+vb(sp6)英文
测试没问题

[qyqzxz1]

我试了，发现有此问题，编译成exe文件后结果与解释时不一致，什么原因呢？请高手明示。

[mingtian2008]

up

[DooDu]

编译执行是编译成p-代码执行，而解释执行是编译成本机码。
至于两中方式造成的差异的原因，小吉已经说的很明白了，请仔细看。

[zhujiechang]

确实是大BUG，解释环境和编译环境计算得出了不同的结果。
谁还敢拿VB来做这样的计算啊，昏。特殊要求的朋友应该注意。

[thinkeasy]

homezj(小吉) 说的对。
VB虽然对变量要求不是很严格，但变量的类型还有是的影响的。

[thinkeasy]

如果把Integer换成Long就没有问题了

[samwzhang]

晕倒了,-198和314不都是对的么？
198+314=512的，大家就楞没注意么？

[haen_zhou]

好问题,发现这么重大的问题...
强

[qyqzxz1]

类似的问题估计在c种不会出现。

[LIQIAN1024]

应该没问题