双色球复式全排列组合（中6保6）

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 组合, 文本型, , "0"

旋转6个 (“05 10 15 17 18 20 23 26 29 32”, 组合)
调试输出 (组合)

.子程序 旋转6个
.参数 球, 文本型
.参数 接收数组, 文本型, 数组
.局部变量 球数组, 文本型, , "0"
.局部变量 总个数, 整数型
.局部变量 a
.局部变量 b
.局部变量 c
.局部变量 d
.局部变量 e
.局部变量 f
.局部变量 结果, 文本型
.局部变量 计次, 整数型

球数组 ＝ 分割文本 (球, “ ”, )
总个数 ＝ 取数组成员数 (球数组)
.如果真 (总个数 ＜ 6)
    信息框 (“补球排列不足”, 0, )
    返回 ()
.如果真结束
连续赋值 (1, a, b, c, d, e)
f ＝ 0
.判断循环首 (总个数 ≠ 0)
    f ＝ f ＋ 1
    结果 ＝ 球数组 [a] ＋ “ ” ＋ 球数组 [b ＋ 1] ＋ “ ” ＋ 球数组 [c ＋ 2] ＋ “ ” ＋ 球数组 [d ＋ 3] ＋ “ ” ＋ 球数组 [e ＋ 4] ＋ “ ” ＋ 球数组 [f ＋ 5]
    计次 ＝ 计次 ＋ 1
    加入成员 (接收数组, 结果)
    .如果真 (f ＋ 5 ≥ 总个数)
        e ＝ e ＋ 1
        f ＝ e － 1
    .如果真结束
    .如果真 (e ＋ 4 ≥ 总个数)
        d ＝ d ＋ 1
        e ＝ d
        f ＝ d － 1
    .如果真结束
    .如果真 (d ＋ 3 ≥ 到数值 (总个数 － 1))
        c ＝ c ＋ 1
        连续赋值 (c, d, e)
        f ＝ c － 1
    .如果真结束
    .如果真 (c ＋ 2 ≥ 到数值 (总个数 － 2))
        b ＝ b ＋ 1
        连续赋值 (b, c, d, e)
        f ＝ b － 1
    .如果真结束
    .如果真 (b ＋ 1 ≥ 到数值 (总个数 － 3))
        a ＝ a ＋ 1
        连续赋值 (a, b, c, d, e)
        f ＝ a － 1
    .如果真结束
    .如果真 (a ≥ 到数值 (总个数 － 4))
        跳出循环 ()
    .如果真结束

.判断循环尾 ()