|
发表于 2013-5-27 15:18:10
|
显示全部楼层
广东省湛江市
发个固定4位的给你参考下。
[e]
.版本 2
.程序集 窗口程序集1
.程序集变量 数字, 文本型, , "0"
.程序集变量 结果, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 i, 整数型, 静态
.局部变量 j, 整数型, 静态
列表框1.清空 ()
重定义数组 (结果, 假, 0)
数字 = { “1”, “2”, “3”, “4” } ' 需要组合的数字
.计次循环首 (4, i)
取组合结果 (i)
.计次循环尾 ()
i = 0
.计次循环首 (取数组成员数 (结果), ) ' 过滤重复结果
i = i + 1
j = i + 1
.计次循环首 (取数组成员数 (结果) - i, )
.如果真 (结果 = 结果 [j])
删除成员 (结果, i, 1)
i = i - 1
跳出循环 ()
.如果真结束
j = j + 1
.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (取数组成员数 (结果), i)
列表框1.加入项目 (结果 , )
.计次循环尾 ()
信息框 (“共 ” + 到文本 (列表框1.取项目数 ()) + “ 组不重复的4位数”, 0, )
.子程序 取组合结果
.参数 i, 整数型
.局部变量 n, 整数型, , "3"
.局部变量 值, 文本型
.判断开始 (i = 1)
n = { 2, 3, 4 }
.判断 (i = 2)
n = { 1, 3, 4 }
.判断 (i = 3)
n = { 1, 2, 4 }
.判断 (i = 4)
n = { 1, 2, 3 }
.默认
.判断结束
值 = 数字 + 数字 [n [1]] + 数字 [n [2]] + 数字 [n [3]]
加入成员 (结果, 值)
值 = 数字 + 数字 [n [1]] + 数字 [n [3]] + 数字 [n [2]]
加入成员 (结果, 值)
值 = 数字 + 数字 [n [2]] + 数字 [n [1]] + 数字 [n [3]]
加入成员 (结果, 值)
值 = 数字 + 数字 [n [2]] + 数字 [n [3]] + 数字 [n [1]]
加入成员 (结果, 值)
值 = 数字 + 数字 [n [3]] + 数字 [n [1]] + 数字 [n [2]]
加入成员 (结果, 值)
值 = 数字 + 数字 [n [3]] + 数字 [n [2]] + 数字 [n [1]]
加入成员 (结果, 值)
[/e] |
|