关于VB中的“溢出”问题---实时错误6

昨儿，在运行程序时，弹出如图所示的提示框显示：

实时错误‘6’

溢出

瞅了好几遍代码都没有发现问题，后来通过上网查询，发现犯了一个超级低级的错误：

赋值的变量超出了定义的范围

例如下面的代码，乍一看好像是没有什么问题？？！！

其实我们是忽略了integer类型的取值范围，在这个代码中，我们可以口算出a最后的值为150000，但是integer表示16位的整数，且它的数据的范围是-32768-32767，所以会弹出如上图所示的提示框；此时我们只要将变量a的数据类型改为Long就可以了（ps:Long的范围是-2,147,483,648 到 2,147,483,647 ）。