困扰我很久的数据排序,一直找不到解决办法

一组基数，0，1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16，17，18，19，20，21，22，23，24，25，26，27
一组数据（20个）
(23:55,10)
(23:50,11)
(23:45,12)
(23:40,24)
(23:35,06)
(23:30,07)
(23:25,10)
(23:20,12)
(23:15,11)
(23:10,18)
(23:05,03)
(23:00,22)
(22:55,14)
(22:50,14)
(22:45,20)
(22:40,14)
(22:35,15)
(22:30,13)
(22:25,06)
(22:20,17)   



这组数据前面为时间，后面是数值
对这组数据后面的数值除以6得出余数，然后按余数的出现次数进行排列，出现次数相同的时间靠后的排在前，最终目的是要取出排列最前的5个余数对应的基数
如：这组数后面的数值除以6以后得到的数据为   
(23:55,4)
(23:50,5)
(23:45,0)
(23:40,0)
(23:35,0)
(23:30,1)
(23:25,4)
(23:20,0)
(23:15,5)
(23:10,0)
(23:05,3)
(23:00,4)
(22:55,2)
(22:50,2)
(22:45,2)
(22:40,2)
(22:35,3)
(22:30,1)
(22:25,0)
(22:20,2)   

6个余数出现的次数分别为
除6余0  6次
除6余1  2次
除6余2  5次
除6余3  2次
除6余4  3次
除6余5  2次  

除6余1、除6余3和除6余5都出现2次，除6余5出现的时间比除6余1后、除6余1又比除6余3出现后，所以这6个余数的排列为 0，2，4，5，1，3

最后要取出的基数为前5个余数对应的号码，分别为0，1，2，4，5，6，7，8，10，11，12，13，14，16，17，18，19，20，22，23，24，25，26 共23个

xlfy909

最后要取出的基数为前5个余数对应的号码，分别为0，1，2，4，5，6，7，8，10，11，12，13，14，16，17，18，19，20，22，23，24，25，26 共23个

最后一步没看懂是什么意思。



.版本 2

.程序集 窗口程序集1
.程序集变量 基数, 整数型, , "0"
.程序集变量 数据, 文本型, , "0"

.子程序 __启动窗口_创建完毕

基数 ＝ { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27 }
数据 ＝ { “23:55,10”, “23:50,11”, “23:45,12”, “23:40,24”, “23:35,06”, “23:30,07”, “23:25,10”, “23:20,12”, “23:15,11”, “23:10,18”, “23:05,03”, “23:00,22”, “22:55,14”, “22:50,14”, “22:45,20”, “22:40,14”, “22:35,15”, “22:30,13”, “22:25,06”, “22:20,17” }


.子程序 _按钮1_被单击
.局部变量 文本数据1, 文本型, , "0"
.局部变量 文本数据2, 文本型, , "20"
.局部变量 文本数据3, 文本型, , "0"
.局部变量 计次, 整数型, , "6"
.局部变量 计次1, 文本型, , "6"
.局部变量 n1, 整数型
.局部变量 n2, 整数型

.计次循环首 (取数组成员数 (数据), n1)  ' 数据转换
    文本数据1 ＝ 分割文本 (数据 [n1], “,”, )
    文本数据2 [n1] ＝ 文本替换 (文本数据1 [1], 3, 1, “.”) ＋ “,” ＋ 到文本 (到数值 (文本数据1 [2]) ％ 6)
    ' 调试输出 (文本数据2 [n1])
.计次循环尾 ()
.计次循环首 (取数组成员数 (文本数据2), n1)  ' 计次
    文本数据1 ＝ 分割文本 (文本数据2 [n1], “,”, )
    .计次循环首 (6, n2)
        .如果 (到数值 (文本数据1 [2]) ＋ 1 ＝ n2)
            计次 [n2] ＝ 计次 [n2] ＋ 1
        .否则

        .如果结束

    .计次循环尾 ()
.计次循环尾 ()
' 调试输出 (计次)
.计次循环首 (取数组成员数 (文本数据2), n1)  ' 时间排序
    文本数据1 ＝ 分割文本 (文本数据2 [n1], “,”, )
    .计次循环首 (取数组成员数 (文本数据2) － n1, n2)
        文本数据3 ＝ 分割文本 (文本数据2 [n2 ＋ n1], “,”, )
        到数值 (文本数据1 [1])
        .如果 (到数值 (文本数据1 [1]) ＜ 到数值 (文本数据3 [1]))
            文本数据1 [1] ＝ 文本数据2 [n1]
            文本数据2 [n1] ＝ 文本数据2 [n1 ＋ n2]
            文本数据2 [n1 ＋ n2] ＝ 文本数据1 [1]
        .否则

        .如果结束

    .计次循环尾 ()
.计次循环尾 ()
' 调试输出 (文本数据2)
.计次循环首 (6, n1)  ' 余数排序
    .计次循环首 (6, n2)
        .如果 (计次 [n2] ＝ 7 － n1)
            计次1 [n1] ＝ 计次1 [n1] ＋ 到文本 (n2 － 1)
        .否则

        .如果结束

    .计次循环尾 ()
.计次循环尾 ()
' 调试输出 (计次1)
编辑框1.内容 ＝ “”
.计次循环首 (6, n1)
    .计次循环首 (取数组成员数 (文本数据2), n2)
        文本数据1 ＝ 分割文本 (文本数据2 [n2], “,”, )
        .如果 (寻找文本 (计次1 [n1], 文本数据1 [2], , 假) ≠ -1)
            计次1 [n1] ＝ 文本替换 (计次1 [n1], 寻找文本 (计次1 [n1], 文本数据1 [2], , 假), 1, “”)
            编辑框1.加入文本 (文本数据1 [2] ＋ “，”)
        .否则

        .如果结束
        .如果 (取文本长度 (计次1 [n1]) ＝ 0)
            跳出循环 ()
        .否则

        .如果结束

    .计次循环尾 ()
.计次循环尾 ()

猪哥亮

先顶了再说。正在找相关的源码

果子,果子,帮解决一下不?

qq974969638

好难啊，太难了，不懂