随机数字组合

大漠小鸟

  

计次循环首 (10, )
I ＝ 随机求余0 (21, 8)
调试输出 (到文本 (I) ＋ “ ％ 21 = ” ＋ 到文本 (I ％ 21))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
随机求余0	整数型		返回能被除数整除的随机长度整数
参数名	类 型	参考	可空	数组	备 注
除数	整数型
位数	整数型

变量名	类 型	静态	数组	备 注
min	整数型
max	整数型
n	整数型

min ＝ 求次方 (10, 位数 － 1)
max ＝ 求次方 (10, 位数) － 1
min ＝ min ＋ 神秘汇编 (1, max ÷ 除数) × 除数
min ＝ min － min ％ 除数
返回 (min)

子程序名	返回值类型	公开	备 注
神秘汇编	整数型
参数名	类 型	参考	可空	数组	备 注
a	整数型
b	整数型
c	逻辑型

变量名	类 型	静态	数组	备 注
n	整数型
i	整数型

如果真 (c ＝ 真 或 n ＝ 0)
置入代码 ({ 15, 49, 133, 192, 116, 250, 137, 69, 252 })
n ＝ i
置入代码 ({ 232, 0, 0, 0, 0, 89, 139, 85, 12, 139, 69, 8, 83, 87, 86, 139, 113, 247, 57, 208, 137, 193, 15, 79, 202, 15, 79, 208, 139, 6, 137, 199, 193, 231, 13, 49, 199, 137, 251, 193, 235, 17, 49, 251, 137, 216, 193, 224, 5, 49, 216, 41, 202, 66, 191, 255, 255, 255, 255, 15, 69, 250, 137, 6, 49, 210, 247, 247, 1, 209, 137, 200, 94, 95, 91, 201, 194, 16, 0 })
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .计次循环首 (10, )<br />     I ＝ 随机求余0 (21, 8)<br />     调试输出 (到文本 (I) ＋ “ ％ 21 = ” ＋ 到文本 (I ％ 21))<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 随机求余0, 整数型, , 返回能被除数整除的随机长度整数<br /> .参数 除数, 整数型<br /> .参数 位数, 整数型<br /> .局部变量 min, 整数型<br /> .局部变量 max, 整数型<br /> .局部变量 n, 整数型<br /> <br /> min ＝ 求次方 (10, 位数 － 1)<br /> max ＝ 求次方 (10, 位数) － 1<br /> min ＝ min ＋ 神秘汇编 (1, max ÷ 除数) × 除数<br /> min ＝ min － min ％ 除数<br /> 返回 (min)<br /> <br /> .子程序 神秘汇编, 整数型<br /> .参数 a, 整数型<br /> .参数 b, 整数型<br /> .参数 c, 逻辑型, 可空<br /> .局部变量 n, 整数型, 静态<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (c ＝ 真 或 n ＝ 0)<br />     置入代码 ({ 15, 49, 133, 192, 116, 250, 137, 69, 252 })<br />     n ＝ i<br /> .如果真结束<br /> 置入代码 ({ 232, 0, 0, 0, 0, 89, 139, 85, 12, 139, 69, 8, 83, 87, 86, 139, 113, 247, 57, 208, 137, 193, 15, 79, 202, 15, 79, 208, 139, 6, 137, 199, 193, 231, 13, 49, 199, 137, 251, 193, 235, 17, 49, 251, 137, 216, 193, 224, 5, 49, 216, 41, 202, 66, 191, 255, 255, 255, 255, 15, 69, 250, 137, 6, 49, 210, 247, 247, 1, 209, 137, 200, 94, 95, 91, 201, 194, 16, 0 })<br /> 返回 (0)

b0y

  

子程序名	返回值类型	公开	备 注
MathCeil	整数型		向上取整,返回大于参数的最小整数.整数返回自身.
参数名	类 型	参考	可空	数组	备 注
dNum	双精度小数型

变量名	类 型	静态	数组	备 注
i	整数型

i ＝ 取整 (dNum)
如果 (i ＜ dNum)
返回 (i ＋ 1)
返回 (i)

.版本 2<br /> <br /> .子程序 MathCeil, 整数型, 公开, 向上取整,返回大于参数的最小整数.整数返回自身.<br /> .参数 dNum, 双精度小数型<br /> .局部变量 i, 整数型<br /> <br /> i ＝ 取整 (dNum)<br /> .如果 (i ＜ dNum)<br />     返回 (i ＋ 1)<br /> .否则<br />     返回 (i)

小磊哥来了

大漠小鸟 发表于 2024-3-6 18:31
[e=1].版本 2
.支持库 spec

神秘汇编

zz1318

qq2819940994 发表于 2024-3-6 17:18
我要的是固定长度的数字

长度是多少？

qq2819940994

zz1318 发表于 2024-3-6 19:32
长度是多少？

