在窗体上画一个名称为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 T0 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)的值互换。请填空。

CRH系列动车组可在既有线路的指定区段及新建的客运专线上以（）及以上速度级正常运行。