设有一个10个元素的数组 下列程序将该数组的第一个元素与第十个元素交换 第二个元素与第九个元素

设有一个10个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换……，第五个元素与第六个元素交换，请补充完该程序。

Private Sub Commnd1_Click()

Dim a(1 To 10)As Integer

Dim i As Integer

Dim p As Integer

Dim t As Integer

Dim j As Integer

For i=1 To 10

a(i)=i

Next i

For j=1 To 5

【 】

【 】

【 】

Next j

For i=1 To 10

Print a(i)

Next i

End Sub

请帮忙给出正确答案和分析，谢谢！