递归实现数字排列组合
摘要:
参考彭希仁的递归算法 Sub macro1()Dim arr() As Stringgetall 9, 3, "", arrDebug.Print Join(arr, ",")End SubSub getall(ByVal m As Byte, ByVal n As Byte, ByRef a A... 阅读全文
posted @ 2007-10-30 16:33 王峰炬 阅读(192) 评论(0) 推荐(0) 编辑