胆码随机/胆码不重复算法例子

胆码随机 数字不重复例子，调用了精益模块

.版本 2

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

.子程序 __启动窗口_创建完毕

置随机数种子 ()

.子程序 _按钮1_被单击
.局部变量 长度, 整数型
.局部变量 数组, 整数型, , "0"
.局部变量 文本, 文本型, , "4"
.局部变量 临时, 文本型
.局部变量 循环, 整数型
.局部变量 循环1, 整数型

长度 ＝ 到整数 (编辑框1.内容)
.计次循环首 (4, 循环)
    文本_取出N组不重复数字 (数组, 长度, 0, 9)
    .判断循环首 (数组 [1] ＝ 0)
        文本_取出N组不重复数字 (数组, 长度, 0, 9)
    .判断循环尾 ()
    .计次循环首 (长度, 循环1)
        文本 [循环] ＝ 文本 [循环] ＋ 到文本 (数组 [循环1])
    .计次循环尾 ()
    ' 调试输出 (文本)
.计次循环尾 ()
编辑框2.内容 ＝ 文本 [1]
编辑框3.内容 ＝ 文本 [2]
编辑框4.内容 ＝ 文本 [3]
编辑框5.内容 ＝ 文本 [4]