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)

⑴将数组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程序。请回答下列问题：

   i = 1: j = 10

Do While i <= j

       m = (i + j) \ 2

       If a(m) = Key Then text1.Text = "查找成功": Exit Do

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

       If Key > a(m) Then i = m + 1

Loop

Dim a(1 To 10) As Integer

a(1) = 1: a(2) = 2

For i = 3 To 10

    a(i) = a(i - 1) + a(i - 2)

Next i

i = 1: j = 10: f = False

Do While i <= j And f = False

    num = num + 1

    m = (i + j) \ 2

    If num = a(m) Then

        f = True

    ElseIf num < a(m) Then

        j = m - 1

    Else

        i = m + 1

    End If

    Text1.Text = Text1.Text + Str(m)

Loop

该程序段执行结束后，文本框Text1中显示的内容是（  ）

l=1: r=6

Key=Val(Text1.Text)

Do While l <=r

 m=Int((l+r) \ 2)

 If a(m)=Key Then

   ⑴  

  Exit Do

 Elself a(m) >=a(l) Then

   ⑵  

 Elself a(m) < a(l) Then

   ⑶  

 End If

Loop

上述程序中方框处可选语句为:

①If a(m) < Key And a(r) >=Key Then l=m+1 Else r=m-1

②Listl .AddItem “第”+Str(m)+“值是”+Str(a(m))

③If a(m) > Key And a(l) <=Key Then r=m-1 Else l=m+1

则(1)、(2)、(3)处语句依次是（  ）