易语言列表框现已选择多个项，怎么删除全部被选择的项

.版本 2

.局部变量 全部被选择的项, 整数型, , "0"

.局部变量 n, 整数型

.局部变量 被选中个数, 整数型

全部被选择的项 ＝ 列表框1.取所有被选择项目 ()

被选中个数 ＝ 取数组成员数 (全部被选择的项)

.计次循环首 (被选中个数, n)

    列表框1.删除项目 (全部被选择的项 [被选中个数 ＋ 1 － n])

.计次循环尾 ()

列表框和超级列表框的代码不一样。
----------------------------------------------------------
如果是超级列表框的话代码如下：
.子程序 _按钮1_被单击
.局部变量 被选择表项, 整数型, , "0"
.局部变量 已选择表项数, 整数型
.局部变量 计次, 整数型

已选择表项数 ＝ 超级列表框1.取已选择表项数 ()
被选择表项 ＝ 超级列表框1.取被选择表项 ()
.计次循环首 (已选择表项数, 计次)
超级列表框1.删除表项 (被选择表项 [计次])
.计次循环尾 ()
----------------------------------------------------------
如果是列表框的话代码如下：
.局部变量 已选择表项数, 整数型, , "0"
.局部变量 计次, 整数型
.局部变量 已选择表项数, 整数型

已选择表项数 ＝ 列表框1.取所有被选择项目 ()
被选择表项 ＝ 取数组成员数 (已选择表项数)
.计次循环首 (被选择表项, 计次)
列表框1.删除项目 (已选择表项数 [被选择表项 ＋ 1 － n])
.计次循环尾 ()

listId ＝ 列表框1.取所有被选择项目 ()

返回一个整数数组，内含所有当前被选择项目的位置索引。如果当前没有被选择项目，返回空数组。本命令为初级对象成员命令。

虽然部分错误，但是可以借鉴