s = "ERROR:Divisor must not be zero!"

flag = False  :  m = 0

For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "a" And ch <= "z" Then

If Not flag Then

m = m + 1  ： flag = True

End If   

Else

flag = False

End If  

Next i 

Text1.Text=Str(m)

实现上述功能的 VB 程序如下，请回答下列问题：

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中显示的值是（  ）

key＝Val(Text1.Text)

s＝“ ”

i ＝ 1 : j ＝ 10

Do While i ＜＝ j

  m ＝(i＋j)\2

  s ＝ s＋ Str(a(m))

  If a(m)＞ key Then j ＝ m -1 Else i ＝ m ＋1

Loop

Text2.Text ＝ s

数组元素a(1)到a(10)的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text1中输入待查找的数，执行该程序段，则文本框text2中显示的内容可能的是 （  ）

i=1: j=8: t=0

key=int(Rnd( )*7)+14

Do While i<=j

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

    t=t+1

    if a(m)=key Then

        Exit Do

    Else

        if a(m)>Key Then

            j=m-1

        Else

            i=m+1

        End if

    End if

Loop

数组元素a(1)到a(8)的值依次为“2,11,14,15,18,19,20,22”，执行该程度段后，变量t的最大值可能是（    ）