例如有10个小朋友，5种国籍，从左到右排列，国籍编号依次是2，1,2,4,3,3,5,5,3,5，则最小的一段包含所有5种国籍的区间是从第2个到第7个小朋友，区间长度为6。

算法解析：区间的长度至少为K（国籍的数量），最大为N（小朋友的数量）。我们可以通过二分K到N之间的求得最小区间长度。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 100) As Integer   '依次存储为1到100的小朋友的国籍编号

Dim K As Integer

Dim N As Integer

Private Sub Form_Load()   '窗体加载，生成数据

'产生N的值，表示人数

'产生K的值，表示国籍种数

'产生编号为1到N的小朋友的国籍编号，并存储在数组a中

'代码略

End Sub

Private Sub Command1_Click()    '使用二分的思想计算最小区间

Dim M As Integer

i = K: j = N       '答案的范围为K到N，即最少K，最多N个小朋友

Do While i <= j   

    M = (i + j) \ 2     '二分，求中间值

    If pd(M) = True Then   '调用Pd函数，判断区间长度为M时，是否包含所有国籍

      j = M – 1 

      ans = M        '若以M为区间长度可包含所有国籍，更新答案

    Else

      i =           '第①处错误

    End If

Loop

Text1.Text = Str(ans)

End Sub

Function pd(M As Integer) As Boolean

Dim f(1 To 20) As Integer  'f(i)表示国籍为i的小朋友是否包含

Dim t As Integer           't用于统计当前区间包含的国籍数量

pd = False

For i = 1 To N - M + 1     '枚举以i为起点的M个小朋友中，各个国籍是否包含

    For j = i To i + M - 1

      f(a(j)) = 1            '等于1，表示国籍为a(j)的小朋友已包含，0表示不包含

    Next j

    t = 0

    For j = 1 To K      '统计已包含的国籍的数量

      t =          '第②处错误

    Next j

    If t = K Then pd = True: Exit Function           '若包含K个国籍，返回True

    For j = 1 To K     'f数组元素重新初始化为0

      f(j) = 0

    Next j

Next i

End Function

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输入的数值范围可能是（   ）

t = "": i = 1 : j = 9 : f = False

Do While i <= j And Not f

    m = (i + j) \ 2

    t = t + Str(m)

  If a(m) = key Then

        t =t +“#”

        f = True

    ElseIf a(m) > key Then

        i = m + 1

        t = t + "→"

    Else

        j = m - 1

        t = t + "←"

    End If

Loop

数组元素 a(1)到 a(9)的值依次为“68、56、52、36、32、28、26、22、20”，执行该程序段，t的值可能是（  ）

⑴将数组a中的n个元素依次分割出若干个数据块，每个数据块有m×m个元素，m最大值为8，最小值为2。分割时，按尽可能大的数据块进行分割；

⑵对每个分割出的数据块用“方阵转换法”进行转换，每次转换后得到的数据块依次存储在数据b中；

⑶数组a分割后的剩余元素（个数小于4），直接依序存储到数组b中。

例如n=140时，可依次分割出3个数据块，元素的个数分别为64（8×8）、64（8×8）、9（3×3），剩余元素为3个。

“方阵转换法”过程如下：将数据块中m×m个元素按行序排列成一个数字方阵，从该数字方阵中按列序得到转换后元素的次序。以3×3数据块为例，转换过程如下图所示:

小明依据上述描述设计了如下VB程序。请回答下列问题：

步骤1：如果待筛选的玻璃球个数<3，则认定已经找出了这个玻璃球(认定方法参照步骤2中描述)，停止筛选，并输出经过的筛选总次数;否则，重复执行步骤2。

步骤2：按编号依次将玻璃球均分成3份，如果有多余的放入第3份中;比较第1、2份的玻璃球重量：

①如果第1份等于第2份的重量，则选取第3份的玻璃球作为下一次筛选的对象;

②如果第1份小于第2份的重量，则选取第1份的玻璃球作为下一次筛选的对象;

③如果第1份大于第2份的重量，则选取第2份的玻璃球作为下一次筛选的对象;

重复执行步骤1。

例如：第1次筛选的小球编号区间是1~100，均分成三份的待称重小球编号分别是1~33、34~66、67~100；第2次则选取以上3份中的一份进行再筛选、再均分……直至找到。

解决上述问题的VB程序功能如下：运行程序，在列表框List1中显示100组数据，分别代表每个编号及对应的小球重量(其中有且只有一个小球的重量与其他小球不同)，单击“筛选”按钮Command1，在列表框List2中显示每次筛选的编号区间和完成筛选的总次数。程序运行界面如图。

Dim n As Integer, i As Integer, left As Integer, right As Integer, m As Integer

Dim a(1 To 10) As String, t As String, key As String n = 6

a(1) = "35": a(2) = "20": a(3) = "18": a(4) = "8": a(5) = "274": a(6) = "47" For i = 1 To n - 1

For j = n To i + 1 Step -1

If a(i) < a(j) Then

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

key = Text1.Text

left = 1: right = n

Do While left <= right

m = (left + right) \ 2

If a(m) = key Then Exit Do

If a(m) < key Then right = m - 1 Else left = m + 1

Loop

若在文本框 Text1 中输入“212”，则程序运行结束后，m 的值为（  ）