比如1，3，7，12，13，15，19，20，23，24这10个数字中任选6个组合，VBA函数怎么写？谢谢！
135658090-==5498-=-7569-0=7745 89-=4657789790809=548798888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
t = "1"
Format(t, WorksheetFunction.text(t, "[dbnum1]"))
滑稽保命
Dim Arr(10)
Dim I1, I2, I3, I4, I5, I6, M
Arr(1) = 1: Arr(2) = 3: Arr(3) = 7: Arr(4) = 12: Arr(5) = 13: Arr(6) = 15: Arr(7) = 19: Arr(8) = 20: Arr(9) = 23: Arr(10) = 24
M = 0
For I1 = 1 To 5
For I2 = I1 + 1 To 6
For I3 = I2 + 1 To 7
For I4 = I3 + 1 To 8
For I5 = I4 + 1 To 9
For I6 = I5 + 1 To 10
M = M + 1
Range("A" & M) = Arr(I1): Range("B" & M) = Arr(I2): Range("C" & M) = Arr(I3): Range("D" & M) = Arr(I4): Range("E" & M) = Arr(I5): Range("F" & M) = Arr(I6)
Next
Next
Next
Next
Next
Next
End Sub
下面的思路试试：
新建组合
随机从原数组中取一个数放入新建组合
再取 条件在新组合中没有的
取完6个
用数组，把十个数放在数组里。产生（1-10）之间的随机数，把对应下标的数字取走，重新排列剩余的9个数，后面的往前推。再产生（1-9）之间的随机数，把对应下标的数字取走，重新排列剩余的8个数，后面的往前推，依次类推
如果是1万个数里取6个呢？如果是1亿个数里取6个呢？
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,各数与3的最大公因数分别是
1和3的最大公因数是1 2和3的最大公因数是1 3和3的最大公因数是3 4和3的最大公因数是1 5和3的最大公因数是1 6和3的最大公因数是3 7和3的最大公因数是1 8和3的最大公因数是1 9和3的最大公因数是3 10和3的最大公因数是1 11和3的最大公因数是1 12和3的最大公因数是3 13和...
excel如何实现在1-12当中,第一排为1 3 4 5 6 7 8 时,第二排自动填写2...
公式很难实现，楼上的公式似乎有误。如图效果。在excel表单按Alt+F11呼出工程管理器，在工具栏点插入-模块，将下面代码复制到里面。即可使用aa公式来直接套你所要的单元格得出结果 Function aa(x)a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)b = Replace(x, " ", ",")b...
网络难题:有12个年度乒乓球,其中有一个不正常轻或重,请问称量三次如何找...
把12个球编成1，2...12号，则可设计下面的称法：左盘 *** 右盘 第一次 1，5，6，12 *** 2，3，7，11 第二次 2，4，6，10 *** 1，3，8，12 第三次 3，4，5，11 *** 1，2，9，10 每次都可能有平、左重、右重三种结果，搭配起来共有27种结果，但平、平、平的结果不会...
1,7,12,13算24点怎么算?
（13+1）÷7×12=24 游戏步骤 1.利用3×8=24、4×6=24求解.把牌面上的四个数想办法凑成3和8、4和6，再相乘求解.如3、3、6、10可组成(10-6÷3)×3=24等.又如2、3、3、7可组成(7+3-2)×3=24等.实践证明，这种方法是利用率最大、命中率最高的一种方法.2.利用0、11的运算特性...
数列1 0 3 6 7 12
下一位数字应该是17。解题过程：将相领的三个数字相加，可以得到一个自然数的平方 1、1+0+3=4=2²2、0+3+6=9=3²3、3+6+7=16=4²4、6+7+12=25=5²根据这个规律，将最后两个数字相加后，与6的平方做减法，得到未知数字为17。
有一个数列为3、1、6、3、9、5、12、7...请问第二十个数是几,第二十五...
第20个数就是以1,3,5,7为数列的第10项， 自己数一下也OK, 1,3,5,7,9,11,13,15,17,19， 或者就是20以内的最大奇数， 就是19. 底5个是3,6,9,12.。。。的第13项， 每一个数比前面多3， 所以第13项就是3+（13-1）X3=39 ...
问题:12个球中有一个重量异常的球。请你用无砝码天平称三次,找出这个球...
第三次将9号放在左边，10号放在右边。1.如果右重则9号是坏球且比标准球轻；2.如果平衡则11号是坏球且比标准球轻；3.如果左重则10号是坏球且比标准球轻。2.如果左重则坏球在1-8号。第二次将2-4号拿掉，将6-8号从右边移到左边，把9-11号放 在右边。就是说，把1,6,7,8放在左边，5...
三分之一,二分之一,九分之五,十二分之七,五分之三,十八分之十一,按规...
数列为 1\/3、3\/6、5\/9、7\/12、9\/15、11\/18 分子为1、3、5、7……（2n-1)……分母为3、6、9、12……3n……所以第十二个数的分子是2×12-1=23，分母是3×12=36 即按规律第十二个数是36分之23 祝你开心
1\/3+x等于12分之七,解方程怎么解?
列方程式计算1\/3+x=7\/12 解题思路:解方程过程需要进行同类项合并,对未知数项和常数项分别进行合并,最后将未知数项系数化为1 解题过程:1\/3+x=7\/12 4+12x=7 12x=7-4 x=3\/12 x=1\/4
找规律填数,1,3,7,13,21,()()怎样算出的?
第四个数：7+2×3=13；（第四个数=前一个数（即7）+2*（4-1））第五个数：13+2×4=21；（第五个数=前一个数（即13）+2*（5-1））……每个数都是前一个数加上2*（序号-1），如第四个数=第三个数+2*（序号（即4）-1）=3+2×2，以此类推，所以第六个数就应该是第五个...
只尝盆炎：[答案] 思路:将10个数字存入数组D(1 TO 10) 产生6个范围在1--10之间但是不重复的随机数字n1,n2,n3,n4,n5,n6 取出D(N1),D(N2),D(N3),D(N4),D(N5),D(N6),就是了: Private Sub Command1_Click() Dim d(1 To 10) As Integer Dim n(1 To 6) As Integer Dim...
绥中县13089296289： 比如1,3,7,12,13,15,19,20,23,24这10个数字中任选6个组合,VBA函数怎么写?谢谢! - ？
只尝盆炎： Sub 组合6in10() '1,3,7,12,13,15,19,20,23,24Dim Arr(10)Dim I1, I2, I3, I4, I5, I6, MArr(1) = 1: Arr(2) = 3: Arr(3) = 7: Arr(4) = 12: Arr(5) = 13: Arr(6) = 15: Arr(7) = 19: Arr(8) = 20: Arr(9) = 23: Arr(10) = 24M = 0 For I1 = 1 To 5For I2 = I1 + 1 To 6For...
绥中县13089296289： 1,3,5,7,9,11,13,15只能用三个数字相加等于30 - ？
只尝盆炎： 这是印度国家公务员考试的题,他们公务员考试被誉为世界上最难的国考 ,是印度联邦公务员委员会UPSC出的 ,每年一次数十万人报名 ,最终录取300至600人 ,录取率差不多是千分之一...简单的说题目就是三个数相加等于30,三个数只能...
绥中县13089296289： 1 3 5 7 9 11 13 15这些数字中的三个相加等于30怎么算 - ？
只尝盆炎： 这题似乎是无解的,因为给出的都是奇数,三个奇数相加得到的必然还是奇数.因此不可能等于三十. 可是换一个思路,如果上面给的数不是十进制的呢?比如在11进制中,15+15+1=30.只要是奇数进制,那么11 13 15这三个数就成了偶数,这样的解是可以有很多个的. 又如九进制: 1+13+15=30 3+13+13=30
绥中县13089296289： 脑筋急转弯 1 3 5 7 9 11 13 15选择三个数字相加等于三十 - ？
只尝盆炎： 方案一:3!+11+13=30 (3!=6) 方案二:Log3 (9)+3³+1=30 ( Log3 (9)=2,) 方案三:5.5+9.5+15=30 方案四:1'+15+15=30(任何常数的导数为0) 方案五:3³+3+1'=30 (3³=27 1'=0) 方案六:3³+9-3!=30 (使用负数) 方案七:11+13+...
绥中县13089296289： 1 3 5 7 9 11 13 15任意三个数相加等于30.可以重复使用 - ？
只尝盆炎： 如果用十进制做的话肯定是做不出来的因为三个奇数相加不可能得到一个偶数 但是如果可以不用十进制的话那就还是有解的 比如可以用五进制,在五进制里30代表着十进制的15 在十进制中有1+6+8=15 转为五进制就是1+11+13=30
绥中县13089296289： 1 3 5 7 9 11 13 15这加起来怎么会是30 - ？
只尝盆炎： 咋一看这题似乎是无解的,因为给出的都是奇数,三个奇数相加得到的必然还是奇数.因此不可能等于三十.可是换一个思路,如果上面给的数不是十进制的呢?比如在11进制中,15+15+1=30.只要是奇数进制,那么11 13 15这三个数就成了偶数,这样的解是可以有很多个的.希望我的回答对您有帮助,满意请采纳,谢谢.
绥中县13089296289： 1.3.5.7.9.11.13.15这些数字可重复用,那3组加起来等于30 - ？
只尝盆炎： 这个题是什么意思?是需要三个数加起来等于三十还是不一定三个数?1. 如果是三个数加起来,不可能等于三十,因为这些数都是奇数,奇数个奇数相加肯定还是奇数.但30是偶数.2. 如果不一定三个数相加,要三组.可以这样啊,比如1+1+1+9+9+9;1+9+9+11;3+3+7+7+1+9.还能有很多其他情况,比如三十个1什么的.
绥中县13089296289： 1,3,5,7,9,11,13,15等于30,任意3个数相加,可以重复 - ？
只尝盆炎： 15+15+3%3=3015+15+9%3=3015+15+15%3=3013+15+11%9=30%表示求余数.扩展资料:怎么使1、11、13等于24?(1-13)*(9-11)=24(9-11)*(1-13)=24(11-9)*(13-1)=24(13-1)*(11-9)=24 国际奥林匹克竞赛的目的是:发现鼓励世界上具有数学天...
绥中县13089296289： 1,3,5,7,9,11,13,15=30的答案 - ？
只尝盆炎： 请把下面数字填入空格中使等式成立1.3.5.7.9.11.13.15.口+口+口=30 上面数字可重复使用 此题无解 三个奇数的和还是奇数,不可能得到偶数30
