运行环境：分辨率：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)