原

如何计算数据组合在全排序组合中的行值

2010年07月06日 21:12:00 northwolves 阅读数：2491 标签： function

问题：双色球所有的红球全排序组合中，2, 3, 5, 8, 13, 21排第几个？

可以创建自定义函数解决这个问题：

1. Function SeqNum(ParamArray d()) As Long 2. Dim k&, i&, j& 3. k = UBound(d) 4. i = 1 5. SeqNum = 1 6. Do 7. j = j + 1 8. If j < d(i) Then 9. SeqNum = SeqNum + WorksheetFunction.Combin(33 - j, 6 - i) 10. Else 11. i = i + 1 12. End If 13. Loop Until j = d(k) 14. End Function 15. 16. Sub Test() 17. MsgBox SeqNum(33, 2, 3, 5, 8, 13, 21) 18. End Sub

以上代码返回返回 205804

阅读更多登录后自动展开

想对作者说点什么？我来说一句

如何计算数据组合在全排序组合中的行值

Tableau开发总结

数据组合

获取一组数两两组合情况

递归：从数组中取n个数有多少种组合。

关于一组数据的排列与组合

Java实现集合的组合（从组合中取出K个元素进行组合的所有情况）

编程练习：求和为指定数字的所有组合

数据之美----雪球网股票组合分析

波段组合OIF指数计算

在单个页面上组合HTML和PHP代码

相关热词