按指定格式录入数据，例：0373,张乐晓,3.90。编号宽度固定为4位，姓名宽度固定为3个汉字，不足部分以全角空格补齐，第9个字符开始为跳远成绩。

 在文本框按回车表示录入一项数据结束，录入的数据经处理后编号、姓名、成绩分别存放在数组编号bh、xm、cj中并将原始数据显示在List1中。

 点击命令按钮Command1后进行排序并将排序后的结果显示在List2中。

 程序运行界面如图所示。

For i=1 to 3

    For j=1 to 5-i

        If a(j)>a(j+1) Then

            t=a(j)  :  a(j)=a(j+1)  :  a(j+1)=t

        End If

    Next j

    Text1.Text = Text1.Text + Str(a(i))

Next i

数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。若该程序段执行后，文本框Text1显示的内容是（  ）

  For i=1 To 3

    For j=6 To i+1 Step-1

        If a(i)<a(j) Then

          T=a(i)：a(i)=a(i)：a(i)=t

        End If

    Next j

  Next i

数组元素a(1)到a(6)的值依次为“28，3，15，1，35，7”，执行该程序段，下列说法正确的是 （  ）

For i = 2 To 4

j = i: flag = False

Do While j >= 2 And Not flag If a(j) < a(j - 1) Then

t = a(j): a(j) = a(j - 1): a(j - 1) = t flag = True

End If j = j - 1

Loop Next i

数组元素a(1)到a(7)的初值依次为“8,2,7,10,6,9,5,3”，则程序运行后，元素a(1)到a(7)的值依次为（  ）

假如我们用数组表示上述大根堆：

现有一算法把一个无序数组改造成大根堆。例如：我们在上图的大根堆中再增加一个值为8的新元素，如下图所示。

数组存储为：

具体操作方法如下：

第一步：因为a(10)大于它的双亲结点a(5)，故需交换a(10)和a(5)的值；

数组存储为：

第二步：因为a(5)大于它的双亲结点a(2)，故需交换a(5)和a(2)(t)值；

数组存储为：

第3步：因为a(2)不大于它的双亲结点a(1)，故无需做交换操作。此时新元素已经放到了正确的位置，新的大根堆构造完成，上移行动结束。

实现上述功能的VB代码如下，请在横线处填入合适代码。

Dim n As Integer          '存储随机数的个数

Dim f(1To100)As Boolean

'f(i)为True时表示随机整数i已经产生过

Dim a(1 To 100)As Integer

'依次存放升序排序后的n个随机数

Private Sub Command1_Click()

'命令按钮“产生随机数并升序排列”的单击事件

    Dim i As Integer

    Randomize

    For i=1 To 100

        f(i)=False

    Next i

    n=Val(Text1. Text)

    For i=1 To n

        t=Int(Rnd * 100+1)

        Do While f(t)=True

            t=Int(Rnd * 100+1)

        Loop

        {#blank#}1{#/blank#}

    Next i

    j=0

    For i=1 To 100        '实现排序并输出

        If f(i)=True Then

            {#blank#}2{#/blank#}

            a(j)=i

            List1.AddItem Str(i)

        End If

    Next i

End Sub

Private Sub Command2_Click()

'命令按钮“查找”的单击事件

    Dim key As Integer

    key=Val(Text2. Text)

    If key <=a(1) Then Label3. Caption=Str(a(1)): Exit Sub

    If key >=a(n) Then Label3. Caption=Str(a( n)): Exit Sub

    L=1: R=n

    Do While L<=R                '找到与 key 较为接近的两个数a(R)和a(L)

        m=(L+R)\2

        If key<=a(m)Then

            R=m-1

        Else

            L=m+1

        End If

    Loop

    If {#blank#}3{#/blank#}Then

    '在a(R)和 a(L)中选出更接近key的数

        Label3. Caption=Str(a(R))

    Else

        Label3. Caption=Str(a L))

    End If

End Sub