Function search(key As Integer)As String

    Dim pos As Integer，i As Integer，j As Integer

    Dim nc As String

    i=1：j=6：nc=“”

    Do While i<=j

        m=Int((i+j)／2)

        nc=nc+Str(m)

        If d(m)=key Then

            Exit Do        ‘Exit Do表示退出Do While循环

        ElseIf key<d(m)Then

             j=m-1

        Else

             i=m+1

    End If

      Loop

      search=nc

    End Function

数组元素d(1)到d(6)的值依次为“23，34，45，65，78，98”，则下列说法正确的是 （  ）

Private Sub Command1_Click()

Dim data(1 To 100) As Integer

For i = 1 To 100

    data(i) = Int(Rnd * 1000)

Next

num = Val(Text1.Text)

For i = 1 To 100

    If data(i) = num Then Exit For

Next

If i <= 100 Then

    MsgBox "找到该数，是第" & i & "个数"

Else

    MsgBox "该数不在数组中"

End If

End Sub

方框中的程序算法是：（   ）

a(l) = 5: a(2) = 16: a(3) = 22: a(4) = 28: a(5) = 35

a(6) = 43: a(7) = 52: a(8) = 67: a(9) = 78: a(10) = 89

i = 1: j = 10: n = 0: flag = True

Key = Val(Textl. Text)

Do While i <= j And flag = True

  m = (i + j) \ 2

  If a(m) = Key Then

    flag = False

  Elself a(m) < Key Then

    i = m + 1

    n = n - 1

  Else

    j = m - 1

    n = n + 1

  End If

Loop

变量n的值最终为0，则文本框Text1输入的数值范围可能是（  ）

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

t=“”: i=0 : j=9 : key=62: f=False

Do While i<=j And Not f

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

    t=t+Str(rn)

    If a(m)=key Then

        f=True

    Elself a(m) > key Then

         i=m+1

         t=t+“→”

    Else

        j=m-1

        t=t+“←”

    End If

Loop

数组元素a⑹到a⑼的值依次为“99, 94, 90, 87, 78, 70, 63, 56, 45, 36”,执行该程序段，t的值是（  ）

程序界面如图所示，在文本框Text_1中输入原始字符串，在文本框Text_2中输入需要删除的字符，单击“删除此字符”按钮(Command1)后，在文本框Text_3中输出处理后的结果。

解决此问题的算法流程图如图所示，相应的Visual Basic程序如下：

Dim p As String,k As String

Private Sub Command1_Click()

Dim s As Integer,result As String,flag As Boolean

result=“”

p=Text_1.Text

k=Text_2.Text

For s=1 To Len(p)

  flag=f(s)

  If Not flag Then

   result=result+①   

  End If

Next s

②   

End Sub

Function f(s As Integer)As Boolean

  If Mid(p,s,1)=k Then f=True

End Function