vb题，从键盘上输入10个整数，并放入一个一维数组，将其前5个元素和后5个元素对换，即第一个与第十个，第二

Private Sub Command1_Click()
Dim A(10) As Long, I As Long
For I = 1 To 10
A(I) = InputBox("请输入第" & I & "个数据", "提示", "")
Print A(I),
Next
Print
For I = 1 To 5 '5是因为元素个数\2
A(0) = A(I)
A(I) = A(11 - I) '11是元素个数+1
A(11 - I) = A(0)
Next
For I = 1 To 10
Print A(I),
Next
End Sub

C语言的方法，供参考
int iArryA[10] = {0};
int iArryB[10] = {0};
for(int i=0;i<10;i++)
{
scanf("%d",&iArryA[i]);
iArryB[i] = iArryA[i];
}
int iTemp = 0;
for(int i=0;i<5;i++)
{
iTemp = iArryB[i];
iArryB[i] = iArryB[9-i];
iArryB[9-i] = iTemp;
}