有关VB数据类型问题！！

Question

试图在计算中使用一个数字，并且该数字被强制为一个整数，但是结果超过了整数的范围，例如： 
    Dim x As Long
    x = 2000 * 365   ' 错误: 溢出
要解决这个问题，请按如下方式键入该数字：    Dim x As Long
    x = CLng(2000) * 365

Answer 1

Dim a as Doublea=cdbl(3600) * 18

Answer 2

TO:gaoqi5037(高岐) 
你的方法不行，我在MSDN时找到，可是还解决不了.

Answer 3

这样就行了：Private Sub Command1_Click()
   Dim a As Long
   a = CLng(3600) * CLng(18)
   MsgBox a
End Sub

Answer 4

TO:gaoqi5037(高岐)
  有失误，原来这种方法是可以的，谢谢