文本乘变量数值，重新排序号

菜鸟囚徒

原来是x ＝ 到文本 ((i － 1) × 2 ＋ ii) 改成 x ＝ 到文本 ((i － 1) × num ＋ ii)就行了

Suky

菜鸟囚徒 发表于 2024-4-1 14:31
原来是x ＝ 到文本 ((i － 1) × 2 ＋ ii) 改成 x ＝ 到文本 ((i － 1) × num ＋ ii)就行了
...

不要弄那么复杂，直接计次循环套计次循环取右边
然后左边的就直接一个与循环次数无关的递增变量就好了
这样不容易出错

Suky

菜鸟囚徒 发表于 2024-4-1 12:27

  

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

变量名	类 型	静态	数组	备 注
次数	整数型
temp	文本型		0
i	整数型
k	整数型
左边文本	文本型

编辑框2.内容 ＝ “”
次数 ＝ 到整数 (编辑框3.内容)
temp ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (temp), )
i ＝ i ＋ 1
判断 (temp [i] ≠ “”)
temp [i] ＝ 文本_取右边 (temp [i], “-”, , )
删除成员 (temp, i, 1)
i ＝ i － 1

计次循环尾 ()
计次循环首 (次数, )
计次循环首 (取数组成员数 (temp), i)
k ＝ k ＋ 1
左边文本 ＝ 到文本 (k)
左边文本 ＝ 取重复文本 (2 － 取文本长度 (左边文本), “0”) ＋ 左边文本
编辑框2.加入文本 (左边文本 ＋ “-” ＋ temp [i] ＋ #换行符 )
计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 次数, 整数型<br /> .局部变量 temp, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 左边文本, 文本型<br /> <br /> 编辑框2.内容 ＝ “”<br /> 次数 ＝ 到整数 (编辑框3.内容)<br /> temp ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (temp), )<br />     i ＝ i ＋ 1<br />     .判断开始 (temp <i> ≠ “”)<br />         temp <i> ＝ 文本_取右边 (temp <i>, “-”, , )<br />     .默认<br />         删除成员 (temp, i, 1)<br />         i ＝ i － 1<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (次数, )<br />     .计次循环首 (取数组成员数 (temp), i)<br />         k ＝ k ＋ 1<br />         左边文本 ＝ 到文本 (k)<br />         左边文本 ＝ 取重复文本 (2 － 取文本长度 (左边文本), “0”) ＋ 左边文本<br />         编辑框2.加入文本 (左边文本 ＋ “-” ＋ temp <i> ＋ #换行符)<br />     .计次循环尾 ()<br /> .计次循环尾 ()