【讨论】有趣的Access VBA数字之迷

LucasLynn

下面有一个表达式：

((CLng(Not cByte(255)) * 256 + (Not cByte(255))) * 256 + (Not cByte(255))) * 256 + (Not cByte(155))

你可以用任何方法来求一下他的值。我求出来是100

然后你再尝试在这个表达式前面加上“1-”和“1+”，变成：

1-((CLng(Not cByte(255)) * 256 + (Not cByte(255))) * 256 + (Not cByte(255))) * 256 + (Not cByte(155))

1+((CLng(Not cByte(255)) * 256 + (Not cByte(255))) * 256 + (Not cByte(255))) * 256 + (Not cByte(155))

再分别求值。呵呵，你是不是彻底崩溃了？

[此贴子已经被作者于2005-9-21 23:04:35编辑过]

LucasLynn

其实只是个小把戏，嘿嘿。

eyewitnes

不用去试算，，看着就感觉晕

LucasLynn

以下是引用eyewitnes在2005-8-14 9:44:00的发言：

不用去试算，，看着就感觉晕

9494，你看都激起民愤了，赶快做完吧。

[em01]

海狸先生

本来就是帮你想的，这种东西你在行

eyewitnes

以下是引用LucasLynn在2005-8-14 9:58:00的发言：







9494，你看都激起民愤了，赶快做完吧。

[em01]

呃，不试算了，我猜应该是32768和-32768之类的结果，嘿嘿

LucasLynn

以下是引用eyewitnes在2005-8-14 11:28:00的发言：





呃，不试算了，我猜应该是32768和-32768之类的结果，嘿嘿

完全不是，你用VBA算一下就知道了。我说了是小把戏，就不会这么复杂的嘛。

[em01]

LyxSoft

1+0+100=1011-0+100=101

wu8313

给出的两个表达式的值 均为101

1+(0+0+0+100)=101

1-(0+0+0+100)=101

奇怪的就是： 这两个表达式的值应该不一样。

计算倒是很快，再一奇怪楼主是如何得到上述表达式的？

-----------------------------------------------------------------------------------------------------------------

我是在 立即窗口 中查看结果的：

Sub wu8313()

Dim a, b, c,d

b = Not CByte(255)

c = CLng(Not CByte(255))

d = Not CByte(155)

'LucasLynn 给出的表达式之一

a = 1 + ((CLng(Not CByte(255)) * 256 + (Not CByte(255))) * 256 + (Not CByte(255))) * 256 + (Not CByte(155))

Debug.Print b  '值为0

Debug.Print c  '值为0

Debug.Print d  '值为100

Debug.Print a  '值为101  最终结果

End Sub

--------------------------------------------------------------------------------------------------------------

[此贴子已经被作者于2005-8-14 20:42:45编辑过]

LucasLynn

以下是引用LyxSoft在2005-8-14 19:13:00的发言：



1+0+100=101

1-0+100=101

终于有人道破天机了。

[em05]