用任意迭代法求方程f (x)=x3—x—1=0在x =1.5附近的一个近似值。要求：自己确定允许精度。请用VB 程序语言编程！求编程代码！急急…

如果没有理解错的话你要求解的方程为x的立方减去x减去1,我按这个方程编写的程序,不过这个没有关系，如果不是这个方程，你只需将方程改一下即可。

Function f(ByVal x As Single) As Single '定义要求解的方程
f = x ^ 3 - x - 1
End Function
Private Function root(ByVal a0 As Single, ByVal b0 As Single, ByVal c As Single) As Single '用二分法求解,a0,b0为初始值,c为精度
Dim a, b, t As Single
a = a0
b = b0
Do While (1)
If Abs(f(a)) <= c Then
root = a
Exit Function
Else
If Abs(f(b)) <= c Then
root = b
Exit Function
Else
t = (a + b) / 2
If f(t) * f(a) <= 0 Then
b = t
Else
a = t
End If
End If
End If
Loop

End Function
Private Sub Form_Load()
MsgBox root(1, 2, 0.00001) '调用例子
End Sub