vb数组中颠倒数字顺序

Question

当点击“输入数据”按钮的时候，程序通过随机函数生成10个1~100的正整数，放入一个数组中，并将这10个数显示在窗体上；当点击“颠倒顺序”按钮的时候，程序将数组中的元素颠倒顺序（即第一个元素中的数据和第十个元素中的数据交换，第二个和第九个交换，…），并将最终结果显示在窗体上。

给出颠倒顺序这部分的代码就ok 尽量简单点 速求

Answer 1

for i = 0 to 4
temp = A( 10 - i ) 'A( 10 - i ) 赋给中间变量 temp
A( 10 - i ) = A( 1 + i ) 'A( 10 - i ) 等于 A( 1 + i )
A( 1 + i ) = temp ' A( 1 + i ) 等于中间变量 temp
next

Answer 2

'只有在窗体上忝加label两个，command两个即可，代码如下：
Dim a(1 To 10) As Integer
Private Sub Command1_Click() '重置
Form_Load
End Sub

Private Sub Command2_Click() '倒排
For i = 10 To 1 Step -1
p = p & a(i) & ","
Next
Label2.Caption = LTrim(Left(p, Len(p) - 1))
End Sub

Private Sub Form_Load() '生成数字
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
p = p & a(i) & ","
Next
Label1.Caption = LTrim(Left(p, Len(p) - 1))
End Sub

Answer 3

for i=0 to 4
k=9 mod i
temp=a(i):a(i)=a(k):a(k)=temp
next i

假定Lbound(a)=0