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

'顺序查找代码，查找次数用变量p表示

For i = 1 To 10

 If a(i) = Key Then

p = i

 End If

Next i

'二分查找代码，查找次数用变量q表示

i=1 ：j=10 ：find=Fasle

Do While i<=j And find=fasle

x =（i＋j）\2

q = q＋1

If a(x)=Key Then find=True

If a(x)>Key Then j=x－1

If a(x)<Key Then i=x＋1

Loop

若变量key的值为13，程序运行后，则变量p和q的值分别是（  ）

请回答下列问题：

为实现上述功能，请将以下程序补充完整。

Private Sub Command1_Click()

Dim j As Integer, k As Integer

List1.Clear

For k = 1 To 100

    j = Int(Sqr(k))

    If {#blank#}1{#/blank#}Then List1.AddItem {#blank#}2{#/blank#}

Next k

End Sub