请教下这道VB编程题啊！！！

来源：百度知道 编辑：UC知道 时间：2024/05/07 16:14:24
从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素对换，即第1个元素与第10个元素互换，第2个元素与第9个元素互换。。。。。。第5个元素与第6个元素互换。分别输出数组原来各元素的值和对换后各元素的值。

Dim intSource(9) As Integer '未换位的数组
Dim intTarget(9) As Integer '已换位的数组
Dim i As Integer

'使用随机函数给未换位的数组赋值
'程序中你可以使用其他方法赋值
For i = 0 To 9
Randomize
intSource(i) = Int((32767 - 1) * Rnd + 1)
Next i

'开始前后调位
For i = 0 To 9
intTarget(i) = intSource(9 - i)
'输出数组
Debug.Print intSource(i), intTarget(i)
Next i

以上程序在WinXP+VB6.0下测试通过

Private Sub Form_Click()
Dim a(1 To 10) As Integer '定义数组

For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个整数")
Next i

Print "原来的值"
For i = 1 To 10
Print a(i);
Next i

Print
Print "交换后的值"
For i = 10 To 1 Step -1
Print a(i);
Next i
End Sub
我想其实可以不用互换的，把数组的输出顺序倒过来就可以了

Private Sub Form_Click()
Dim a(1 To 10) As Integer, b(1 To 10) As Integer
For i = 1 To 10
a(i) = InputBox("请输入第" & i &