Question

用vb编写程序，将一个一维数组反序后输出

Answer 1

先把那几个帖子结了再说吧

追问

呵呵，别急，我分很多的，会给你的 但是我也得去跑下程序啊，我没学过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