在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

　　Option Base 1

　　Private Sub Command1_Click()

　　　Dim a(10) As Integer

　　　For i = 1 To 10

　　　　a(i) = i

　　　Next

　　　Call swap（　【13】　　）

　　　For i = 1 To 10

　　　　Print a(i);

　　　Next

　　　End Sub

　　　Sub swap(b() As Integer)

　　　　n =　【14】　

　　　For i = 1 To n / 2

　　　　　 t = b(i)

　　　　　　b(i) = b(n)

　 b(n) = t

　　　　　　【15】　

　　　Next

　　End Sub

　上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。