Question

VB编程：键盘上输入10个整数，放入一个一维数组中，然后将其5个元素与后5个元素对换，即：第一个元素与第

VB编程：键盘上输入10个整数，放入一个一维数组中，然后将其5个元素与后5个元素对换，即：第一个元素与第十个元素互换，第二个元素与第九个元素互换，... ，第五个元素与第六个元素互换。分别输出数组原来的各元素的值和对换后各元素的值。

高手们给我代码啊，谢谢！！

Answer 1

Option Explicit
Dim arr(100) As Integer
Dim arr1(100) As Integer
Dim i As Integer

Private Sub Command1_Click()
For i = 1 To 10
arr(i) = Val(InputBox("请输入您需要的数字："))
Next i
For i = 1 To 10
arr1(11 - i) = arr(i)
Next i
For i = 1 To 10
Print arr(i);
Next i
Print
For i = 1 To 10
Print arr1(i);
Next i
End Sub