删除数组成员 速度更快的新写法

Suky

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
数组1	整数型	0

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
n	整数型

按钮1.禁止 ＝ 真
计次循环首 (取数组成员数 (数组1), )
n ＝ n ＋ 1
如果真 (数组1 [n] ≥ 10)  ' 数组元素符合条件  引用
' 引用数组成员代码
删除成员 (数组1, n, 1)  ' 用完删除
n ＝ n － 1

计次循环尾 ()
按钮1.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
_按钮2_被单击

置随机数种子 ()
加入成员 (数组1, 取随机数 (1, 20))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 数组1, 整数型, , "0"<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> <br /> 按钮1.禁止 ＝ 真<br /> .计次循环首 (取数组成员数 (数组1), )<br />     n ＝ n ＋ 1<br />     .如果真 (数组1 [n] ≥ 10)  ' 数组元素符合条件  引用<br />         ' 引用数组成员代码<br />         删除成员 (数组1, n, 1)  ' 用完删除<br />         n ＝ n － 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 按钮1.禁止 ＝ 假<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 置随机数种子 ()<br /> 加入成员 (数组1, 取随机数 (1, 20))

举个小小的例子，类似这样的应用场景     你要如何应对

Suky

正序的本意是在特定需求环境中按原来的顺序逐一检索和删除目标成员，目的并不是单纯的筛选删除

spldj145

分享是传统美德

pipicool

学习一下

一指温柔

感谢分享

wuqingg

新技能已get√

龍貓

大佬真是举一反三，学习一下

qqmqqg

协议还是填表？

洋滨

源码呢。。