做事可以失败做人不课件六章过程.pptxVIP

做事可以失败，做人不可以失败。做人成功了，一切便都成功了。－－净宗法师

第六章过程6.1函数过程的定义与调用6.2子过程的定义与调用6.3参数传递6.4递归6.5综合应用本章目录

6.1函数过程的定义和调用6.1.1引例6.1已知多边形各条边的长度，计算多边形的面积。计算多边形面积，可将多边形分解成若干个三角形。计算三角形面积的公式如下：本章目录

6.1.1引例定义函数过程areaPublicFunctionarea(x!,y!,z!)AsSingleDimc!c=1/2*(x+y+z)area=Sqr(c*(c-x)*(c-y)*(c-z))EndFunctionSubcommand1_click()…输入若干个三角形边长S=area(a,b,c)+area(c,d,e)+area(e,f,g)PrintSEndSub调用函数过程本章目录

6.1.2函数过程的定义 在窗体、模块等的代码窗口把插入点放在所有现有过程之外，直接输入函数过程。定义函数过程的形式如下：[Public|Private]Function函数过程(形参)[As类型]变量声明语句块Return表达式或函数名=表达式EndFunction本章目录

函数过程的定义Public全局函数过程，可被程序任何模块调用Private仅供本模块中的其它过程调用形参(或称哑元)只能是变量或数组名(),仅表示参数的个数、类型，无值。例6.2编一求最大公约数的函数过程Functiongcd(m%,n%)AsIntegerIfmnThent=m:m=n:n=tDowhilen0r=mModn：m=n：n=rLoopgcd=mEndFunction本章目录

6.1.3函数过程的调用调用形式：函数过程名([参数列表])参数列表(称为实参或实元)：必须与形参个数相同，位置与类型一一对应。可以是同类型的常量、变量、表达式。SubForm1_Click(……)HandlesMyBase.ClickDimx%,y%,z%x=124:y=24z=gcd(x,y)MsgBox(最大公约数是z)EndSub程序运行流程Functiongcd(m%,n%)AsIntegerIfmnThent=m:m=n:n=tDowhilen0r=mModn：m=n：n=rLoopgcd=mEndFunctionFunctiongcd(m%,n%)AsIntegerIfmnThent=m:m=n:n=tDowhilen0r=mModn：m=n：n=rLoopgcd=mEndFunction本章目录调用演示

函数过程的调用例6.3编一函数，统计字符串中汉字的个数。分析：在VB.NET中，字符以Unicode码存放，每个汉字和英文是一个字符、占有两个字节，区别是汉字的机内码最高位为1，若利用Asc函数求其码值为小于0（以补码表示），而西文字符的最高位为0，Asc函数求其码值为大于0本章目录

6.2子过程的定义与调用6.2.1引例以下情况使用函数过程存在不足：不是为了获得某个函数值，而是为了某种功能的处理。要获得多个结果。VB.NET中提供了使用更灵活的子过程。例6.4编一过程，对Label1控件进行移动，通过参数Tag的值（1或-1）决定移动方向。该过程不是为了计算获得某个结果，而是进行对控件移动的处理。本章目录

6.2.2子过程的定义子过程定义的方法同函数过程，形式如下：Sub子过程名[(参数列表)]局部变量或常数定义语句[ExitSub]语句EndSub子过程名、形参同函数过程中对应项的规定，当无形参时不要括号。本章目录

子过程与函数过程的区别把某功能定义为函数过程还是子过程，没有严格的规定。