【Access基础】猴子吃桃问题

时　间:2013-03-29 08:56:06
作　者:缪炜   ID：24010  城市：江阴
摘　要:今天我们来讨论一下递归算法
正　文:

递归对于初学者似乎有点难度，但我们还是要来学习学习，就用一些简单的示例来说明一下。

有一只猴子每天吃现有桃子的一半，再加1个桃子，到第9天吃完的时候，发现只剩下1个桃子了。请计算最初有几个桃子？

这样一个问题看似非常的简单的，但是用上递归的方法来计算会是怎么样一个情况呢？

普通的计算方法：

Private Sub Command1_Click()
Dim a, b, s As Integer
a = 1'第9天吃完后就是这一个了，令a=1
For i = 9 To 1 Step -1 '吃之前的桃子数 ，从第九天吃之前开始算起
a = (a + 1) * 2 '每天吃之前剩的桃子数
Next
Print a
End Sub
结果1534个，不是知道是什么猴子这么能吃。。。。

递归的计算方法：

Dim t As Integer

Function Tao(i As Integer) As Integer
If i < 10 Then '如果i<10则条件成立
t = (t + 1) * 2 计算前一天桃子的个数
i = i + 1 '再推前一天
Tao (i) '递归
End If
End Function

Private Sub Command1_Click()
t = 1
Tao (1) '调用Tao
Print t    '结果t=1534
End Sub

貌似用递归感觉代码没有变短，反而变长了，那我们就在想递归方法合适不合适，弄的不好有时候还会造成死循环，既然这样我们再看一个例子。

求6的阶乘，代码如下：

Private Sub Command0_Click()
MsgBox "6的阶乘" & JC(6)
MsgBox "6的阶乘(递归)" & fun(6)
End Sub

’普通的计算方法
Function JC(ByVal K As Integer) As Integer
Dim a, i As Integer
a = 1
For i = 1 To K
a = a * i
Next i
JC = a
End Function

‘递归计算方法
Function fun(ByVal num As Integer) As Integer
    If num > 0 Then fun = num * fun(num - 1) Else fun = 1
End Function

到这里我们就可以看出代码上的不同了，省了大量的代码，但是我还是建议大家在不熟悉递归算法时，还是少用，因为非常容易造成死循环