实现上述功能的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

Const n=10

key=Val(Text1.Text)

L=1:R=n

If check(key) Then    'check(x)为自定义函数，判断x为否偶数，若是返回True，否则为False

Do While Not check(a(L))

L=L+1

Loop

Else

Do While check(a(R))

R=R-1

Loop

End If

Do While L<=R

m=(L+R)\2

If key=a(m) Then Exit Do

If key>a(m) Then

L=m+1

Else

R=m-1

End If

Loop

若数组元素a(1)到a(10)依次为“1,3,5,7,9,2,4,6,8,10”，执行以上程序段，依次对该组数据进行查找，平均查找次数(平均查找次数=总查找次数/数据总个数)为（  ）

i=1：j=12：k=0：s=””

key= Va1(TextI Text)： c=N： flag= False

Do While i<= j And flag= False

m=(i1+j+1)\2：k=k+1

If key= a(m) Then c=Y： flag=True

If key >a(m) Then j= m-1 Else i =m+1

s=s& Str(a(m))

Loop

Text2 Text s： Text3 Text= c

数组a(1)到a(12)的值依次为“991．85．76，68．61，53，42．34，27，20，13”，执行该程序段后，下列说法正确的是（  ）

Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer

Dim s As String

i = 1: j = 6

Key = Text1.Text：s = ""

Do While i <= j

m = Int((i + j) / 2 + 0.5)

s = s + " " + a(m)

If Key > a(m) Then

i = m + 1

Else

j = m - 1

End If

Loop

Text1.Text = s

End Sub

key=Va 1(Text 1．Text)

i=1

j=9

Text 2.Text=""

Do While i<=j

   If key=a(m) Then Exit Do

   If key<a(m) Then i=m+1 Else j=m-1

   Text 2.Text=Text 2.Text+“”+Str(a(m) )

Loop

数组元素a(1)到a(9)的值依次为88，75，70，68，61，58，55，50，43，文本框Text 1中输入的值是58，执行该程序段，文本框Text 2中显示的是61，50，55，则方框处的代码应为（  ）