i=1

  j=7

  s=“”

  Do While i<=i

    m=(i+j)＼2

    If a(m)=Key Then

      s=“E”

      Exit Do

    ElseIf a(m)>Key Then

      j=m-1

      s=“L”

    Else

      i=m+1

      s=“R”

    End If

  Loop

数组元素a(1)到a(7)的值依次为“25，42，53，66。77，83，98”，若Key=60，运行上述程序段后，下列条件表达式成立的是（  ）

  Dim a(1 To 10) As Integer

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

  Dim key As Integer

  i = 1: j = 10: key = Val(Text1.Text)

  Do While i <= j

    m = (i + j) \ 2

    If key < a(m) Then

      j = m - 1

    ElseIf key > a(m) Then

      i = m + 1

    Else

      Do While m > 1

         If a(m - 1) = key Then

          m = m - 1

         Else

          Exit Do

         End If

      Loop

      Exit Do

    End If

  Loop

数组中a(1)到a(10)依次为“1，1，2，3，3，3，3，4，4，4”，若在文本框Text1中输入值3，经上述程序段执行后变量m的值为（  ）

i=l:j=9:n=0

key=Val(Text1,Text)

Do While i<=j

  n=n+1

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

  If key=d(m) Then Exit Do            ‘Exit Do表示退出循环

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

Loop

数组元素d(1)到d(9)的值依次为“7,12,18,25,39,58,61,72,86”｡若该程序段运行结束后，n的值为2，则key的值是（  ）

参选地区用数字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。