vb 如何颠倒数组中的数字

你可以使用Arraylist数组类，这个数组类存放元素可以动态添加和删除．而且可以存放任何类型的数据！
dim arr as New ArrayList() ’将变量arr定义为Arraylist类

以下是该类的常用方法：
arr.add() ’将括号内的数据添加到数组的末尾
arr.count '返回数组元素的总数目
arr.item（） ’设定或取得由索引所指的数组元素内容
arr.sort() ’将数组内所有元素以递增方式排序
arr.Reverse（） ’将数组类中的所有元素反转（颠倒顺序），配合sort方法可以实现降序排列
arr.insert(索引值，数据) ’在数组指定索引值的位置插入数据
arr.clear（） '清除所有数组元素
arr.indexof（） ’返回数组中第一个符合指定对象的索引值，未找到返回负值
arr.binaryserach（） ’在数组中寻找指定对象，找到返回该对象的索引，否则返回负值；此方法使用前，必须先将数组作升序排列．

以上VB2005版本适用

a=len(text1.text)
for i=a to 1 step -1
text2.text=text2.text & mid(text1.text,i,1)
end for

下次分给多点~
Dim m(1 To 10) As Integer
Private Sub btnInput_Click() '产生数组
Dim A As Integer
For i = 1 To 10
Do
ats = 0
A = Rnd * 99 + 1
For J = 1 To i
If A = m(J) Then
ats = 1
End If
Next J
Loop While ats = 1
m(i) = A
Me.Print m(i);
Next i
Me.Print
End Sub

Private Sub btnReverse_Click() '倒置数组
For i = 1 To 5
swap m(i), m(11 - i)
Next i
For i = 1 To 10
Print m(i);
Next i
Print
End Sub

Private Function swap(ByRef A As Variant, ByRef B As Variant)
Dim C As Variant
C = A
A = B
B = C
End Function

Private Sub Form_Load()
btnInput.Caption = "输入数据"
btnReverse.Caption = "颠倒顺序"
End Sub