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)