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