VB6溢出错误与大整数

我试图设置一个整数值：

Dim intID as integer
intID = x * 10000

当x为3以下时，此功能正常。但是当x为4时，这给我错误：

run-time error 6
Overflow

我不明白为什么会这样。我可以直接将intID设置为40000，没有任何问题，因此显然能够存储大量数据。

您*无法将vb6整数设置为40000，因为它们是16位数，因此32767是最大值。

Long是32位类型。

但是作为一个警告，如果你要：

Dim lngID As Long
lngID = 4 * 10000

您仍然会获得溢出，因为字面数字默认为整数，以纠正只要使用&或者使用CLng()来投射一次：

Dim lngID As Long
lngID = 4 * 10000&
lngID = 4 * CLng(10000)

更新：