EXCEL摆列组合问题从4.57.510.513.516.519.522.525.528.5这9个数中取任意6个数（可重复）并且它们的和要等于102并把所有的组合罗列出来请问这个程序怎么写?
更新时间：2024-04-24 12:14:30
3人问答
问题描述：
EXCEL摆列组合问题
从4.57.510.513.516.519.522.525.528.5这9个数中取任意6个数（可重复）并且它们的和要等于102并把所有的组合罗列出来请问这个程序怎么写?
邱恺回答：
用最笨的枚举法,就是逐个计算,把和102的挑出来,共有32292个结果：SubSum102()X=Array(4.5,7.5,10.5,13.5,16.5,19.5,22.5,25.5,28.5)i=0Fors1=0To8Fors2=0To8Fors3=0To8Fors4=0To8Fors5=...
刘彦萍回答：
不好意思少了个条件就是排列出的数要后面的>=前面的数并且最后一个数字必须是28.5如4.5+10.5+16.5+19.5+22.5+28.5=102这里10.5>=4.5,16.5>=10.5......28.5帮我弄出来我所有的分都给你好像有30分
邱恺回答：
后面的>=前面的数并且最后一个数字必须是28.5的：共66个组合SubSum102()x=Array(4.5,7.5,10.5,13.5,16.5,19.5,22.5,25.5,28.5)i=0Fors1=0To8Fors2=s1To8Fors3=s2To8Fors4=s3To8Fors5=s4To8Sum=x(s1)+x(s2)+x(s3)+x(s4)+x(s5)+28.5IfSum=102Theni=i+1st=x(s1)&"+"&x(s2)&"+"&x(s3)&"+"&x(s4)&"+"&x(s5)&"+28.5="&SumCells(i,1)=iCells(i,2)=stEndIfNextNextNextNextNextEndSub
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
邮箱：