单项选择题
编写如下程序代码:
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,输出结果为________。
A.1 4 9 4 1
B. 4 1 9 25 16
C. 1 4 9 16 25
D. 25 16 9 4 1