一道vb编程题(急)

也就是逆序存放嘛~
dim a(9) as variant
dim i as integer
i=0:j=9
while i<j
t=a(j)
a(i)=a(j)
a(j)=t
i=i+1:j=j-1
wend
去试试

T=A(Ubound(A))
For i=UBound(A) to Lbound(A)+1 Step -1
A(i)=A(i-1)
Next
A(Lbound(A))=T

t=a(10)
for i = 10 to 1 step -1
a(i)=a(i-1)
next i
a(0)=t

tmp = arr(1)
For nX = 2 To 10
arr(nX - 1) = arr(nX)
Next
arr(10) = tmp