![Access VBA活用范例手册](https://wfqqreader-1252317822.image.myqcloud.com/cover/199/26178199/b_26178199.jpg)
上QQ阅读APP看书,第一时间看更新
015 递归调用中的参数传递
◎过程、模块与语句:If…Then…Else语句、递归调用
Function程序在其他程序中的调用与系统内置的函数的方式相同,可参考实例007。
在程序设计中,递归调用是一种应用得比较广泛的算法,通过直接或者间接地调用函数自身,从而方便地解决许多复杂的问题,其具体的语法格式如下所示。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00050001.jpg?sign=1739353129-hSiANdiCECPBuf3vnh1XQTXMWfVgGKLP-0-40d4862b6b483a10d285cab61f50b8a1)
◎应用实例
素材\第1章\递归调用中的参数传递.accdb
本例需要使用递归调用来创建一个求解阶乘的函数,并调用该函数求解阶乘。
◎案例操作
01 在窗体中插入两个文本框和“计算阶乘”按钮。
02 在代码窗口中创建Function函数“阶乘”。
03 在代码窗口插入“cmd_阶乘_Click”事件过程。
04 执行运行程序,查看程序运行效果。
◎过程源代码
源文件\第1章\递归调用中的参数传递.accdb
创建Function程序“阶乘”和“计算阶乘”按钮的单击事件过程,编写VBA代码,其具体的VBA代码如下。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00051001.jpg?sign=1739353129-wbEtdIiheeU9JjyLDTxy6FGalP39fEhD-0-107dce7ac60a81af46986ce43d4295b1)
◎执行过程
保存编写的VBA代码,将“F_计算阶乘”窗体的视图模式切换到窗体视图,在第一个文本框中输入欲求阶乘的数字,单击“计算阶乘”按钮,如图1-25所示。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00052001.jpg?sign=1739353129-JLzPjnPWENBrObmvjj5pOnPJCgVz8inK-0-bd12d52baf0c2f1ab8f158bf88344eef)
图1-25 通过递归调用求解阶乘