编写如下程序代码：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); NextEnd SubPublic 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 NextEnd Sub程序运行后，单击命令按钮Command1，输出结果为( )。