n=0

i=1

j=6

key=val(Text1 text)

f=False

Do While i<=j And Not f

    m=(i+j+1)\2

    n=n+1

    If key=d(m) Then

       f=True

       ElseIf key>d(m) Then

       j=m-1

       Else

          i=m+1

       End if

Loop

数组元素d（1）到d（6）的值依次为“87，72,53,41,29,18”，若该程段运行结束后，n的值为2，则key的值是 （  ）

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=Val(Text1.Text)

i=1:j=n*2:flag=False

Do While i+1＜=j And Not flag

    m=(i+j)\2

    If  Then m=m-1

    If a(m)=Key or a(m+1)=Key Then

        Flag=True

    Elseif a(m)＞key Then

    Else

    End if

Loop

If a(i)=Key Or a(j)=Key Then flag=True

If flag Then Label1.Caption=“yes” Else Label1.Caption=“no”

划线处的代码正确的是（     ）