Dim i As Long i = 3600 * 10 居然溢出？？！！

[zhangweiqiang]

Dim i As Long
i = 3600 * 10
上述代码运行时居然溢出，而若直接改成
Dim i As Long
i = 36000
再运行便没有事，这真是一件怪事，有谁知道是什么原因吗？（环境VB6+SP5)如果你机器没事，请告诉我你的环境

[IT服务]

VB里不能在定意的时候给它付值啊.这样写不对吧.

[liuyanghe111]

因为在表达式中,3600和10都是默认为int型的,系统会将3600*10的结果填充到int型的内存空间中,而36000>32767,所以溢出

[Greaitm]

i = 3600& * 10

就可以了

[tonyLonge]

很同意楼上的liuyanghe111(yang) 说法

将
Dim i As Long
i = 3600 * 10
改成
Dim i As Long
i = CLng(3600) * CLng(10) 就对了.

[蜗牛20008]

Dim i As Long
i = 3600& * 10&
--------------------
&means long

[Greaitm]

用& 而不要用CLng
因为你的参数中用了&，vb编译器就会使用长整的寄存器(vb会根据代码查找最长的变量，并设置寄存器)，但如果你用Clng的话，就变成初始化时是整数，然后再转换成长整,这样不科学。

[flyingZFX]

To Greaitm(夜草) ::
你从哪本VB书上看到的，，介绍给我呀，？

[高高兴兴的晶晶]

学学

[ahbbnimor]

up

[hspring]

两个整型的相乘当然还是整型的，你把它付给长整型的当然溢出了
这样可以
i=clng(3600)*clng(10)

[thriller]

msdn:
You attempt to use a number in a calculation, and that number is coerced into an integer, but the result is larger than an integer. For example:
Dim x As Long
x = 2000 * 365 ' Error: Overflow