指定连续数字的个数-找出相应的数据

cqcc

连续数字我找出来了，但是包含连续数字的这一条数据整不出来，请各位老师帮忙看看，谢谢！ 指定连续数字的个数-找出相应的数据.e (4.12 KB, 下载次数: 9)

2022-8-14 17:04 上传

点击文件名下载附件

太阳您母亲

  

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

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
文本数组2	文本型		0
i	整数型
最大连续	整数型
j	整数型
结果	文本型
上次数字	整数型

编辑框2.内容 ＝ “”
文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (文本数组), i)
文本数组2 ＝ 分割文本 (文本数组 [i], “ ”, )
最大连续 ＝ 0
计次循环首 (取数组成员数 (文本数组2), j)
如果 (j ＝ 1)
最大连续 ＝ 1


如果 (上次数字 ＋ 1 ＝ 到整数 (文本数组2 [j]))
最大连续 ＝ 最大连续 ＋ 1
如果真 (最大连续 ≥ 到整数 (编辑框3.内容))
跳出循环 ()


最大连续 ＝ 1


上次数字 ＝ 到整数 (文本数组2 [j])
计次循环尾 ()
如果真 (最大连续 ≥ 到整数 (编辑框3.内容))
编辑框2.加入文本 (文本数组 [i] ＋ #换行符 )

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 文本数组2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 最大连续, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 上次数字, 整数型<br /> <br /> 编辑框2.内容 ＝ “”<br /> 文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     文本数组2 ＝ 分割文本 (文本数组 <i>, “ ”, )<br />     最大连续 ＝ 0<br />     .计次循环首 (取数组成员数 (文本数组2), j)<br />         .如果 (j ＝ 1)<br />             最大连续 ＝ 1<br />         .否则<br /> <br />             .如果 (上次数字 ＋ 1 ＝ 到整数 (文本数组2 [j]))<br />                 最大连续 ＝ 最大连续 ＋ 1<br />                 .如果真 (最大连续 ≥ 到整数 (编辑框3.内容))<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br /> <br /> <br />             .否则<br />                 最大连续 ＝ 1<br />             .如果结束<br /> <br />         .如果结束<br /> <br />         上次数字 ＝ 到整数 (文本数组2 [j])<br />     .计次循环尾 ()<br /> <br />     .如果真 (最大连续 ≥ 到整数 (编辑框3.内容))<br />         编辑框2.加入文本 (文本数组 <i> ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

楼上的代码改改就行了

afu45

  

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

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
文本数组2	文本型		0
i	整数型
最大连续	整数型
j	整数型
结果	文本型
上次数字	整数型

编辑框2.内容 ＝ “”
文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (文本数组), i)
文本数组2 ＝ 分割文本 (文本数组 [i], “ ”, )
最大连续 ＝ 0
计次循环首 (取数组成员数 (文本数组2), j)
如果 (j ＝ 1)
最大连续 ＝ 1


如果 (上次数字 ＋ 1 ＝ 到整数 (文本数组2 [j]))
最大连续 ＝ 最大连续 ＋ 1
最大连续 ＝ 1


上次数字 ＝ 到整数 (文本数组2 [j])
计次循环尾 ()
如果真 (最大连续 ≥ 到整数 (编辑框3.内容))
编辑框2.加入文本 (文本数组 [i] ＋ #换行符 )

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 文本数组2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 最大连续, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 上次数字, 整数型<br /> <br /> 编辑框2.内容 ＝ “”<br /> 文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     文本数组2 ＝ 分割文本 (文本数组 <i>, “ ”, )<br />     最大连续 ＝ 0<br />     .计次循环首 (取数组成员数 (文本数组2), j)<br />         .如果 (j ＝ 1)<br />             最大连续 ＝ 1<br />         .否则<br /> <br />             .如果 (上次数字 ＋ 1 ＝ 到整数 (文本数组2 [j]))<br />                 最大连续 ＝ 最大连续 ＋ 1<br />             .否则<br />                 最大连续 ＝ 1<br />             .如果结束<br /> <br />         .如果结束<br /> <br />         上次数字 ＝ 到整数 (文本数组2 [j])<br />     .计次循环尾 ()<br /> <br />     .如果真 (最大连续 ≥ 到整数 (编辑框3.内容))<br />         编辑框2.加入文本 (文本数组 <i> ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

cqcc

afu45 发表于 2022-8-14 17:22
[e=0].版本 2

.子程序 _按钮1_被单击

01 03 07 08 09 15
01 03 07 08 09 16
怎么没有呢？