数组在计次循环首里两个删除成员的命令导致数组成元下标超出范围

43330117

  

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

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

变量名	类 型	静态	数组	备 注
计次	整数型
成员数	整数型

成员数 ＝ 取数组成员数 (数组)
计次循环首 (成员数, 计次)
如果真 (数组 [成员数 － 计次 ＋ 1] ＝ “成功”)
删除成员 (数组, 成员数 － 计次 ＋ 1, 1)

如果真 (数组 [成员数 － 计次 ＋ 1] ＝ “失败”)
删除成员 (数组, 成员数 － 计次 ＋ 1, 1)

计次循环尾 ()
调试输出 (数组)

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

加入成员 (数组, “成功”)
加入成员 (数组, “失败”)
加入成员 (数组, “成功”)
加入成员 (数组, “失败”)
加入成员 (数组, “失败”)
加入成员 (数组, “成功”)
加入成员 (数组, “失败”)
加入成员 (数组, “成功”)
加入成员 (数组, “成功”)
加入成员 (数组, “失败”)
加入成员 (数组, “失败”)
加入成员 (数组, “成功”)
加入成员 (数组, “成功”)
调试输出 (数组)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 数组, 文本型, , "0"<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 成员数, 整数型<br /> <br /> 成员数 ＝ 取数组成员数 (数组)<br /> .计次循环首 (成员数, 计次)<br />     .如果真 (数组 [成员数 － 计次 ＋ 1] ＝ “成功”)<br />         删除成员 (数组, 成员数 － 计次 ＋ 1, 1)<br /> <br />     .如果真结束<br /> <br />     .如果真 (数组 [成员数 － 计次 ＋ 1] ＝ “失败”)<br />         删除成员 (数组, 成员数 － 计次 ＋ 1, 1)<br />     .如果真结束<br /> <br /> <br /> <br /> <br /> <br /> <br /> .计次循环尾 ()<br /> 调试输出 (数组)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 加入成员 (数组, “成功”)<br /> 加入成员 (数组, “失败”)<br /> 加入成员 (数组, “成功”)<br /> 加入成员 (数组, “失败”)<br /> 加入成员 (数组, “失败”)<br /> 加入成员 (数组, “成功”)<br /> 加入成员 (数组, “失败”)<br /> 加入成员 (数组, “成功”)<br /> 加入成员 (数组, “成功”)<br /> 加入成员 (数组, “失败”)<br /> 加入成员 (数组, “失败”)<br /> 加入成员 (数组, “成功”)<br /> 加入成员 (数组, “成功”)<br /> 调试输出 (数组)

你由我解决

两只老虎 发表于 2018-9-18 11:47
没用，假如删除了1号成员，2号成员则变成1号成员，那么下次计次循环的时候，就去判断2号成员了，这样就错 ...

还有个办法就是，第一次循环把你要删除的数组索引保存到另外一个数组当中，然后进行第二次循环删除

你由我解决

如果真（取数组成员数（数组）=计次）
跳出循环（）

寒潮

  

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

变量名	类 型	静态	数组	备 注
计次	整数型
成员数	整数型
X	逻辑型

X ＝ 真
判断循环首 (X ＝ 真)
X ＝ 假
成员数 ＝ 取数组成员数 (数组)
计次循环首 (成员数, 计次)
如果真 (数组 [成员数 － 计次 ＋ 1] ＝ “成功”)
删除成员 (数组, 成员数 － 计次 ＋ 1, 1)
X ＝ 真
跳出循环 ()
如果真 (数组 [成员数 － 计次 ＋ 1] ＝ “失败”)
删除成员 (数组, 成员数 － 计次 ＋ 1, 1)
X ＝ 真
跳出循环 ()

计次循环尾 ()
判断循环尾 ()
调试输出 (数组)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 成员数, 整数型<br /> .局部变量 X, 逻辑型<br /> <br /> X ＝ 真<br /> .判断循环首 (X ＝ 真)<br />     X ＝ 假<br />     成员数 ＝ 取数组成员数 (数组)<br />     .计次循环首 (成员数, 计次)<br />         .如果真 (数组 [成员数 － 计次 ＋ 1] ＝ “成功”)<br />             删除成员 (数组, 成员数 － 计次 ＋ 1, 1)<br />             X ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (数组 [成员数 － 计次 ＋ 1] ＝ “失败”)<br />             删除成员 (数组, 成员数 － 计次 ＋ 1, 1)<br />             X ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .判断循环尾 ()<br /> 调试输出 (数组)

