如何把几个数逆序排列？

显示全部楼层 · 2008-6-10 01:08:40

Private Sub Command1_Click()
Static b As Variant
B=Array(1,3,5,7,9)
……
End sub
如何把数组b中的5个数逆序存放（即排列为9，7，5，3，1）
后面的程序怎么写啊？

千问 · 2008-6-10 01:08:40

Private Sub rank(n As Integer, a() As Long)For i = 1 To n - 1For j = i + 1 To nIf a(j) > a(i) Then t = a(i): a(i) = a(j): a(j) = tNext jNext iEnd Subvoid rank1(int a[],int n){int i,j,t;for (i=0;ia) {t=a;a=a[j];a[j]=t;}};};}优化后的程序：Private Sub r

千问 · 2008-6-10 01:08:40

n=ubound(b)for i = 0 to n\2t=b(i)b(i)=b(n-i)b(n-i)=tnext i

千问 · 2008-6-10 01:08:40

再加一个数组C。for i=lbound(b) to ubound(b)c(ubound(b)-i)=b(i)next i