Function search(key As Integer)As String

    Dim pos As Integer，i As Integer，j As Integer

    Dim nc As String

    i=1：j=6：nc=“”

    Do While i<=j

        m=Int((i+j)／2)

        nc=nc+Str(m)

        If d(m)=key Then

            Exit Do        ‘Exit Do表示退出Do While循环

        ElseIf key<d(m)Then

             j=m-1

        Else

             i=m+1

    End If

      Loop

      search=nc

    End Function

数组元素d(1)到d(6)的值依次为“23，34，45，65，78，98”，则下列说法正确的是 （  ）

Dim a(1 To 6)As Integer

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

a(1)=11:a(2)=22:a(3)=33: a(4)=44:a(5)=55:a(6)=66

i=1:j=6:p=0:Key=23

Do While i<=j

p=p+1

  m=(i+j)\2

  If j Mod 2=0 Then m=m+1

  If a(m)=Key Then Exit Do

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

Else i=m+1

Loop

key = Val(Text1.Text)

i = 0: j = 9:  s = 0

Do While i <= j

  m = Fix((i + j) \ 2 + 0.5)

  s = s + 1

  If key = a(m) Then

     Label1.Caption = Label1.Caption + "→" + Str(m)

     Exit Do  'Exit Do表示退出循环

  End If

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

  Label1.Caption = Label1.Caption + "→" + Str(m)

Loop

Label2.Caption = "历经" + CStr(s) + "步

s = "abcababcababcab": L = Len(s)

For t = 1 To L \ 2      '枚举可能的原始长度

    If L Mod t = 0 Then

        For i = t + 1 To L Step t

            If    ①   <> Mid(s， 1， t) Then Exit For

        Next i

        If i = L + 1 Then ans =   ②   : Exit For

    End If

Next t

Text1.Text = ans

上述程序段划线处①②语句依次可为（  ）