Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

【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

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



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助