递归列举从数组b()中选出某些元素(允许重复)使其和等于num的所有组合
摘要:
Dim mycount As Long, s(1 To 65536, 1 To 1), num As Long Sub main() Dim a, b num = 45 b = Array(10, 9, 8, 7, 6, 5, 4, 3, 2, 1) ReDim a(num) a(0) = b... 阅读全文
posted @ 2008-10-24 19:37 王峰炬 阅读(140) 评论(0) 推荐(0) 编辑