数学二分法解方程vbs脚本――超简单的

数学二分法解方程vbs脚本――超简单的
2009年10月31日
　　
vbs使用方法~~~
　　 新建文本文档，把下面我编写下的脚本输进去，退出，保存。重命名把扩展名改为.vbs如“二分法.vbs”（没“”）下面是脚本，使用起来可能比较麻烦点，见谅~！！
　　Dim x1, x2, y1, y2, a, b, c, d, e ,aa,bb,dd
　　y1 = x1^2+2
　　y2 = x2^2+2
　　aa = InputBox("zuo")
　　bb = InputBox("you")
　　dd = InputBox("jing que du")
　　a=CDbl(aa)
　　b=CDbl(bb)
　　d=CDbl(dd)
　　Do
　　c = (a + b) / 2
　　x1 = c
　　x2 = b
　　e = y1 * y2
　　If e0 then
　　a=c
　　End if       
　　Loop until Abs(a - b) 脚本如下
　　Dim x1, x2, y1, y2, a, b, c, d, e ,aa,bb,dd
　　y1 = x1^2+2
　　y2 = x2^2+2
　　aa = InputBox("zuo")
　　bb = InputBox("you")
　　dd = InputBox("jing que du")
　　a=CDbl(aa)
　　b=CDbl(bb)
　　d=CDbl(dd)
　　Do
　　c = (a + b) / 2
　　x1 = c
　　x2 = b
　　e = y1 * y2
　　If e0 then
　　b=c
　　End if       
　　Loop until Abs(a - b) < d
　　祝大家考试顺利~~！！！