對分查找算法可用于求解方程的近似解．現要求方程x³-4x²+x+5=0的一個近似解，可設f（x）=x³-4x²+x+5，若有區間[a,b]，使f（a）與f（b）異號，則該區間內必存在該方程的一個解．小吳為此編寫了VB程序，功能如下：分別在文本框Text1和Text2中輸入求解的區間值a和b（a＜b），單擊“計算”按鈕Command1，若該區間必有解，則求解出該區間內的一個近似解（精確到10^-5），否則提示“重新輸入區間”，計算后的相關結果顯示在列表框List1中．程序運行界面如圖所示．

實現上述功能的VB程序如下，但加框處代碼有錯，請改正．
Function f（x As Double） As Double
Dim y As Double
y=x^3-4*x^2+x+5：（1）
End Function
Private Sub Command1_Click （　　）
Dim a As Double,b As Double,m As Double,x As Double
a=Val（Text1．Text）：b=Val（Text2．Text）
If f（a）*f（b）＜0And a＜b Then
Do While a＜=b
m=（a+b）/2
If Abs（f（m））＜0.00001Then Exit Do
If ＜0  Then'（2）
b=m
Else
a=m
End If
Loop
x=Format（m,“0.00000“）'Format函數用于定義輸出的小數位數
List1．AddItem“[“& Text1．Text &“，“& Text2．Text &“]“&“解為：“& x
Else
List1．AddItem“[“& a &“，“& b &“]“&“重新輸入區間“
End If
End Sub.