填空题

在窗体上画一个名称为command 1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Colilinand1 Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
call Swap(a)
For i = 1 To 10
Print a(i);
Next
End Sub
Sub Swap(b() As Integer)
n = 【6】
For i = 1 To n/2
t = b(i)
b(i) = b(n)
b(n) = t
【7】
Next
End Sub
上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。