呵呵，别急，我分很多的，会给你的 但是我也得去跑下程序啊，我没学过vb，谢谢你的帮忙
追答你的分再多能有我的多？这么弄法满版都伺候你一个人了。
追问您是帮我忙，真的很谢谢您，当然不能和您比了 我也是帮人找的答案，哎，我是真不会vb，不然也不好意思来刷屏的
追答HI你了
追问还没给我答案呢
追答Private Sub Command1_Click()
'建立
Dim a%(), i%, n%
n = InputBox("请输入数组元素个数n值")
ReDim a(0 To n - 1)
For i = 0 To n - 1
a(i) = InputBox("请输入第" & i + 1 & "个数值")
Next i
'反序
For i = 0 To (n - 1) / 2
m = a(i)
a(i) = a(n - i - 1)
a(n - i - 1) = m
Next i
'输出
For i = 0 To n - 1
Print a(i)
Next i
End Sub