Dim k1, k2, k3m, k4m, la3, la4, lam, ga, w3, w4, xf, ye, ctm, ctf, cfd, cl, fi1, fi2, fi3, fi4, fi3f, fi4f, fi5, wf, ad, r1, r2, m1, m2, f3, f4, a0, a1, a2, a4, b1, b2, b4, b5, G, B, C, nt3d, nt4d, nt1d, nt2d As Double这一句显示溢出
b1 = r1 * r2 * (Exp(r1 * (xf - xe)) - Exp(r2 * (xf - xe))) / (r1 * Exp(r2 * (xf - xe)) - r2 * Exp(r1 * (xf - xe)))
求大神救救我吧!!!!!!!!!!!!!!
b1 = r1 * r2 * (Exp(r1 * (xf - xe)) - Exp(r2 * (xf - xe))) / (r1 * Exp(r2 * (xf - xe)) - r2 * Exp(r1 * (xf - xe)))
求大神救救我吧!!!!!!!!!!!!!!
还有检查一下,(r1 * Exp(r2 * (xf - xe)) - r2 * Exp(r1 * (xf - xe))) 这一部分是不是结果为0了
你啥值都不赋,那个除法就变成0/0 ,让然溢出。
另外式子里面的xe没有定义
此错误有以下的原因和解决方法: 赋值、计算或数据类型的结果的转换太大,以致于不能在变量类型所允许的范围内表示出来。
赋值给足够表示值的范围的类型的变量上。给属性的赋值超过属性能接受的最大值。
确保赋值适合属性的范围。试图在计算中使用一个数字,并且该数字被强制为一个整数,但是结果超过了整数的范围,例如:
Dim x As Long
x = 2000 * 365 ' 错误: 溢出
要解决这个问题,请按如下方式键入该数字: Dim x As Long
x = CLng(2000) * 365