要求依据上表统计出各星级学生人数占总人数的比例。小王编写了一个VB程序实现该功能：程序运行时，每位学生的得分存储到数组a中，并在列表框list1中显示，单击命令按钮后，在列表框list2中显示各星级的人数占总人数的百分比例。

程序运行界面如图所示：

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

Private Sub Command1_Click()

 Dim a(1 To 8) As Integer

 Dim n, i, j, x As Integer

 List1.Clear

 List2.Clear

 a(1) = -5: a(2) = 3: a(3) = 4: a(4) = 12: a(5) = 20: a(6) = 45: a(7) = 70

 For j = 1 To 7

  List1.AddItem Str(a(j))

 Next j

 x = Val(Text1.Text)

 i = 1

 Do While x > a(i) And i < 8 ’找x的插入位置

  ① 

 Loop

 For j = 8 To i + 1 Step -1 ’移动数据

  ② 

 Next j

 a(i) = x

 For j = 1 To 8

  List2.AddItem Str(a(j))

 Next j

 Label1.Caption = “插入的位置是” &Str(i)

End Sub

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

i=1:j=1000:flag=True:p=0

key=val(Text1.Text)

Do While i<=j And flag

    m=(i+j)\2

    p=p+1

    if a(m)=key Then flag=False

    if a(m)>key Then j=m-1 Then i=m+1

Loop

数组元素a(1)到a(1000)中存放着升序排列的数据。下列说法正确的是（   ）

key = Val (Text1. Text)

i =0：j=9：n=0

Do While i<= j

    m=(i+j)\2

    n=n+1

    If key <= a(m) Then

        j=m-1

    Else

        i=m+1

    End If

Loop

s=i

Do While i<9 And a(i)= a (i+1)

    i=i+1

Loop

Label2.Caption = Str(n) +“：”+ Str(i + 1-s)

数组元素a(0~9)的值依次为“3，4，7，8，8，8，8，9， 10，12”。在文本框Text1中输入“8”，点击“查找”按钮后，Labe12 中输出的结果是(    )