动态数组的应用

研究问题：实现文字倒序
Dim a()  '声明一动态数组
Private Sub Command1_Click()
   Dim n as integer
   Dim wz as String
     wz=Text1.text
     n=Len(wz)   '取字符串wz的长度
   Redim a(1 to n) '指定数组的大小
   For i=1 to n
     a(i)=Mid(wz,i,1) '取字符串wz中的各个字符赋值给数组
   Next
   For i=n to 1 step-1
     Text2.text=Text2.Text & a(i)
   Next
End sub