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

i = 1: j = 6: n = 0: f = False

Key = Val(Text1.Text)

Do While i <= j And Not f

  n = n + 1

  m = (i+j + 1) \ 2

  If Key = a(m) Then f = True

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

Loop

数组元素a（1）到a（6）的值依次为“12，19，27，37，49,55”。若在文本框Text1中输入27，则以上程序段执行后，下列说法不正确的是（   ）

Dim a(1 To 10) As Integer

a(1) = 1: a(2) = 2

For i = 3 To 10

    a(i) = a(i - 1) + a(i - 2)

Next i

i = 1: j = 10: f = False

Do While i <= j And f = False

    num = num + 1

    m = (i + j) \ 2

    If num = a(m) Then

        f = True

    ElseIf num < a(m) Then

        j = m - 1

    Else

        i = m + 1

    End If

    Text1.Text = Text1.Text + Str(m)

Loop

该程序段执行结束后，文本框Text1中显示的内容是（  ）

已知数据逐行存储在数组a中，在杨氏矩阵数组中查找某数字是否存在的VB程序段如下：

cz = False : i = 1 : j = n

Do While j >= 1 And i <= n

    If key < a(s) Then

          ⑵ 

    ElseIf key > a(s) Then

          ⑶ 

    Else

      cz = True:Exit Do

    End If

Loop

方框中的代码由以下三部分组成：

①j = j - 1

②s = (i - 1) * n + j

③i = i + 1

代码顺序正确的选项是（  ）

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，则方框处的代码应为（  ）