香川组合的递归代码

小花鹿

香川群子 发表于 2012-7-11 11:31
嗯。递归其实很简单。

要求：

讲得很清楚。
我也写一个练练手，不知对不对？
分解质因数：
Option Explicit
Dim ar(), n&
Sub main()
Dim num&
n = 0
num = 60
Call recursive(num)
MsgBox num & "的质因数是：" & Join(ar)
End Sub
Sub recursive(num)
If num = 1 Then Exit Sub
Dim i&
For i = 2 To num
    If num / i = Int(num / i) Then Exit For
Next i
n = n + 1
ReDim Preserve ar(1 To n)
ar(n) = i
Call recursive(num / i)
End Sub

uyi157

香川老师这个有视频讲解吗？求教!

banjinjiu

老师，你好，我是新手，我在使用你的代码过程中出现这样那样的错误，我把错误的类型和原因传传，希望能帮助我，我的excel是2003，谢谢！

香川群子

banjinjiu 发表于 2013-5-25 21:57
老师，你好，我是新手，我在使用你的代码过程中出现这样那样的错误，我把错误的类型和原因传传，希望能帮助 ...

代码本身没问题

但是代码最好放在模块中使用，而不要放在sheet代码页中。

【编译错误：常数、固定长度字符串、数组、用户定义类型以及Declare语句不允许作为对象模块的公共成员】
如果一定要在代码页中使用，那么改成dim 直接定义公共变量就行了。
Dim sj, jg(), m, n, k

其它错误的出现大概也是因为这个原因。

附件代码我已经确认过了，可以正常运行。不过记得事先要按要求提供原始数据。
如果没有原始数据，也会出现【运行时错误：“13”类型不匹配】这样的错误→ 这个不是代码有问题。

香川递归代码学习.rar (11.94 KB, 下载次数: 131)

2013-5-25 23:53 上传

点击文件名下载附件

banjinjiu

香川群子 发表于 2013-5-25 23:51
代码本身没问题

但是代码最好放在模块中使用，而不要放在sheet代码页中。

谢谢香川老师，虽然不是太懂，慢慢的学，一定会懂的

xgy0214dxy

收藏，以后慢慢学习

longming3

彩票有福了，这个可以有

缘铭忆

留个记号，学习

一直向前走

香川群子 发表于 2012-7-10 20:35
如果考虑到，原始数据区域中可能包含空白单元格，要剔除，则代码修改如下：
另外，各个组合的所有各列元素 ...

看c++里有线性递归和迭代递归（尾部递归)的说法，香川老师这段感觉有点像迭代递归

一直向前走

香川群子 发表于 2012-7-10 20:48
顺便公开一下，标准组合、标准排列的递归代码：

还有，香川老师，9楼的排列递归组合。。赋值到工作表这一句。我很好奇的是，明明没有把数拆散，为什么会出现列组合，后面是这个组合的元素呢？在代码中好像没看到分列、分别添加到JG数组中啊？