数组_寻找数组 少了一句代码

剧终0616

  

子程序名	返回值类型	公开	备 注
数组_寻找数组	整数型		寻找指定成员在数组中出现的次数，
参数名	类 型	参考	可空	数组	备 注
待查找的数组	文本型
待查找的成员	文本型
寻找到的数组	整数型				返回出现的位置数组信息

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

清除数组 (寻找到的数组)
计次循环首 (取数组成员数 (待查找的数组), i)
系统_处理事件 ()
如果真 (待查找的成员 ＝ 待查找的数组 [i])
加入成员 (寻找到的数组, i)

计次循环尾 ()
返回 (取数组成员数 (寻找到的数组))

.版本 2<br /> <br /> .子程序 数组_寻找数组, 整数型, 公开, 寻找指定成员在数组中出现的次数，<br /> .参数 待查找的数组, 文本型, 数组<br /> .参数 待查找的成员, 文本型<br /> .参数 寻找到的数组, 整数型, 参考 数组, 返回出现的位置数组信息<br /> .局部变量 i, 整数型<br /> <br /> 清除数组 (寻找到的数组)<br /> .计次循环首 (取数组成员数 (待查找的数组), i)<br />     系统_处理事件 ()<br />     .如果真 (待查找的成员 ＝ 待查找的数组 <i>)<br />         加入成员 (寻找到的数组, i)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (取数组成员数 (寻找到的数组))

模块里面 没有这句 清除数组 (寻找到的数组)，导致这个命令在循环中会重复赋值，从而不准确

kllw800

比较位置

APPLEUFO

处理事件 () 加了 严重拖慢软件运行速度啊

神女软件定制

建议去掉系统_处理事件 ()