超级列表框排序

359321852

超级列表框排序，本办法，请高手优化！



超级列表框排序.zip (506.47 KB, 下载次数: 67)

2021-3-26 21:48 上传

点击文件名下载附件

zhqyong

zhqyong

1、把第105、106行去掉；
2、加返回值；

ss4680

出现第一项丢失  最后一项重复的情况
找deepseek修改了一下
<火山程序 类型 = "通常" 版本 = 1 />
循环 (0, 排序数组.取成员数 (), i, 1)
{
    j = i
    判断循环 (j > 0)
    {
        如果 (从小到大 == 真)
        {
            如果 (排序数组.取成员 (j) < 排序数组.取成员 (j - 1))
            {
                排序数组.交换成员 (j, j - 1)
                表项值数组.交换成员 (j, j - 1)
                j = j - 1
            }
            否则
            {
                跳出循环
            }
        }
        否则
        {
            如果 (排序数组.取成员 (j) > 排序数组.取成员 (j - 1))
            {
                排序数组.交换成员 (j, j - 1)
                表项值数组.交换成员 (j, j - 1)
                j = j - 1
            }
            否则
            {
                跳出循环
            }
        }
    }
}