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)

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

a(1) = 2: a(2) = 2: a(3) = 5: a(4) = 6: a(5) = 7

Key = 2

i = 1: j = 5: flag = False Do While i <= j And Not flag

m = (i + j) \ 2 If Key = a(m) Then

s = "找到第" + Str(m) + "个" flag = True: Exit Do

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

Else

i = m + 1 End If

s = Str(m) + s Loop Label1.Caption = s

执行该程序段后，在标签 Label1 中显示的内容是（   ）

注：文中圆括号成对出现，圆括号内不会再套圆括号。

程序运行界面如图所示。

Const n = 100

Dim a(n) As Integer

Private Sub Form_Load()

′产生n个2位正整数，并显示在文本框Text1中，代码略

End Sub

Private Sub Command1_Click( )

    Dim i As Integer, j As Integer, left As Integer

    Dim right As Integer, m As Integer, t As Integer

    i = n-1

    Do While i > = 1

        ________

        right = n

        t = a(i)

        Do While left < = right

            m = Int((left + right)/2)

            If a(m) = t Then right = m: Exit Do

            If a(m) < t Then

                left = m + 1

            Else

                right = m-1

            End If

        Loop

        For j = i To right-1

            a(j) = a(j + 1)

        Next j

        ________________

        i = i-1

        s = “”

        For j = 1 To n

            s = s + Str(a(j))

        Next j

        List1.AddItem s

    Loop

End Sub