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

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

2、原因：赋值的变量超出了定义的范围而出现该错误的。

3、例如：Private Sub Command1_Click()Dim a As Integera = 360 * 400End Sub