编写如下程序代码：
Private Sub Command1_Click()
   Const n = 5
   Dim arrx(n) As Integer
   For i = 1 To 5
      arrx(i) = i * i
   Next i
   Call swap(arrx(), n)
   For i = 1 To n
      Print arrx(i);
   Next
End Sub
 
Public Sub swap(a() As Integer, k As Integer)
   For i = 1 To k / 2
      t = a(i)
      a(i) = a(k - i + 1)
      a(k - i + 1) = t
   Next
End Sub
程序运行后，单击命令按钮Command1，输出结果为________。