博客
关于我
数组排序系列(8)
阅读量:285 次
发布时间:2019-03-03

本文共 1060 字,大约阅读时间需要 3 分钟。

Sortedlist排序法

'System.Collections.Sortedlist’对象的所有元素自动进行排序。

Sub SortedList()    Dim aintData(1 To 10) As Variant    Dim i As Integer    Dim intLB As Integer    Dim intUB As Integer    Dim avntData(1 To 10) As Variant    Dim objSortedList As Object    intLB = LBound(aintData)    intUB = UBound(aintData)    For i = intLB To intUB        aintData(i) = Application.WorksheetFunction.RandBetween(1, 100)    Next i    Debug.Print "Original Data: " & Join(aintData, ",")    Set objSortedList = CreateObject("System.Collections.Sortedlist")    For i = intLB To intUB        objSortedList.Add aintData(i), aintData(i)    Next i    For i = intLB To intUB        avntData(i) = objSortedList.getkey(i - 1)    Next i    Debug.Print "After Sort: " & Join(avntData, ",")End Sub

运行代码结果如下。

Original Data: 72,8,53,2,38,51,39,63,77,33

After Sort: 2,8,33,38,39,51,53,63,72,77

代码解析:

第14行代码创建’System.Collections.Sortedlist’对象实例。
第15行到第17行代码将数组元素添加的Sortedlist,添加过程中Sortedlist对象自动对所有元素进行排序。


此示例代码实现的是升序排序,如需使用降序,那么只需要修改第19行代码如下。

avntData(i) = objSortedList.getkey(intUB - i)

相关文章链接:

转载地址:http://fbjl.baihongyu.com/

你可能感兴趣的文章
Mysql中索引的分类、增删改查与存储引擎对应关系
查看>>
Mysql中索引的最左前缀原则图文剖析(全)
查看>>
MySql中给视图添加注释怎么添加_默认不支持_可以这样取巧---MySql工作笔记002
查看>>
Mysql中获取所有表名以及表名带时间字符串使用BetweenAnd筛选区间范围
查看>>
Mysql中视图的使用以及常见运算符的使用示例和优先级
查看>>
Mysql中触发器的使用示例
查看>>
Mysql中设置只允许指定ip能连接访问(可视化工具的方式)
查看>>
mysql中还有窗口函数?这是什么东西?
查看>>
mysql中间件
查看>>
MYSQL中频繁的乱码问题终极解决
查看>>
MySQL为Null会导致5个问题,个个致命!
查看>>
MySQL为什么不建议使用delete删除数据?
查看>>
MySQL主从、环境搭建、主从配制
查看>>
Mysql主从不同步
查看>>
mysql主从同步及清除信息
查看>>
MySQL主从同步相关-主从多久的延迟?
查看>>
mysql主从同步配置方法和原理
查看>>
mysql主从复制 master和slave配置的参数大全
查看>>
MySQL主从复制几个重要的启动选项
查看>>
MySQL主从复制及排错
查看>>