VB一道解方程4．李强设计了一个求一元三次方程x3+2x2-5x+2=0的近似实数根的VisualBasic程序。单击“求解”按钮Command1，程序在[-4，4]范围内求解，并将所有实数根显示在列表框List1中。

Question

VB 一道解方程
4．李强设计了一个求一元三次方程x3 + 2x2 - 5x + 2 = 0的近似实数根的Visual Basic程序。单击“求解”按钮Command1，程序在 [-4，4]范围内求解，并将所有实数根显示在列表框List1中。程序运行界面如图所示：
李强的方法是：设f(x)= x3 + 2x2 - 5x + 2，从-4开始到4为止，每隔一个求解精度e取一个x值，并求出f(x)和f(x+e)的值。若f(x)×f(x+e)≤0，则表示x和x+e的中点就是方程的一个近似解。
Private Sub Command1_Click()
程序代码如下
Dim s(1 To 3) As String
Const e As Double = 0.00001 'e为求解精度
Dim x As Double
Dim m As Double, k As Integer 'm为实数解
s(1) = "x1": s(2) = "x2": s(3) = "x3"
k = 0
For x = -4 To 4 - e Step e
If ① Or f(x + e) = 0 Then
k = k + 1
If f(x + e) = 0 Then m = x + e Else m = x + e / 2
m = Fix(m * 10000 + 0.5) / 10000 '保留四位小数
List1.AddItem s(k) + " = " + ②
End If
Next x
End Sub
'以下的自定义函数，用于求f(x)的值
End Function
f = x * x * x + 2 * x * x - 5 * x + 2
Private Function f(x As Double) As Double

Answer 1

f(x)<0
m