VB 提示“实时错误6，溢出”

1、VB程序在运行的时候，报错提示“实时错误6，溢出”，

2、原因：

赋值的变量超出了定义的范围而出现该错误的。

3、例如：

Private Sub Command1_Click()

Dim a As Integer

a = 360 * 400

End Sub

1、使用正确的类型的值来运算，因为vb默认的数字是整形(Integer),通过转换就可以解决该错误，修改后的代码如下：

Private Sub Command1_Click()

Dim a As long

a = Clng(360) * 400

End Sub

或者如下

Private Sub Command1_Click()

Dim a As long

a = 360! * 400

End Sub

在数字后面加！表示该数值为long类型。