自定义数据类型数组排序例程

此演示程序采用多级排序的方式对数据进行排序：先按产地进行排序，产地相同的再按类别进行排序，类别相同的再按售价排序。

起始时间 ＝ 取启动时间 ()
根据产地排序 (集商品们) ' 先根据产地排序
' 以下代码按产地分块根据类型进行排序
产地 ＝ 集商品们 [1].产地
起始 ＝ 1
.计次循环首 (取数组成员数 (集商品们), i)
.如果真 (集商品们 [i].产地 ≠ 产地) ' 根据产地分块
终止 ＝ i － 1
根据类别排序 (集商品们, 起始, 终止) ' 按类别排序
产地 ＝ 集商品们 [i].产地
起始 ＝ i
.如果真结束

.计次循环尾 ()
根据类别排序 (集商品们, 起始, 1000)
' 以下代码按类别分块根据售价进行排序
类别 ＝ 集商品们 [1].类别
起始 ＝ 1
.计次循环首 (取数组成员数 (集商品们), i)
.如果真 (集商品们 [i].类别 ≠ 类别) ' 根据类别分块
终止 ＝ i － 1
根据售价排序 (集商品们, 起始, 终止) ' 按售价排序
类别 ＝ 集商品们 [i].类别
起始 ＝ i
.如果真结束

.计次循环尾 ()
根据售价排序 (集商品们, 起始, 1000)
信息框 (“排序所花时间：” ＋ 到文本 (取启动时间 () － 起始时间) ＋ “毫秒。”, 0, )