子程序与函数过程

《子程序与函数过程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第6章子程序与函数过程本章内容子程序过程（2）函数过程（4）过程之间参数传递（3）变量的作用域（1）讲课次序子程序过程的定义定义格式：[Static][Private

2、Public]Sub子程序名([形参列表])语句组1[ExitSub]语句组2EndSub[ByVal｜ByRef]变量名[()][As类型][,…]提前结束子程序过程只能被本窗体中的过程调用能被程序中的所有过程调用。在模块中定义，调用时直接用过程名；在窗体中定义，调用须加该过程所在窗体名子程序过程的定义【实例6.1】交换两个整型变量值的子过程Priv

3、ateSubSwap(XAsInteger,YAsInteger)DimtempAsIntegerTemp=X:X=Y:Y=TempEndSub测试：参数的传递过程——值传递和地址传递，用下过程。PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=5CallSwap(a,b)Printa,bEndSub子程序过程的建立【工具】

4、【添加过程】子程序过程的调用子程序过程的调用格式Call过程名[(实际参数)]过程名[实际参数]必须有确定值个数、类型必须与形参一一对

5、应子程序过程的调用【实例6.2】试编写一个无参数的sub子过程Formmove()，它的功能是将当前正在运行的窗体移动到屏幕的中央。代码编写Fommove()子过程代码PublicSubformmove()Form1.Top=(Screen.Height-Form1.Height)/2Form1.Left=(Screen.Width-Form1.Width)/2EndSub代码编写移动按钮代码PrivateSubCommand1_Click()CallFormmoveEndsub函数过程函数过程的定义函数过程的调用函

6、数过程的定义函数过程的一般定义格式[Static][Private

7、Public]Function函数名([形参列表])[As类型]语句组1[函数名＝返回值ExitFunction]语句组2函数名＝返回值EndFunction必有该语句提前结束函数函数过程的调用函数过程的调用格式变量名=函数名(实际参数)注意：必须有确定值个数、类型必须与形参一一对应例：定义求an值的函数。PublicFunctionan(aAsInteger,nAsInteger)x=1Fori=1Tonx=x*aNextian=xEndFunct

8、ion求最大公约数及最小公倍数PrivateFunctionGcd(mAsInteger,nAsInteger)DimrAsInteger,tAsIntegerIfm0)Gcd=mEndFunctionm*n/Gcd((m),(n))函数过程的调用【实例6-3】编写一个函数过程，统计一串字符中某个字符的出现次数，通过调用函数过程实现。代码编写代码编写函数过程代码PublicFunctionstatistic(str$,

9、s$)AsIntegerDimk%,i%k=0Fori=1ToLen(str)IfMid(str,i,1)=sThenk=k+1EndIfNextistatistic=kEndFunction代码编写统计按钮代码PrivateSubcmdstat_Click()Dimc1$,c2$,m%c1=txtin.Textc2=txtsearch.Textm=statistic(c1,c2)txtcount.Text=mEndSub函数过程的调用【实例6-4】某班有m名学生，要选派n名学生参加合唱队，计算有多少种选派方法。编写

10、代码计算阶乘的函数过程PublicFunctionfactorial(ByValnAsInteger)AsDoubleDimiAsInteger,tAsDoublet=1Fori=1Tont=t*iNextifactorial=tEndFunction编写代码计算按钮代码：PrivateSubcmdcount_Click()DimmAsInteger,nAsInteger,cAsDoublem=Val(txtstudent.Text)n=Val(txtneed.Text)c=factorial(m)/(factori

11、al(n)*factorial(m-n))lblways.Caption=Str(c)EndSub过程之间参数的传递传地址与传值传值方式在形参前加关键字ByVal，指定该参数是传值方式例如：PrivateSubw(ByValn%)传地址方式在形参前加关键字ByRef或缺省关键字，则指定该参数是传地址方式。例如：PrivateSubw(ByRef