实现上述功能的VB程序如下，但加框处代码有错，请改正。

  Const n=10

  Private Sub Form_Load()

    ‘排序前数据存储在数组a中，并在文本框Text1中显示

    ‘代码略

  End Sub

  Private Sub Command1_Click()

  Dim i As Integer

  Dim bottom As Integer

  Dim j As Integer

  Dim a(1 To n)As Integer

  i=1

  bottom=n

  Do While i<bottom

    k=i

    j=i+1

      Do While i<=bottom

        If a(j)=a(k)Then

           a(i)=a(bottom)

                    ‘(1)

           bottom=bottom-1

        E1seIf a(j)<a(k) Then

           k=j

        End If

        j=j+1

      Loop

      If    Then      ‘(2)

    t=a(i)

    a(i)=a(k)

    a(k)=t

      End If

      i=i+1

  Loop

 ‘排序后数据存储在数组a中，并在文本框Text2中显示

  End Sub

Dim n As Integer

Dim a(1 To 100) As Integer

’n=10,排序前生成的数据存储在数组a中，并在列表框List1中显示，代码略

Private Sub Command1_Click()

 Dim i As Integer, j As Integer, start As Integer, t As Integer

 i=2

 Do While i < n start=n

  For j=n To i Step-1

   If{#blank#}1{#/blank#}Then

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

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

   End If

  Next j

  i=start+1

 Loop

 For i=1 To n

  List2.AddItem{#blank#}3{#/blank#}  

 Next i

End Sub

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

Const n=10

Dim a(1 To n)As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

Dim k As Integer, bottom As Integer

‘获取排序前数据，依次存储在数组a中，并在文本框Text1中显示。代码略

bottom = n: i = 1

Do While i <= bottom - 1

 k = i: j = bottom

 Do While j > i

  If a(j) < a(k) Then

   k = j

  Elself a(j) = a(i) Then

   a(j) = a(bottom)

   If{#blank#}1{#/blank#}Then k=j

   bottom = bottom - 1

 End If

 j = j - 1

 Loop

 If k <> i Then

  t = a(k): a(k) = a(i): a(i) = t

 Else

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

  End If

Loop

For i = 1 To{#blank#}3{#/blank#}

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

Next i

End Sub

⑴预处理。用数组a存放不同的分值，数组b存放相同分数的人数，数组s存放高于此分数的人数，数组下标表示名次。依次从数据库读取每个学生的成绩(数据库中每个学生的成绩已降序存储，即从高到低排列)，当读入数与前一个数相同时，该名次的人数加1，当读入数与前一个数不同时，名次加1，即数组下标加1，存储当前分数，求高于本分数的人数并存储。

举例：如果数据库中有一组成绩(降序)：95，95，93，93，92，91，90，按上述算法处理，三个数组的最终结果如图所示。

⑵对需要查找的成绩二分查找。读入需要查找的成绩x，在数组a中二分查找成绩，若找到，输出名次、相同分数的人数和高于本分数的人数;若找不到，输出“查无此分”。

程序代码如下，在横线处填入合适的代码。

Dim rank As Integer

Dim a(1 to 1000) As Integer     ‘存放不同的分数值

Dim b(1 to 1000) As Integer     ‘存放相同分数的人数

Dim s(1 to 1000) As Integer     ‘存放高于此分数的人数

rank=0

Private Sub Form_Load()

 Dim conn As New ADODB.Connection

 Dim rs As New ADODB.Recordset

 Dim tmp As Integer, n As Integer

 tmp=-1: n=0

 conn.ConnectionString=“provider=Microsoft.ACE.OLEDB.12.0;data source=“App.Path+”Score.accdb”

 conn.open

 Set rs.ActiveConnection=conn

 rs.open “Select * from score”

 n=0

 Do While Not rs.EOF

   n=n+1

   mark=rs.fields(“成绩”)

   If mark=tmp Then      ‘当前读入分数与上一个分数相同，则对应名次的人数增加1

  b(rank)=b(rank)+1

   Else     ‘当前读入分数与上一个分数不同时

    rank={#blank#}1{#/blank#}    ‘名次增加1

    a(rank)={#blank#}2{#/blank#}   ‘存储当前分数到数组a中

    s(rank)={#blank#}3{#/blank#}   ‘求高于本分数的人数并存储至数组s

    b(rank)=1     ‘将自身统计入同分人数

   End If

     {#blank#}4{#/blank#}   ‘更新上一个分数

  rs.Movenext

 Loop

End Sub

Private Sub Command1_Click()

  Dim x As Integer, low As Integer, high As Integer, mid As Integer

  x=Val(Text1.Text)

  low=1: high=rank

  mid=(low+high)\ 2

  Do While low <=high and {#blank#}5{#/blank#}

    mid=(low+high)\ 2

    If a(mid) < x Then

      high=mid-1

    Else

      low=mid+1

    End If

  Loop

  If a(mid)=x Then

    Label1.Caption=“名次:“+mid+”同分人数:“+b(mid)+”高于此分人数:”+s(mid)

  Else

    Label1.Caption=“查无此分”

  End If

End Sub

 For i = 1 To 2

    For j = 1 To 6 - i

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

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

        End If

     Next j

  Next i Text1.Text = "" For i = 1 To 6

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

数组元素a(1)到a(6)的初值依次为15，11，58，38，26，9，执行该程序段，文本框Text1显示的内容是（  ）

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

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

数组存储为：

具体操作方法如下：

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

数组存储为：

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

数组存储为：

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