Question

vb高手请进！！！！！！急！！！！

从键盘上输入10个整数,并放入一个一维数组中,然后将其前5个元素与后3个元素对换，即第一个与第十个对换。。。。第五个与第六个对换，分别输出数组原来元素的值和兑换后的值
我写了下面的程序，明明我觉得没有下标越界，但是系统老是提示下标越界。。。。请给我指明一下。。。非常感谢
Private Sub Command2_Click()
Static n(1 To 10)
For i = 1 To 10
n(i) = InputBox("请输入")
Dim m(1 To 10)
t = 11 - i
m(i) = n(t)
Next i
Print n(i)
Print m(i)
End Sub

Answer 1

1、越界的原因是循环的最后是i=10，再经过next i,i就变成11了，但是根本没有n(11)和m（11），所以就越界了。
2、就算不越界，你这样打印也不能把全部的数都打印出来...
3、我帮你写了一个能实现的程序：
Option Base 1
Private Sub Command1_Click()
Dim n(10) As Integer
For i = 1 To 10
n(i) = InputBox("请输入")
'把原来的元素打印出来
Print n(i);
Next i
'元素两两对换
For i = 1 To 5
temp = n(i)
n(i) = n(11 - i)
n(11 - i) = temp
Next i
'换行
Print
For i = 1 To 10
'把对换后的元素打印出来
Print n(i);
Next i
End Sub

Answer 2

Next i
Print n(i)
Print m(i)
循环结束后，i的值已经是11了，然后再 Print n(i)，Print m(i)，不就是输出n(11),m(11)了，这样就越界了！估计你的意思应该把这两个输出语句放循环里面才对吧!