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

實(shí)現(xiàn)上述功能的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 （　?。?br />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函數(shù)用于定義輸出的小數(shù)位數(shù)
List1．AddItem“[“& Text1．Text &“，“& Text2．Text &“]“&“解為：“& x
Else
List1．AddItem“[“& a &“，“& b &“]“&“重新輸入?yún)^(qū)間“
End If
End Sub.