10位 8位 6位

qq2819940994

blackmagic 发表于 2024-3-6 18:12
[e=0].版本 2
.支持库 spec

.版本 2
.支持库 eCalc

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

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



.子程序 _按钮1_被单击
.局部变量 固定的位数, 整数型
.局部变量 随机的位数, 整数型
.局部变量 随机的数字, 文本型
.局部变量 生成的数字, 文本型
.局部变量 循环次数, 整数型
.局部变量 生成个数, 整数型
.局部变量 a, 大数
.局部变量 b, 大数
.局部变量 c, 大数
.局部变量 局_正则, 正则表达式类
.局部变量 局_a, 整数型
.局部变量 临时, 文本型
.局部变量 结果, 文本型
.局部变量 取随机位数, 文本型
.局部变量 位数, 整数型

固定的位数 ＝ 取文本长度 (编辑框1.内容)
.计次循环首 (到整数 (编辑框3.内容), )
    随机的位数 ＝ 7 － 固定的位数
    随机的数字 ＝ 文本_取随机数字 (随机的位数, )
    生成的数字 ＝ 编辑框1.内容 ＋ 随机的数字
    编辑框2.加入文本 (生成的数字 ＋ 生成段 (生成的数字) ＋ #换行符)
.计次循环尾 ()


.子程序 生成段, 文本型, , 返回整数型
.参数 生成, 文本型
.局部变量 N, 文本型
.局部变量 D, 文本型
.局部变量 P, 文本型
.局部变量 总数, 文本型
.局部变量 结果, 整数型
.局部变量 最终, 整数型
.局部变量 综合, 整数型
.局部变量 总计, 整数型

总数 ＝ 生成
结果 ＝ 到整数 (到数值 (生成) ＋ 1)
生成 ＝ 到文本 (到数值 (结果) × 21)
综合 ＝ 结果 ％ 到数值 (生成)
综合 ＝ 2
.计次循环首 (10, )  ' 能被10整除
    .如果真 (结果 ％ 21 － 1 ＝ 1)
        跳出循环 ()

    .如果真结束

.计次循环尾 ()
返回 (到文本 (综合))

不行

qq2819940994

大漠小鸟 发表于 2024-3-6 18:31
[e=1].版本 2
.支持库 spec

这代码多的 看着真累

qq2819940994

b0y 发表于 2024-3-6 18:50
[e=0].版本 2

.子程序 MathCeil, 整数型, 公开, 向上取整,返回大于参数的最小整数.整数返回自身.

版本 2
.支持库 eCalc

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

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



.子程序 _按钮1_被单击
.局部变量 固定的位数, 整数型
.局部变量 随机的位数, 整数型
.局部变量 随机的数字, 文本型
.局部变量 生成的数字, 文本型
.局部变量 循环次数, 整数型
.局部变量 生成个数, 整数型
.局部变量 a, 大数
.局部变量 b, 大数
.局部变量 c, 大数
.局部变量 局_正则, 正则表达式类
.局部变量 局_a, 整数型
.局部变量 临时, 文本型
.局部变量 结果, 文本型
.局部变量 取随机位数, 文本型
.局部变量 位数, 整数型

固定的位数 ＝ 取文本长度 (编辑框1.内容)
.计次循环首 (到整数 (编辑框3.内容), )
    随机的位数 ＝ 7 － 固定的位数
    随机的数字 ＝ 文本_取随机数字 (随机的位数, )
    生成的数字 ＝ 编辑框1.内容 ＋ 随机的数字
    编辑框2.加入文本 (生成的数字 ＋ 生成段 (生成的数字) ＋ #换行符)
.计次循环尾 ()


.子程序 生成段, 文本型, , 返回整数型
.参数 生成, 文本型
.局部变量 N, 文本型
.局部变量 D, 文本型
.局部变量 P, 文本型
.局部变量 总数, 文本型
.局部变量 结果, 整数型
.局部变量 最终, 整数型
.局部变量 综合, 整数型
.局部变量 总计, 整数型

总数 ＝ 生成
结果 ＝ 到整数 (到数值 (生成) ＋ 1)
生成 ＝ 到文本 (到数值 (结果) × 21)
综合 ＝ 结果 ％ 到数值 (生成)
综合 ＝ 2
.计次循环首 (10, )  ' 能被10整除
    .如果真 (结果 ％ 21 － 1 ＝ 1)
        跳出循环 ()

    .如果真结束

.计次循环尾 ()
返回 (到文本 (综合))

完整代码

b0y

qq2819940994 发表于 2024-3-6 20:49
版本 2
.支持库 eCalc

我贴的那个不是能实现取固定长度 且整除指定数字么

b0y

1.e (4.69 KB, 下载次数: 1)

2024-3-6 21:49 上传

点击文件名下载附件