[填空题] 设有一个有10个元素的数组，下列程序将该数组的第1个元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素交换，请填空。 Private Sub Command1

[填空题] 设有一个有10个元素的数组，下列程序将该数组的第1个元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素交换，请填空。

Private Sub Command1_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

t=a(j)

______

______

Next j

For i=1 To 10

Print a(i)

Next i

End Sub