恩

Private Sub Command1_Click()
Dim x1, x2, m, c As Single
Dim fx1 As Single
Dim fx2 As Single
Dim fm As Single
c = Val(Text1.Text)
x1 = 0
x2 = 4
While (x2 - x1) > c
m = (x1 + x2) / 2
fx1 = x1 * x1 * x1 - x1 - 2
fx2 = x2 * x2 * x2 - x2 - 2
fm = m * m * m - m - 2
If fm > 0 Then
x2 = m
Else
x1 = m
End If
Wend
Print x1; x2; m
End Sub