实现上述功能的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)<0 And a<b Then

       Do While a<=b

       m=(a+b)／2

       If Abs(f(m))<0.00001 Then Exit Do

       If <0 Then         ‘（2）

          b=m

       Else

          a=m

       EndIf

      Loop

      x=Format(m，“0．00000”)      ‘Format函数用于定义输出的小数位数

      List1．AddItem"["&Text1．Text&"，"&Text2．Text&"]" & "解为："＆x

    Else

      List1．AddItem"["&a&"，"&b＆"]" & "重新输入区间"

    EndIf

End Sub