用递归法解决问题2_精品文档.ppt

用递归法解决问题2_精品文档.ppt

《用递归法解决问题2_精品文档.ppt》由会员分享，可在线阅读，更多相关《用递归法解决问题2_精品文档.ppt（20页珍藏版）》请在冰豆网上搜索。

3.5用递归法解决问题用递归法解决问题“从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?

从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?

从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?

从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?

从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?

从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?

从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?

从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?

从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?

从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?

”这个故事有什么特点？

自己调用自己如果在一个函数中，它自己调用了自己，这种现象叫递归调用。

如果A函数调用B函数，B函数又反过来调用A函数，那这种现象也叫做递归调用。

如果一个函数在定义时，直接或间接的调用了自己，这种算法在程序设计中统称为递归法。

递归法一般需要递归法一般需要定义函数定义函数来实现。

来实现。

虽然VB为我们提供了大量的标准函数，但我们在实际应用时难免有时还是找不到合意的，那就只有自己解决了，这样为了一个特定的任务而编出来的函数叫自定义函数。

Abs（）、len（）、date（）、sqr（）、msgbox（）等二、自定义函数的作用二、自定义函数的作用1、可以方便的把较为复杂的问题分解成若干、可以方便的把较为复杂的问题分解成若干个小问题去处理。

个小问题去处理。

（公司里就是采用这种模式的。

公司里就是采用这种模式的。

）2、使程序结构清晰，层次分明，增强了程序、使程序结构清晰，层次分明，增强了程序的可读性。

的可读性。

一、标准函数一、标准函数VB给我们提供了一些标准函数，我们不用了解这些函数如何求出来的，只管直接调用它们，挺方便的。

如正弦函数，余弦函数，算术平方根有了这些函数，我们觉得很省事。

如：

求1加到100的算术平方根这个程序我们可以这样编写：

例1dimIasinteger,sassingles=0fori=1to100s=s+sqr（i）nextiprint（“s=“,s）在这个程序里，我们直接用到了求平方根函数，至于sqr

（1），sqr

（2）如何求出来的我们不需过问，只管直接用它的结果便是了。

象这样，VB给我们提供的，我们不用了解这些函数如何求出来的，只管直接调用它们的这类函数叫做标准函数。

二、用户自定义函数二、用户自定义函数我们来看看下面一个例子：

求：

1！

2！

3！

10！

？

如果要编写程序，我们看到求阶乘的操作要执行10次，只不过每次所求的数不同。

我们想：

不至于编写10遍求阶乘的程序吧。

我们希望有一个求阶乘的函数，假设为JS（X），那么我们就可以这样求这道题了：

例2dimIasinteger,jasintegerdimsasintegers=0fori=1to10s=s+js（i）nextiprint（“s=”,s）现在的问题是：

VB没提供JS（X）这样一个标准函数，这个程序是通不过的。

如果是VB的标准函数，我们可以直接调用，如前面的sqr（i），而VB提供给我们的可供直接调用的标准函数不多。

没关系，我们编写自己的函数！

三、函数编写三、函数编写在VB中，自定义函数形式如下：

PublicPrivateFunction（参数列表）As类型局部常量、变量定义语句组函数名称返回值EndFunctionPublic（公共的）-全局变量,指在所有程序（包括主程序和过程）中都可以使用的内存变量Private（私人的）-局部变量,用private语句声明的变量可被本窗体模块的任何过程访问，但其他模块却不能访问该变量参数列表：

参数列表：

ByVal|ByRef变量名变量名（）As类型类型表示该参数按值传递不会修改变量原来的值表示该参数按地址传递会直接改变原来的变量值例3编写一求阶乘的函数。

我们给此函数取一名字就叫JS。

FUNCTIONjs（nasinteger）asintegerdimIasinteger,sasintegers=1fori=1tons=s*inextijs=send自定义函数的调用,可以有三种格式:

变量=函数名称（参数）Call函数名称（参数）函数名称参数PrivateFunctiondaxiao（aAsInteger,bAsInteger）DimtAsIntegerIfabThent=aa=bb=tEndIfEndFunctionPrivateSubCommand1_Click（）DimxAsInteger,yAsIntegerx=5y=9Calldaxiao（x,y）Printx=;x,“y=;yEndSubPrivateSubCommand1_Click（）DimaAsInteger,bAsIntegera=5b=9Daxiaoa,bPrinta=;a,b=;bEndSub在VB中,说自定义函数,就不能不提子过程.子过程的定义如下:

Public|privatesubsub（参数列表）局部常量变量定义过程语句组过程语句组过程语句组过程语句组Endsub子过程和函数的本质是一样的,在VB中往往将函数看做特殊的子过程子过程与函数的区别:

关键字:

函数（Function）子过程（sub）返回值:

函数（可以有）子过程（无）调用格式:

变量=函数名称（参数）Call函数名称（参数）函数名称参数函数子过程Call函数名称（参数）函数名称参数使用递归算法必须要满足以下的递归条件：

使用递归算法必须要满足以下的递归条件：

（）存在递归结束条件及结束时的值（）能用递归形式表示，且递归向终止条件发展兔子繁殖问题有人养了一对兔子,这对兔子以后每月生一对兔子,新生兔子从第三个月开始,也是每月生一对兔子.从第三个月起,当月新生兔子数为前两月新生兔子数之和.问12个月后这人有多少对新生兔子?

1月2月3月4月5月问题分析问题分析问题分析问题分析Recursion

（1）=1Recursion

（2）=1Recursion（3）=Recursion

（2）+Recursion

（1）Recursion（4）=Recursion（3）+Recursion

（2）Recursion（5）=Recursion（4）+Recursion（3）图图3-25函数递归调用关系函数递归调用关系关于递归的例子关于递归的例子:

例例1:

1:

假设有如下假设有如下subsub过程过程:

Subs（xassingle,yassingle）Subs（xassingle,yassingle）t=xt=xx=t/yx=t/yy=tmodyy=tmodyEndsubEndsubPrivatesubcommand1_click（）Privatesubcommand1_click（）dimaassingledimaassingledimbassingledimbassinglea=5a=5b=4b=4sa,bsa,b函数名称函数名称参数参数Printa,bPrinta,bEndsubEndsub例例2:

在窗体上画一个名称为在窗体上画一个名称为command1的命令按钮的命令按钮,然后编写然后编写如下通用过程和命令按钮的事件过程如下通用过程和命令按钮的事件过程:

Privatefunctionfun（byvalmasinteger）Ifmmod2=0thenfun=2elsefun=1endifEndfunctionPrivatesubcommand1_click（）dimIasinteger,sasintegers=0ForI=1to5s=s+fun（I）NextIPrintsEndsub例例3:

单击命令按钮时单击命令按钮时,下列程序的执行结果为下列程序的执行结果为（）Privatesubcommand1_click（）Dimxasinteger,yasintegerX=12:

y=32Callproc（x,y）Printx;yEndsubPublicsubproc（nasinteger,byvalmasinteger）N=nmod10EndsubA、1232B、232C、23D、123