请VB高手解答~THX

来源：百度知道 编辑：UC知道 时间：2024/05/27 05:01:07
键盘上输入10个整数，并放入一个一堆数组中，然后将其前5个元素与后面5个元素对换，即：第一个元素与第十个元素互换，第二个元素与第九个元素互换，…，第五个元素与第六个元素互换。分别输出数组原来的各元素的值和对换后各元素的值

在模块里添加:
Dim a(1 To 10) As Integer, b(1 To 10) As Integer
Sub main()
For i = 1 to 10
a(i) = Inputbox ("输入第" & i & "个数")
b(i) = a(i)
Next
For i = 1 to 5
a(i) = a(i) + a(11 - i)
a(11 - i) = a(i) - a(11 - i)
a(i) = a(11 - i) - a(i)
Next
For i = 1 to 10
Msgbox "原来第" & i & "个数是：" & b(i) & vbCrlf & "现在第" & i & "个数是：" & a(i)
Next
End Sub