用递归法解决问题

1、黄学鸿“从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?

2、从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?”这个故事有什么特点？自己调用自己如果在一个函数中，它自己调用了自己，这种现象叫递归调用。如果A函数调用B函数，B函数又反过来调用A函数，那这种现象也叫做递归调用。如果一个函数在定义时，直接或间接的调用了自己，这种算法在程序设计中统称为递归法。递归法一般需要递归法一般需要定义函数定义函数来实现。来实现。 虽然VB为我们提供了大量的标准函数，但我们在实际应用时难免有时还是找不到合意的，那就只有自己解决了，这样为了一个特定的任务而编出来的函数叫自定义函数。Abs()、len()、date()、sqr()、msgbox()等二、自定义函

3、数的作用二、自定义函数的作用 1、可以方便的把较为复杂的问题分解成若干、可以方便的把较为复杂的问题分解成若干个小问题去处理。个小问题去处理。(公司里就是采用这中模式的。公司里就是采用这中模式的。) 2、使程序结构清晰，层次分明，增强了程序、使程序结构清晰，层次分明，增强了程序的可读性。的可读性。 一、标准函数一、标准函数 VB给我们提供了一些标准函数，我们不用了解这些函数如何求出来的，只管直接调用它们，挺方便的。如正弦函数，余弦函数，算术平方根有了这些函数，我们觉得很省事。如：求1加到100的算术平方根这个程序我们可以这样编写：例1 dim I as integer, s as single

4、s=0 for i=1 to 100 do s=s+sqr(i) next i writeln(s=,s) 在这个程序里，我们直接用到了求平方根函数，至于sqr（1），sqr（2）如何求出来的我们不需过问，只管直接用它的结果便是了。 象这样，VB给我们提供的，我们不用了解这些函数如何求出来的，只管直接调用它们的这类函数叫做标准函数。二、用户自定义函数二、用户自定义函数 我们来看看下面一个例子：求：1！2！3！10！？如果要编写程序，我们看到求阶乘的操作要执行10次，只不过每次所求的数不同。我们想：不至于编写10遍求阶乘的程序吧。我们希望有一个求阶乘的函数，假设为JS（X），那么我们就可以这样求

5、这道题了：例2 dim I as integer, j as integer dim s as integer s=0 for i=1 to 10 do s=s+js(i) next i writeln(s=,s)现在的问题是：VB没提供JS（X）这样一个标准函数，这个程序是通不过的。如果是PASCAL的标准函数，我们可以直接调用，如前面的sqr(i)，而PASCAL提供给我们的可供直接调用的标准函数不多。没关系，我们编写自己的函数！三、函数编写三、函数编写在VB中，自定义函数形式如下：PublicPrivate Function (参数列表)As 类型 局部常量、变量定义 语句组 函数名称返

6、回值End FunctionPublic(公共的)-全局变量,指在所有程序（包括主程序和过程）中都可以使用的内存变量Private(私人的)-局部变量,用private语句声明的变量可被本窗体模块的任何过程访问，但其他模块却不能访问该变量参数列表：参数列表： ByVal | ByRef 变量名变量名 ( ) As 类型类型 表示该参数按值传递不会修改变量原来的值表示该参数按地址传递会直接改变原来的变量值例3 编写一求阶乘的函数。我们给此函数取一名字就叫JS。fUNCTION js(n as integer) as integer dim I as integer, s as integer s

7、=1 for i=1 to n do s=s*i next i js=s end自定义函数的调用,可以有三种格式:变量=函数名称(参数)Call 函数名称(参数)函数名称 参数Private Function daxiao(a As Integer, b As Integer)Dim t As IntegerIf a b Then t = a a = b b = tEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 5b = 9Call daxiao(a, b)Print a=; a,

8、b=; bEnd SubPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 5b = 9Daxiao a, bPrint a=; a, b=; bEnd Sub在VB中,说自定义函数,就不能不提子过程.子过程的定义如下:Public|private (参数列表)局部常量 变量定义End sub子过程和函数的本质是一样的,在VB中往往将函数看做特殊的子过程子过程与函数的区别:关键字:函数(Function) 子过程(sub)返回值:函数(可以有) 子过程(无)调用格式:变量=函数名称(参数)Call 函数名称(参数)函数名称

9、 参数函数子过程Call 函数名称(参数)函数名称 参数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过程过程: :Sub s(x as single,y as single)Sub s(x as single,y as single) t=x t=x

10、 x=t/y x=t/y y=t mod y y=t mod yEnd subEnd subPrivate sub command1_click()Private sub command1_click() dim a as single dim a as single dim b as single dim b as single a=5 a=5 b=4 b=4 s a,b s a,b 函数名称函数名称 参数参数Print a,bPrint a,bEnd subEnd sub例例2:在窗体上画一个名称为在窗体上画一个名称为command1的命令按钮的命令按钮,然后编写然后编写如下通用过程和命令按钮的事件过程如下通用过程和命令按钮的事件过程:Private function fun(byval m as integer)If m mod 2 =0 then fun=2 else fun=1 end if End functionPrivate sub command1_click() dim I as integer,s as integer s=0 For I=1 to 5 s=s+fun(I)Next IPrint sEnd sub例例3:单击命令按钮时单击命令按钮时,下列程序的执行结果为下列程序的执行结果为( )Private sub c