[医学]vb课件-第6章

《[医学]vb课件-第6章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第六章过程6.1函数过程的定义与调用6.2子过程的定义与调用6.3参数传递6.4递归6.5综合应用本章目录过程的引入:使同类的操作不重复编写，写一次多次用把一项复杂的工作分成简单的功能块,分而治之过程:完成一段独立功能，可供其他过程使用(调用)调用过程:调用其他过程的过程调用过程:调用Sprg1调用Sprg1调用Sprg2子过程:Sprg1子过程:Sprg2常用过程分类:Sub过程Function过程事件过程自定义子过程内部函数(标准函数）自定义函数过程1）过程是一段程序代码，是相对独立的逻辑模块2）一个完整的VB应用

2、程序由若干过程和模块组成本节主要介绍用户自定义的过程Sub子过程：完成一定的操作和功能，无返回值Function函数过程：完成一定的操作和功能，并且可将数据处理的结果返回6.1函数过程的定义和调用引例6.1已知多边形各条边和对角线的长度，计算多边形的面积计算多边形面积，可将多边形分解成若干个三角形。计算三角形面积的公式如下：本章目录6.1.1引例定义函数过程areaFunctionarea(x!,y!,z!)AsSingleDimc!c=1/2*(x+y+z)area=Sqr(c*(c-x)*(c-y)*(c-z))E

3、ndFunctionSubcommand1_click()…输入若干个三角形边长S=area(a,b,c)+area(c,d,e)+area(e,f,g)Msgbox(“面积=”&S)EndSub调用函数过程本章目录6.1.2函数过程的定义在窗体、模块等的代码窗口把插入点放在所有现有过程之外，直接输入函数过程。定义函数过程的形式如下：[Public

4、Private]Function函数过程(形参)[As类型]变量声明语句块Return表达式或函数名=表达式EndFunction本章目录函数过程的定义Public全局函数

5、过程，可被程序任何模块调用Private仅供本模块中的其它过程调用形参(或称哑元)只能是变量或数组名(),仅表示参数的个数、类型，无值例6.2编一求最大公约数的函数过程Functiongcd(ByValm%,ByValn%)AsIntegerIfm0m=n：n=r:r=mModnLoopgcd=nEndFunction本章目录6.1.3函数过程的调用调用形式：函数过程名([参数列表])参数列表(称为实参或实元)：必须与形参个数相同，位置与类型一一对应。

6、可以是同类型的常量、变量、表达式SubForm_ClickDimx%,y%,z%x=124:y=24z=gcd(x,y)MsgBox("最大公约数是"&z)EndSub程序运行流程Functiongcd(m%,n%)AsIntegerIfm0m=n：n=r:r=mmodnLoopgcd=nEndFunctionSubForm_ClickDimx%,y%,z%x=124:y=24z=gcd(x,y)Functiongcd(m%,n%)AsIntegerI

7、fm0m=n：n=r:r=mmodnLoopgcd=nEndFunctionMsgBox("最大公约数是"&z)EndSub本章目录调用演示函数过程的调用例6.3编一函数，统计字符串中汉字的个数。分析：在VB中，字符以Unicode码存放，每个汉字和英文是一个字符、占有两个字节，区别是汉字的机内码最高位为1，若利用Asc函数求其码值为小于0（以补码表示），而西文字符的最高位为0，Asc函数求其码值为大于0本章目录6.2子过程的定义与调用6.2.1引例以

8、下情况使用函数过程存在不便：不是为了获得某个函数值，而是为了某种功能的处理要获得多个结果VB中提供了使用更灵活的子过程例6.4编一过程，对Label1控件进行移动，通过参数Tag的值（1或-1）决定移动方向该过程不是为了计算获得某个结果，而是进行对控件移动的处理本章目录6.2.2子过程的定义子过程定义的方法同函数过程，形式如下：Sub子过程名[(参数列表)]局部变量或常数定义语句[ExitSub]语句EndSub子过程名、形参同函数过程中对应项的规定本章目录子过程与函数过程的区别把某功能定义为函数过程还是子过程，没有严

9、格的规定。一般若程序有一个返回值时，使用函数过程直观；当有多个返回值时，习惯用子过程函数过程必须有返回值，函数名有类型。子过程名没有值，过程名也就没有类型，不能在子过程体内对子过程名赋值！本章目录参数问题形参是过程与主调程序交互的接口，从主调程序获得初值，或将计算结果返回给主调程序不要将过程中所有使用过的变量均作为形参。例6.5找