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

本文共 1122 字,大约阅读时间需要 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/

你可能感兴趣的文章
Objective-C实现异步编程(附完整源码)
查看>>
Objective-C实现循环队列算法(附完整源码)
查看>>
Objective-C实现循环队列链表算法(附完整源码)
查看>>
Objective-C实现快速排序算法(附完整源码)
查看>>
Objective-C实现打印魔方矩阵(附完整源码)
查看>>
Objective-C实现打格点算法(附完整源码)
查看>>
Objective-C实现批量修改文件类型算法(附完整源码)
查看>>
Objective-C实现找出一个数的质因数primeFactors算法(附完整源码)
查看>>
Objective-C实现找出买卖股票的最大利润算法(附完整源码)
查看>>
Objective-C实现摄氏温度和华氏温度互转(附完整源码)
查看>>
Objective-C实现操作MySQL(附完整源码)
查看>>
Objective-C实现改变图片亮度算法(附完整源码)
查看>>
Objective-C实现数字图像处理算法(附完整源码)
查看>>
Objective-C实现数组去重(附完整源码)
查看>>
Objective-C实现数组的循环左移(附完整源码)
查看>>
Objective-C实现数除以二divideByTwo算法(附完整源码)
查看>>
Objective-C实现文件分割(附完整源码)
查看>>
Objective-C实现文件的删除、复制与重命名操作实例(附完整源码)
查看>>
Objective-C实现无锁链表(附完整源码)
查看>>
Objective-C实现时间戳转为年月日时分秒(附完整源码)
查看>>