Question

vb 从键盘上输入10个整数,并放入一个一位数组中,然后将其前5个元素与后5个元素对换

第一个和第十个对换，第二个和第九个，以此类推分别输出各元素原来的值和现在的值。我写的程序是这样的：
Private Sub Command1_Click()
Dim a() As Integer
Dim i As Integer
a(i) = InputBox("请输入数字:", "number exchange")
ReDim a(1 To 10)
For i = 1 To 10
Print a(i)
Next i
Print
For i = 1 To 10
a(i) = a(11 - i)
Print a(i)
Next i
End Sub
这样说下标越界，这是什么意思？如果错了的话应该怎么改？

Answer 1

你这样做是无法实现该功能的 因为你这样只能键入一次a的值
Private Sub Command1_Click()

Dim i As Integer
Dim a(10) As Integer

For i = 1 To 10
a(i) = InputBox("请输入数字:", "number exchange")
Print a(i)
Next i
Print
For i = 1 To 10

Print a(11 - i)
Next i
End Sub
我简化并修改了一下 这样就能实现了

追问

就是如果我想键入多次的话就得调用for循环么？还有别的办法么？

追答

可以用 do loop 语句
Private Sub Command1_Click()

Dim i As Integer
i = 1
Dim a(10) As Integer
Do While i <= 10
a(i) = InputBox("请输入数字:", "number exchange")
Print a(i)
i = i + 1
Loop

Print
For i = 1 To 10

Print a(11 - i)
Next i
End Sub

Answer 2

a(i) = InputBox("请输入数字:", "number exchange")
i为空值，所以数组越界。而且全过程数组无赋值。

For i = 1 To 10
a(i) = InputBox("请输入数字:", "number exchange")
试试

Answer 3

请问 a(i) = InputBox("请输入数字:", "number exchange") 中输入的数字是什么?

你可以用两个数组来实现呀