为什么会实时错误6 溢出

为什么会实时错误6 溢出

会实时错误6 溢出的原因是当赋值超出目标的限制时，就会发生溢出。此错误有以下的原因和解决方法：
　　赋值、计算或数据类型的结果的转换太大，以致于不能在变量类型所允许的范围内表示出来。赋值给足够表示值的范围的类型的变量上。给属性的赋值超过属性能接受的最大值。确保赋值适合属性的范围。

几个地方错了
第一，全局变量和局部变量的问题，在 Command1里面定义的变量在Form_Load里面不可用，否则这几个变量就变成默认值0，当然出错了
第二，b = Tex2.Text这句错了，应该是b = Text2.Text
第三，程序逻辑上的失误，Form_Load在程序加载前已经执行了，那么abc都没有定义值，肯定错了
综上所诉，可以把代码改为
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
a = Text1.Text
b = Text2.Text
d = 10000
If b > a Then c = (((b - a) / a) + 1) Else c = (1 - ((a - b) / a))
d = d * c
Print d
End Sub