用二分法（对分法）求方程f(x)=x3-2x-5=0在[2,3]内的根的近似值,绝对误差要求小于0.001.（x=2.0945515
问题描述：
用二分法（对分法）求方程f(x)=x3-2x-5=0在[2,3]内的根的近似值,绝对误差要求小于0.001.（x=2.0945515
答
VB程序代码如下：
Private Sub command1_Click()
a=2:b=3
While b-a>0.0001
x=(a+b)/2
f1=a^3-2*a^2-5
f=x^3-2*x^2-5
if f1*f>0 then
a=x
else
b=x
end if
wend
print "x=";cint(x*100)/100
end sub