Question

VBA数据溢出问题

Excel2003的 VBA中
Private Sub test()Dim i As Longi = 300 * 500MsgBox iEnd Sub
在运行到i=300*500这一句的时候报警数据溢出，但是用i=150000*1就不会报警，哪位知道为什么啊？很奇怪的现象，用i=clng(300)*500也不报警，哪位能给个合理的解释？

Answer 1

在计算时，VB会使用一个临时变量，因为300和500都是整型，VB将使用一个整型的临时变量，他们的乘积超过32000，就会数据溢出。150000或clng(300)都已经告诉VB把临时变量声明为Long，所以不会出错。