一组随机数

tvrcwfnh

产生一组随机数，要求如下：比如产生13个不大于50的随机整数，且和为643.更通用的要求：n个不大于50的随机整数，和在50*（n-1）到50*n之间某个指定的整数。并将这n个数写入数组

LIUZHU

13个不大于50的随机整数，且和为643
生成随机数容易，但是保证和是643就有点难度，这里就有一个生成数据的最小值的问题。
比如：前12个数都是小于5，那么第13个数无论怎么生成（小于50），求和都不可能大于643，所以每一个数其实都有独特的区间。
第一个数不能小于43，假如第一个数等于43，那么，后面12个数的均值为（643-12）/12=50，刚好满足要求，所以第一个数的区间应该是[43,50]，每一个数据都有一个区间，第13个数，其实就是倒挤的，用643减去前面12个数的和即可。

LIUZHU

展示下效果

LIUZHU

JS代码，供参考

1. function 生成随机数(){
   
2.         const [sum,n]=Range("b1:b2").Value2.flat();
   
3.         let res=[], s=0;
   
4.         for (let i=1;i<=n;i++){
   
5.                 if (i==n){
   
6.                         res.push([sum-s]);
   
7.                 }else{
   
8.                         res.push([WorksheetFunction.RandBetween(Math.ceil((sum-s)/(n-i+1)),50)]);
   
9.                         s+=res[res.length-1][0];
   
10.                 }
    
11.         }
    
12.         Range("a4").CurrentRegion.ClearContents();
    
13.         Range("a4").Resize(res.length,1).Value2=res;
    
14. }

复制代码

tvrcwfnh

LIUZHU 发表于 2024-7-12 09:38
JS代码，供参考

VBA 代码怎么写

LIUZHU

tvrcwfnh 发表于 2024-7-12 17:29
VBA 代码怎么写

可以改成VBA代码

grf1973

思路和上面是一样的。

grf1973

这种做法的缺点是不够平均，前期把余量用完的话，后面全部是50了。

grf1973

可以采取在平均数上下随机浮动的方式试试