![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=1739602268-QHT8iJF8Ms8va2SjIOYNKflkl7ba4k9x-0-19449666f6651aad10554d7c48cfe7b0)
◎应用实例
素材\第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=1739602268-9j7Ux9Bqq1qRmA08SM7ltYX689rLPjr2-0-4ccf037577d3953c63fb992be2088cc8)
◎执行过程
保存编写的VBA代码,将“F_计算阶乘”窗体的视图模式切换到窗体视图,在第一个文本框中输入欲求阶乘的数字,单击“计算阶乘”按钮,如图1-25所示。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00052001.jpg?sign=1739602268-M3H5RWv0lDPptxgQoHpehgQytMmTwGRT-0-de45664f20e09ea45eaee048a410b3f5)
图1-25 通过递归调用求解阶乘