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

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim a(10) As Integer

　　For i=1 To 10

　　a(i)=i

　　Next

　　Call swap （）

　　For i=1 To 10

　　Print a(i);

　　Next

　　End Sub

　　Sub swap(b() As Integer)

　　n=Ubound(b)

　　For i=1 To n / 2

　　t=b(i)

　　b(i)=b(n)

　　b(n)=t

　　（）

　　Next

　　End Sub

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