关于数字随机分配

w322zkkw

关于数字随机分配
如何去写呢   比如 价格是100   如何让14个号码内  随机分配数字   然后加起来符合设置的价格
l求帮忙.zip (567.1 KB, 下载次数: 5)

3 天前 上传

点击文件名下载附件    

笨来无一悟

计次 循环里面赋值临时用用没有影响的 下次循环会被自动赋值 节约一个局部变量

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
每份	整数型		0

随机分配 (15, 3, 每份)
调试输出 (每份)

子程序名	返回值类型	公开	备 注
随机分配	逻辑型
参数名	类 型	参考	可空	数组	备 注
总数	整数型
份数	整数型
每份	整数型

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

如果真 (总数 ＜ 份数)
返回 (假)  ' 不够分 返回假
重定义数组 (每份, 假, 份数)
计次循环首 (份数, 计次)
每份 [计次] ＝ 1  ' 确保不会随机出0倍
计次循环尾 ()
置随机数种子 ()
计次循环首 (总数 － 份数, 计次)  ' 每份已经有1倍了所以减去份数
计次 ＝ 取随机数 (1, 份数)
每份 [计次] ＝ 每份 [计次] ＋ 1
计次循环尾 ()
返回 (真)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 每份, 整数型, , "0"<br /> <br /> 随机分配 (15, 3, 每份)<br /> 调试输出 (每份)<br /> <br /> .子程序 随机分配, 逻辑型<br /> .参数 总数, 整数型<br /> .参数 份数, 整数型<br /> .参数 每份, 整数型, 数组<br /> .局部变量 计次, 整数型<br /> <br /> .如果真 (总数 ＜ 份数)<br />     返回 (假)  ' 不够分 返回假<br /> .如果真结束<br /> 重定义数组 (每份, 假, 份数)<br /> .计次循环首 (份数, 计次)<br />     每份 [计次] ＝ 1  ' 确保不会随机出0倍<br /> .计次循环尾 ()<br /> 置随机数种子 ()<br /> .计次循环首 (总数 － 份数, 计次)  ' 每份已经有1倍了所以减去份数<br />     计次 ＝ 取随机数 (1, 份数)<br />     每份 [计次] ＝ 每份 [计次] ＋ 1<br /> .计次循环尾 ()<br /> 返回 (真)

w322zkkw

求大佬帮忙修改下