和vb有关的题

从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换等。

这个就是一个对数组的值进行逆向换位

如果没有什么特殊要求的话可以这样做

Dim arr(9) As Integer
Dim oldStr As String
Dim newStr As String
Dim i As Integer
Dim t As Integer

For i = 0 To 9
arr(i) = InputBox("请输入一个整数")
oldStr = oldStr & " " & arr(i)
Next i

For i = 0 To 4
t = arr(i)
arr(i) = arr(Abs(i - 9))
arr(Abs(i - 9)) = t
Next i

For i = 0 To 9
newStr = newStr & " " & arr(i)
Next i

Print oldStr & vbCrLf & newStr

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息