求助。数字排列组合

柔软的狮子头

数字排列组合



比如我再编辑框内 输入正整数1  那么A 编辑框里面   输出 所有包含1的 4位数组合  一共有3439种组合
B 编辑框里面 输入 所有不包含 1的4位数组合，一共 6561种组合


求助各位大佬

唐老湿

demo.zip (1.39 KB, 下载次数: 21)

2019-2-8 12:06 上传

点击文件名下载附件

Y罢不能

看文本有没有换行符，如果有换行符，那就 先 用换行符分割，再用 空格 分割，然后寻找文本。

npzs

  

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

变量名	类 型	静态	数组	备 注
i
s	文本型

如果真 (编辑框1.内容 ＝ “”)
返回 ()
如果真 (取文本长度 (编辑框1.内容) ＞ 4)
返回 ()
连续赋值 (“”, 编辑框2.内容, 编辑框3.内容)
变量循环首 (0, 9999, 1, i)
s ＝ 到文本 (i)
s ＝ 取重复文本 (4 － 取文本长度 (s), “0”) ＋ s
如果 (寻找文本 (s, 编辑框1.内容, , 真) ＝ -1)
编辑框3.加入文本 (s, “ ”)
编辑框2.加入文本 (s, “ ”)

变量循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i<br /> .局部变量 s, 文本型<br /> <br /> .如果真 (编辑框1.内容 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (取文本长度 (编辑框1.内容) ＞ 4)<br />     返回 ()<br /> .如果真结束<br /> 连续赋值 (“”, 编辑框2.内容, 编辑框3.内容)<br /> .变量循环首 (0, 9999, 1, i)<br />     s ＝ 到文本 (i)<br />     s ＝ 取重复文本 (4 － 取文本长度 (s), “0”) ＋ s<br />     .如果 (寻找文本 (s, 编辑框1.内容, , 真) ＝ -1)<br />         编辑框3.加入文本 (s, “ ”)<br />     .否则<br />         编辑框2.加入文本 (s, “ ”)<br />     .如果结束<br /> <br /> .变量循环尾 ()

你这有点太简单了，不就是这个意思么？

走一回

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
a	整数型
b
c
d
zz_	文本型
sz_	文本型		0
sz_1	文本型		0	有1
sz_2	文本型		0	无1

计次循环首 (10, a)
计次循环首 (10, b)
计次循环首 (10, c)
计次循环首 (10, d)
zz_ ＝ 到文本 (a － 1) ＋ 到文本 (b － 1) ＋ 到文本 (c － 1) ＋ 到文本 (d － 1)
加入成员 (sz_, zz_)
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (sz_), a)
如果 (寻找文本 (sz_ [a], 编辑框3.内容, , 假) ≠ -1)
加入成员 (sz_1, sz_ [a])
加入成员 (sz_2, sz_ [a])

计次循环尾 ()
zz_ ＝ “”
计次循环首 (取数组成员数 (sz_1), a)
zz_ ＝ zz_ ＋ sz_1 [a] ＋ #换行符
计次循环尾 ()
编辑框1.内容 ＝ zz_
zz_ ＝ “”
计次循环首 (取数组成员数 (sz_2), a)
zz_ ＝ zz_ ＋ sz_2 [a] ＋ #换行符
计次循环尾 ()
编辑框2.内容 ＝ zz_

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 整数型<br /> .局部变量 b<br /> .局部变量 c<br /> .局部变量 d<br /> .局部变量 zz_, 文本型<br /> .局部变量 sz_, 文本型, , "0"<br /> .局部变量 sz_1, 文本型, , "0", 有1<br /> .局部变量 sz_2, 文本型, , "0", 无1<br /> <br /> .计次循环首 (10, a)<br />     .计次循环首 (10, b)<br />         .计次循环首 (10, c)<br />             .计次循环首 (10, d)<br />                 zz_ ＝ 到文本 (a － 1) ＋ 到文本 (b － 1) ＋ 到文本 (c － 1) ＋ 到文本 (d － 1)<br />                 加入成员 (sz_, zz_)<br />             .计次循环尾 ()<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (sz_), a)<br />     .如果 (寻找文本 (sz_ [a], 编辑框3.内容, , 假) ≠ -1)<br />         加入成员 (sz_1, sz_ [a])<br />     .否则<br />         加入成员 (sz_2, sz_ [a])<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> zz_ ＝ “”<br /> .计次循环首 (取数组成员数 (sz_1), a)<br />     zz_ ＝ zz_ ＋ sz_1 [a] ＋ #换行符<br /> .计次循环尾 ()<br /> 编辑框1.内容 ＝ zz_<br /> <br /> zz_ ＝ “”<br /> .计次循环首 (取数组成员数 (sz_2), a)<br />     zz_ ＝ zz_ ＋ sz_2 [a] ＋ #换行符<br /> .计次循环尾 ()<br /> 编辑框2.内容 ＝ zz_

sunsir

是这个意思吗？


123.e (804.3 KB, 下载次数: 5)

2019-2-8 15:34 上传

点击文件名下载附件