小诗收集了全市部分教职员工的工资数据，设计了找中位数的程序如下。小诗收集的人员工资数据放在了Access数据库中。小诗的程序在窗体加载时读出了所有人员的数据：姓名放在数组a中，对应的工资放在数组b中，数据总记录数放在n中。单击按钮Command1后先以工资按非升的次序排序，然后找出中位数。

Dim a(1 To 1000) As String

Dim b(1 To 1000) As Single

Dim n As Integer

‘数据库读取所有人员的数据代码略

Private Sub Command1_Click()

Dim i As Integer , j As Integer , k As Integer

Dim tmp1 As Single, tmp2  As String

Dim median As Single

For i = n To 2 step -1

k = i

For j = i-1 To 1 step -1

If  Then

k = j

End If

Next j

If k <> i Then

tmp1 = b(k): b(k) = b(i): b(i) = tmp1

tmp2 = a(k): a(k) = a(i): a(i) = tmp2

End If

Next i

For i = 1 To n

List1.AddItem Str(i) & " " & a(i) & " " & Str(b(i))

Next i

If n Mod 2 = 0 Then

median =                 

Else

median = b(n\2+1)

End If

Label1.Caption = "中位数是：" & Str(median)

End Sub

Dim a(1 To 6) As Integer

a(1) = 33: a(2) = 24: a(3) = 45: a(4) = 16: a(5) = 77: a(6) = 8 For i = 1 To 3

    For j = 5 To i + 1 Step -1

        If a(j - 1) > a(j) Then t = a(j - 1): a(j - 1) = a(j): a(j) = t

    Next j

    If j Mod 2 = 0 Then i = i + 1 Next i

执行该程序段后，a(1)到 a(6)分别为 （  ）

实现以上功能的VB程序如下,在横处填入合适的代码。

Dim a(1 To 20) As Integer     ‘存储区间的左端点数值

Dim b(1 To 20) As Integer     ‘存储区间的右端点数值

Private Sub Form_Load()

‘将区间左端点存入数组a,区间右端点存入数组b,并在列表框List1显示,代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim curL As Integer, curR As Integer

For i=1 To n-1

 For j=1 To n-i

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

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

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

  End If

 Next j

Next i

curL=a(1): curR=b(1)

For i=2 To n

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

  If curR < b(i) Then{#blank#}3{#/blank#}

 Else

  List2.AddItem“["+Str(curL)+Str(curR)+"]”

  curL=a(i): curR=b(i)

 End If

Next i

List2. AddItem “[”+Str(curL)+Str(curR)+“]”

End Sub