超级列表框排序

359321852 · 发表于 2021-3-26 21:48:25

本帖最后由 359321852 于 2021-3-26 21:49 编辑

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

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

ss4680 · 发表于 2026-3-30 17:11:57

出现第一项丢失  最后一项重复的情况
找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
         }
         否则
         {
            跳出循环
         }
      }
}
}

zhqyong · 发表于 2022-6-9 13:51:23

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

zhqyong · 发表于 2022-6-9 13:44:41

		自动登录	找回密码
密码			立即注册

[视窗] 超级列表框排序