请教，一维数组元素的交换赋值。VB程序设计，输入十个整数，要求第一个与倒数第一个交换……

Question

如题所述

Answer 1

'有很多方法可以实现，我写了下引入第三个变量交换的办法，
'参考下

Private Sub Command1_Click()
Dim arr(10) As Integer
Dim i, j, x As Integer
Dim a As Integer

Print "数组原始值为："
For i = 1 To 10
arr(i) = i
Print arr(i);
Next i '将1-10赋值给数组

For j = 1 To 4
a = arr(j)
arr(j) = arr(11 - j)
arr(11 - j) = a '引入变量a 将数组前后交换
Next j

Print
Print "交换后数组数值为："
For x = 1 To 10
Print arr(x);
Next x

End Sub

Answer 2

int arr[10] = {1,2,3,4,5,6,7,8,9,10};
for(int i = 0;i < 10 / 2; ++i)
{
int temp = arr[i];
arr[i] = arr[9 - i];
arr[9 - i] = temp;
}