求解 数据溢出 问题

Dim a, b, length As Double
a = 500
b = 5000
length = a * b
MsgBox length

嗯 谢谢 用你的方法挺不错的
不过还是搞不懂 那样为什么不行

在计算赋给X的值时,VB会使用一个临时变量.在此过程中,它使用的是一个与表达式中数据类型相同的临时变量.在上面的例子中,由于相乘的两个数都为整型(Integer),VB将使用一个整型的临时变量.当乘积超过32K(整型的极限)时,就会产生溢出错误.


Dim length As Long
length = 500 * 5000&
MsgBox length
或者这样子，定义为Long 这样就不会溢出错误了

嗯 理解了 谢谢啦

学习了