子程序与函数过程

子程序与函数过程

ID:39333710

大小:1.53 MB

页数:43页

时间:2019-07-01

子程序与函数过程_第1页
子程序与函数过程_第2页
子程序与函数过程_第3页
子程序与函数过程_第4页
子程序与函数过程_第5页
资源描述:

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

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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。