1. 用户定义变量 s3=1 3次系数
2. 用户定义变量 s2=1 2次系数
3. 用户定义变量 s1=1 1次系数
4. 用户定义变量 s0=0 常数项
5. Dim a,b,c,t1,t2,q,p,x,x1,x2
6. a=s2/s3
7. b=s1/s3
8. c=s0/s3
9. t1=(2*a*a*a)/27+a*b/3+c
10. t2=t1*t1-4*(3*b+a*a)*(3*b+a*a)*(3*b+a*a)/729
11. p=Sqr(t2)
12. q=Sqr(t2)
13. p=p+t1
14. q=t1-q
15. x1=p*p*p
16. x2=q*q*q
17. x=q+p+a/3
18. 调用外部VBScript子程序 MessageBox("X="&x&" X1="&x1&" X2="&x2)