k=Val(Text1.Text)

i=1: j=6: Label1.Caption="": f=False

Do While i <=j And Not f

 m=(i+j) \ 2

 If a(m)=k Then f=True

 If a(m) > a(i) Then

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

 Else

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

 End If

 Label1.Caption=Label1.Caption+Str(a(m))

Loop

数组元素a(1)到a(6)的值依次为“58，66，72，24，35，40”，在文本框Text1中输入的值为35，执行该程序段，标签Label1中显示的值是（  ）

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

t=“”: i=0 : j=9 : key=62: f=False

Do While i<=j And Not f

    m=Fix((i+j) / 2)

    t=t+Str(rn)

    If a(m)=key Then

        f=True

    Elself a(m) > key Then

         i=m+1

         t=t+“→”

    Else

        j=m-1

        t=t+“←”

    End If

Loop

数组元素a⑹到a⑼的值依次为“99, 94, 90, 87, 78, 70, 63, 56, 45, 36”,执行该程序段，t的值是（  ）

Dim a( 1 To 10) As Integer

Function Search(L As Integer， R As Integer)

As Integer

     M=(L+R)＼2

     If a(M) <a(M-1) And a(M) >a(M+1) Then

     ①

     ElseIf a(M) >a(Ｍ-1) And a(M) >a(Ｍ+1) Then

     ②

     ElseIf a(M) >a(Ｍ-1) And a(M) <a(M+1) Then

     ③

     End If

End Function

Private Sub Command 1 click()

     Label 1.caption=““峰顶”值是：” +Str(Search (1，10))

End Sub

上述程序中划线处可选语句为：

①Search=Search(M+1，R)

②Search=Search(L，M-1)

③Search=a(M)

则①②③处的语句依次是（  ）

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

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