i = 1: j = 10: n = 0: flag = True

Key = Val(Text1.Text)

Do While i <= jAnd flag = True

    m = (i + j) \ 2

    If a(m) = Key Then

        flag = False

    ElseIf a(m) < Key Then

        i = m + 1

        n = n - 1

    Else

        j = m– 1

        n = n + 1

    End If

Loop

数组元素a(1)到a(10)的值依次是“5,16,22,28,35,43,52,67,78,89”，变量n的值最终是0，则文本框Text1输入的数值范围可能是（   ）

Dim a(1 To 10) As Integer

Dim s As String, n, key As Integer

a(1) = 23: a(2) = 33: a(3) = 44: a(4) = 55: a(5) = 66: a(6) = 77

i = 1: j = 6: c = 0: key = 35

Do While i <= j

c = c + 1

m = (i + j) \ 2

If (j - i + 1) 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

该程序段运行后，下列各变量的值不正确的是（  ）

参选地区用数字1，2，3……N表示，每个地区所属的省份依次存入数组a(1)到a(N)，若1号地区的省份编号是3，即a(1)=3。分析可知，所求区间的长度至少为K(省份的数量)，最大为N(地区的数量)。我们可以通过二分K到N之间的数求得最小区间长度。例如有10个参选地区，分别来自于5个不同的省份，从左到右排列，地区编号依次为2，1，2，4，3，3，5，5，3，5，则最小的一段包含所有5个地区的区间是从第2个到第7个地区，区间长度为6。

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