VB类型溢出

Question

下面代码为什么会出错:
public sub load()
    dim a as long    a = 40000    '正确
    msgbox a        a = 200 * 200  '错误
    msgbox a       '溢出
end sub

Answer 1

以前出现过好多个同样问题的贴子了。http://community.csdn.net/Expert/topic/5376/5376545.xml?temp=.2722284

Answer 2

用 VAL（200） * VAL（200）

Answer 3

因为200为integer,所以200*200也为integer,溢出
改成这样就可以了：
a=200&*200
或
a＝200*200&
或
a=200&*200&
或
a=200
a=a+200