一元三次方程求解脚本源码

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