运行环境:分辨率:1440×900 色深:32位 操作系统:Windows XP 按键精灵版本:6.87.3535
@按键小小生 2009/3/10
UserVar s3=1 3次系数 UserVar s2=1 2次系数 UserVar s1=1 1次系数 UserVar s0=0 常数项 Dim a,b,c,t1,t2,q,p,x,x1,x2 a=s2/s3 b=s1/s3 c=s0/s3 t1=(2*a*a*a)/27+a*b/3+c t2=t1*t1-4*(3*b+a*a)*(3*b+a*a)*(3*b+a*a)/729 p=Sqr(t2) q=Sqr(t2) p=p+t1 q=t1-q x1=p*p*p x2=q*q*q x=q+p+a/3 VBSCall MessageBox("X="&x&" X1="&x1&" X2="&x2)