我试图设置一个整数值：
Dim intID as integer intID = x * 10000
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)
更新：