如何对一维数组或者二维数组进行排序？

作者：cg1 摘自：access911.net 录入：cg1 时间：2006-1-27 浏览人次：225

专题地址：http://access911.net/index.asp?u1=a&u2=72FAB11E14DCECF3 如果需要更详细的评论或说明，请点击该地址。

简述：如何对一维数组或者二维数组进行排序？《ADO/DAO/ADO.NET》

数组排序可以用冒泡法，也可以用 VBA 集合来实现，我这里用 ADODB.RECORDSET 的 SORT 方法在内存中直接实现。

Function SortArray()
'本函数演示用 ADODB.RECORDSET 来进行数组排序，可以是二维数组，可以是任何 ADO 支持的数据类型
'请引用 ADO

    Dim rs As New ADODB.Recordset
    Dim a(100) As String
    Dim b(100) As Double

    Randomize
    Dim i As Long
    For i = 0 To 100
        b(i) = Format(Rnd * 1000, "0.00")
        a(i) = Chr(Int(Rnd * 26) + 65) & Chr(Int(Rnd * 26) + 65) & Chr(Int(Rnd * 26) + 65)
    Next
    '以上生成了 101 个随机文字和随机数字

    '下面用 a.....................
...........

资料库随时有更新，欲查看最新详情请单击专题地址：http://access911.net/index.asp?u1=a&u2=72FAB11E14DCECF3

上一篇：界面设计时如何对齐控件却不重叠？

下一篇：异步多线程处理 Access MDB 是否会导致锁死问题？是否可以通过增加 IIS 线程，提高对 ACCESS 数据库的访问速度？

2007年12月25日生成静态资料