Question

大佬们这个VB问题怎么解决？？？？？？

编写程序，实现从键盘输入10个100至200间的整数（非此区间的数要求重新输入），放入一个一维数组，然后将前5个元素与后5个元素对换，即将第1个元素与第10个元素互换，将第2个元素与第9个元素互换，依此类推，界面自行设计。。

Answer 1

Private Sub Command1_Click()
Dim a(10) As Integer, x As Integer
Print "初始的10个元素是："
For i = 1 To 10
x = InputBox("请输入（值在100~200之间的）第 " & i & " 个元素：")
If x >= 100 And x <= 200 Then
a(i) = x: Print x;
Else
i = i - 1
MsgBox ("不在范围内，请重新输入！")
End If
Next i
For i = 1 To 5
t = a(i)
a(i) = a(11 - i)
a(11 - i) = t
Next i
Print
Print "交换以后的数组是："
For i = 1 To 10
Print a(i);
Next i
End Sub

Answer 2

怎么解决？？