不晓得我的计算方式对不对这樣算出来是165个组合。
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 i, 整数型
加入成员 (原始数组, i)
计算分组结果 (原始数组)
.子程序 计算分组结果
.参數 原始数组, , 数组
.局部变量 j, 整数型
.局部变量 k, 整数型
.局部变量 l, 整数型
.局部变量 m, 整数型
.局部变量 单次取出结果, 文本型
.局部变量 第一个, 整数型
.局部變量 第二个, 整数型
.局部变量 第三个, 整数型
.局部变量 取出结果总数, 整数型
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 局_临时数組, 整数型, , "0"
.局部变量 a, 整数型
取不重复随机数 (局_临时数组, 3, 1, 11)
.计次循环首 (取数组成员数 (局_临时数组), a)
编辑框1.加入文本 (到文本 (局_临时数组 [a]) ＋ #换行符)
.计次循环尾 ()
.子程序 取不重复随机数
.参数 存放结果的数组, 整数型, 数组
.参数 要取几次, 整数型
.参数 随机数的最小值, 整数型, , 大于等于1
.参数 随机数的最大徝, 整数型, , 小于等于50000
.局部变量 局_索引, 整数型
.局部变量 a, 整数型
.局部变量 局_总数组, 文本型, , "0"
.局部变量 文本型, 文本型
置随机数种子 ()
.如果真 (要取几次 ＞ 隨机数的最大值)
随机数的最大值 ＝ 要取几次
.如果真结束
.如果真 (文件是否存在 (取运行目录 () ＋ “\1到50000.ini”))
写到文件 (取运行目录 () ＋ “\1到50000.ini”, #配置文本1到50000)
.洳果真结束
局_总数组 ＝ 取配置节名 (取运行目录 () ＋ “\1到50000.ini”)
处理事件 ()
删除成员 (局_总数组, 1, 随机数的最小值 － 1)
删除成员 (局_总数组, 随机数的最大值 ＋ 1, 取数组成员数 (局_总数组) － 随机数的最小值 － 1)
调试输出 (取数组成员数 (局_总数组), 局_总数组 [1])
.计次循环首 (要取几次, )
局_索引 ＝ 取随机数 (1, 取数组成员数 (局_总数组))
.如果真 (局_索引 ≠ 0)
加入成员 (存放结果的数组, 到整数 (局_总数组 [局_索引]))
删除成员 (局_总数组, 局_索引, 1)
.如果真结束
.计次循环尾 ()
我主要是想得到这些数据 或是得到写出数据的方法
能帮我写出这三组数字组合的 我另外再给 10分
让我编程序的朋友就免了吧 哈哈 我要是能编程序。。
请注意一下：我要顺序排列的 如 12，5 2 ，15或5， 2 1 就不要了 也就是每组数有哪些共同点165个组合
不晓得我的计算方式对不对这樣算出来是165个组合。
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 i, 整数型
加入成员 (原始数组, i)
计算分组结果 (原始数组)
.子程序 计算分组结果
.参數 原始数组, , 数组
.局部变量 j, 整数型
.局部变量 k, 整数型
.局部变量 l, 整数型
.局部变量 m, 整数型
.局部变量 单次取出结果, 文本型
.局部变量 第一个, 整数型
.局部變量 第二个, 整数型
.局部变量 第三个, 整数型
.局部变量 取出结果总数, 整数型
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 局_临时数組, 整数型, , "0"
.局部变量 a, 整数型
取不重复随机数 (局_临时数组, 3, 1, 11)
.计次循环首 (取数组成员数 (局_临时数组), a)
编辑框1.加入文本 (到文本 (局_临时数组 [a]) ＋ #换行符)
.计次循环尾 ()
.子程序 取不重复随机数
.参数 存放结果的数组, 整数型, 数组
.参数 要取几次, 整数型
.参数 随机数的最小值, 整数型, , 大于等于1
.参数 随机数的最大徝, 整数型, , 小于等于50000
.局部变量 局_索引, 整数型
.局部变量 a, 整数型
.局部变量 局_总数组, 文本型, , "0"
.局部变量 文本型, 文本型
置随机数种子 ()
.如果真 (要取几次 ＞ 隨机数的最大值)
随机数的最大值 ＝ 要取几次
.如果真结束
.如果真 (文件是否存在 (取运行目录 () ＋ “\1到50000.ini”))
写到文件 (取运行目录 () ＋ “\1到50000.ini”, #配置文本1到50000)
.洳果真结束
局_总数组 ＝ 取配置节名 (取运行目录 () ＋ “\1到50000.ini”)
处理事件 ()
删除成员 (局_总数组, 1, 随机数的最小值 － 1)
删除成员 (局_总数组, 随机数的最大值 ＋ 1, 取数组成员数 (局_总数组) － 随机数的最小值 － 1)
调试输出 (取数组成员数 (局_总数组), 局_总数组 [1])
.计次循环首 (要取几次, )
局_索引 ＝ 取随机数 (1, 取数组成员数 (局_总数组))
.如果真 (局_索引 ≠ 0)
加入成员 (存放结果的数组, 到整数 (局_总数组 [局_索引]))
删除成员 (局_总数组, 局_索引, 1)
.如果真结束
.计次循环尾 ()
