请根据算法将下列程序补充完整。

Dim a(1 To 45) As String

Dim b(1 To 45) As Integer

Private Sub FormLoad()

  a(1) = "中国"

  b(1) = 308 ‘45个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中

End Sub

Private Sub Command1Click()

Dim i As Integer,j As Integer

Dim t As Integer,f As Integer

List1.Clear

 For i = 1 To 3

   For j = {#blank#}1{#/blank#}To 2 Step -1

    If {#blank#}2{#/blank#}Then

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

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

   End If

   Next j

 Next i

For i = 1 To 3

 List1.AddItem "第" + Str(i) + "名" + a(i) + "  奖牌数" + Str(b(i))

Next i

End Sub

VB应用程序界面如上图所示，在文本框text1中输入查询的日期（以月日形式，如0623），单击“查询”按钮，在列表框中显示所有这个日子出生的员工姓名（按姓名排序），并在Label3处显示员工数量，如果人数为0，则在列表框中显示“本天没有员工生日”。

解决此问题的VB程序如下，阅读程序并完成后面的问题。

‘定义存放员工姓名的数组na

Private Sub CmsqClick()

  Dim n As Integer , i As Integer , j As Integer

  Dim t1 As String

  ‘连接数据库获取数据

  Dim cn As new connection

  Dim rs As new recordest

  Dim str1 As String , str2 As String

     str1 =”driver=Microsoft access driver(*.mdb)”；dbq=”&app.path”&”员工信息.mdb”

     cn.open str1

     str2 = “select * form members where 生日 ＝’“ + text1.text + ”’”

     rs.open str2 ， cn.adOpenDynamic ，adLockOptimistic

     n = 0

     Do While Not Rs.EOF

       n = n + 1

       na(i) = rs.Fields(“姓名”).value

       rs.MoveNext

     Loop 

     rs.close

     cn.close

‘按姓名排序

If n = 0 Then

  List1.AddItem “本天没有员工生日”

Else

  For i = 1 to n-1

    For j = 1 to n+1 Step -1

      If na(j) < na(j-1) Then

        t1 = na(j) :     ①      : na(j-1) = t1

      End If

    Next j

   Next i

   For i = 1 to n

     List1.AddItem     ②   

   Next i

   Label3.Caption = “这天共” + Str(n) + “位员工生日”

  End If

End Sub

①检查产生号码是否重复：把产生的中奖号码放在数组a中，新产生的号码与已经产生的号码进行一一对比，如果找到相等的数，则重新产生新号码。

②找到新产生号码存放的数组下标：从下标为1的数组元素开始，新号码（第i个号码）分别与他们进行一一比较，找到第一个比新号码大的数，该数所在的下标就是新号码应存放的下标。如果在已经产生的数中没有找到比新号码大的数，则新号码应存放在下标为i的数组元素中。下表以产生第5个号码为例，如果产生的号码是130，第一个比他大的数是a(2)，下标为2的数组元素应存放新号码；如果产生的号码是300，则新号码应存放在下标为5的数组元素中。

③移动数组元素到新的位置：如果在已经产生的号码中找到比新号码大的数，从上一个产生的号码开始，到新号码应存放的数组元素，依次把他们向后面移动。以②中产生130为例，从a(4)开始，让a(5)的值等于a(4)，a(4)的值等于a(3)，依次类推，直到新号码应存放的数组元素a(2)为止。

④将新产生的号码放在相应的数组元素中。

程序运行的界面如下图所示，实现上述功能的VB程序代码如下：

Dim a(10) As Single

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim temp As Single, k As Integer   'temp产生随机数，k随机数存放数组元素的下标

Randomize

a(1) = Int(Rnd() * 900 + 100)

For i = 2 To 10

  temp = Int(Rnd() * 900 + 100)

  If seach(temp, i - 1) = True Then

    i = i - 1

  Else

k = i

    For j = 1 To i - 1

        If  temp < a(i)  Then k = j: Exit For   ‘①

    Next j

    For j = i - 1 To k Step -1

      a(j + 1) = a(j)

    Next j

         ②    

  End If

Next i

List1.Clear

For i = 1 To 10

  List1.AddItem Str(a(i))

Next i

End Sub

‘函数实现在数组a中，从下标为1的数组元素到下标为t数组元素，查找有无s的数值

Function seach(s  As Single, t As Integer) As Boolean

Dim i As Integer

seach = False

For i = 1 To t

  If     ③    Then seach = True: Exit For

Next i

End Function

b(0)=0

For i=1 To 6

 k=i

 For j=i+1 To 7

  If a(k) > a(j) Then k=j

 Next j

 If i <> k Then t=a(k): a(k)=a(i): a(i)=t

 If a(i) <> a(i-1) Then

  b(i)=i

 Else

  b(i)=b(i-1)

 End If

Next i

若数组元素a(1)到a(7)的值依次为“6,7,6,3,9,2,3”，则经过上述程序加工后，b(5)的值是（  ）

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

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

数组存储为：

具体操作方法如下：

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

数组存储为：

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

数组存储为：

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