long 类型的疑惑~

Question

长整型（Long） 
长整型用4个字节存储，取值范围是-2147483648到+2147483647。 
为什么我用long 200*500就会溢出呢？
但是我直接写 shuzi=999999999 都没问题  保存个200*500就出溢出
代码如下
运行结果 实时错误6  溢出
Private Sub Command1_Click()
Dim shuzi As Long
shuzi = 200 * 500
End Sub

Answer 1

Private Sub Command1_Click()
    Dim shuzi As Long
    Dim a As Long
    a = 200
    shuzi = a * 500
End Sub
或:
Private Sub Command1_Click()
    Dim shuzi As Long
    shuzi = 200& * 500
End Sub

Answer 2

VAR = V1*V2*v3*Vn....，计算V1*V2时，结果保存在V1所用的存储器里，改为shuzi = CLng(200) * 500 即可解决问题。

Answer 3

VAR = V1*V2*v3*Vn....，计算V1*V2时，结果保存在V1所用的存储器里，改为shuzi = CLng(200) * 500 即可解决问题。

Answer 4

两个Integer数值的乘积只能储存在16位内存.

Answer 5

dim a as long a=200& * 500 '计算时，需要创建临时变量，如果没有指明，则会按Integer类型创建

Answer 6

问题很简单，200*500默认是Integer类型，超过上限，溢出你需要显式的书写代码
Option ExplicitPrivate Sub Command1_Click()
    Dim shuzi As Long
    shuzi = 200& * 500
End Sub