易正易则

  

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

循环判断首 ()
如果真 (数组 [1] ＝ “成功”)
删除成员 (数组, 1, 1)
如果真 (取数组成员数 (数组) ＝ 0)
跳出循环 ()
如果真 (数组 [1] ＝ “失败”)
删除成员 (数组, 1, 1)
调试输出 (数组)
循环判断尾 (取数组成员数 (数组) ≠ 0)
调试输出 (数组)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .循环判断首 ()<br />     .如果真 (数组 [1] ＝ “成功”)<br />         删除成员 (数组, 1, 1)<br />     .如果真结束<br />     .如果真 (取数组成员数 (数组) ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br />     .如果真 (数组 [1] ＝ “失败”)<br />         删除成员 (数组, 1, 1)<br />     .如果真结束<br />     调试输出 (数组)<br /> .循环判断尾 (取数组成员数 (数组) ≠ 0)<br /> 调试输出 (数组)

补充内容 (2018-9-18 11:05):

如果你的成员里面只有成功和失败这样应该就可以了吧

hantu

随着数组成员的删减，其成员数量亦是动态减少的，但你的循环中，成员数 却是固定的、取的是最初时全部的成员数，那么随着数组的缩小 计次 终将会超过动态删减后的下标，当然会出错了。另外一个，不知道你成功、失败都删除又是何意思。

把代码换成下面这个就可以正常了。

  

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

变量名	类 型	静态	数组	备 注
计次	整数型
成员数	整数型

计次 ＝ 1
判断循环首 (计次 ≤ 取数组成员数 (数组))
判断 (数组 [计次] ＝ “成功”)
删除成员 (数组, 计次, 1)
判断 (数组 [计次] ＝ “失败”)
删除成员 (数组, 计次, 1)
计次 ＝ 计次 ＋ 1

判断循环尾 ()
调试输出 (数组)

.子程序 _按钮1_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 成员数, 整数型<br /> <br /> 计次 ＝ 1<br /> .判断循环首 (计次 ≤ 取数组成员数 (数组))<br />     .判断开始 (数组 [计次] ＝ “成功”)<br />         删除成员 (数组, 计次, 1)<br />     .判断 (数组 [计次] ＝ “失败”)<br />         删除成员 (数组, 计次, 1)<br />     .默认<br />         计次 ＝ 计次 ＋ 1<br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> 调试输出 (数组)

两只老虎

你由我解决 发表于 2018-9-18 10:58
如果真（取数组成员数（数组）=计次）
跳出循环（）

没用，假如删除了1号成员，2号成员则变成1号成员，那么下次计次循环的时候，就去判断2号成员了，这样就错过了从2号变成1号的这个成员

两只老虎

看了楼上的办法其实都有些许问题，我这里给你个比较稳的办法

  

计次 ＝ 1
判断循环首 (计次 ≤ 取数组成员数 (数组))
判断 (数组 [计次] ＝ “成功” 或 数组 [计次] ＝ “失败”)
删除成员 (数组, 计次, )  ' 删除成员后，下一个成员会移到当前位置，所以在这里不对计次 + 1
计次 ＝ 计次 ＋ 1  ' 没有删除，所以要把计次 + 1 ，判断下一个成员

判断循环尾 ()

.版本 2<br /> <br /> 计次 ＝ 1<br /> .判断循环首 (计次 ≤ 取数组成员数 (数组))<br />     .判断开始 (数组 [计次] ＝ “成功” 或 数组 [计次] ＝ “失败”)<br />         删除成员 (数组, 计次, )  ' 删除成员后，下一个成员会移到当前位置，所以在这里不对计次 + 1<br />     .默认<br />         计次 ＝ 计次 ＋ 1  ' 没有删除，所以要把计次 + 1 ，判断下一个成员<br />     .判断结束<br /> <br /> .判断循环尾 ()