Question

VB数组元素交换

从键盘输入10个整数，存在一个一维数组中，然后将前五个元素与后五个元素交换，即是：第一个与第十个交换，第二个与第九个交换……
且分别输出交换前和交换后的值。谢谢大家帮忙了

Answer 1

下面是交换代码，A是数组，
Dim A(10) AS Long
Dim I as Long
Dim N as Long

For I=1 to 10

A(I)=Input("请输入整数")

Next I

For I=1 to 5
N=A(11-I)
A(11-I)=A(I)
A(I)=N
Next I

Answer 2

Dim mArr(10) AS integer
Dim I%,n%,k%
For I=1 to 10
marr(I)=Input("请输入整数")
Next I
print join(marr,", ")
For k=1 to 5
N=A(11-i)
A(11-i)=A(i)
A(i)=N
Next k
print join(marr,", ")