数学二分法解方程vbs脚本――超简单的
2009年10月31日
[b]vbs使用方法~~~[/b]
[b] 新建文本文档,把下面我编写下的脚本输进去,退出,保存。重命名把扩展名改为.vbs如“二分法.vbs”(没“”)下面是脚本,使用起来可能比较麻烦点,见谅~!![/b][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
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
祝大家考试顺利~~!!![/b]
2009年10月31日
[b]vbs使用方法~~~[/b]
[b] 新建文本文档,把下面我编写下的脚本输进去,退出,保存。重命名把扩展名改为.vbs如“二分法.vbs”(没“”)下面是脚本,使用起来可能比较麻烦点,见谅~!![/b][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
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
祝大家考试顺利~~!!![/b]