过程调用习题讲解

过程调用习题讲解

ID:33888080

大小:50.00 KB

页数:5页

时间:2019-03-01

过程调用习题讲解_第1页
过程调用习题讲解_第2页
过程调用习题讲解_第3页
过程调用习题讲解_第4页
过程调用习题讲解_第5页
资源描述:

《过程调用习题讲解》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、江苏省无锡立信职教中心校教案课题过程调用习题讲解课型讲授授课日期授课时数2教学目标掌握Function过程的定义和调用。掌握sub过程及按值、按地址传递的区别等。教学重点Function过程的定义和调用教学难点调用过程学情分析学生掌握了Sub过程的定义和调用。板书设计复习上节课的内容一、Function过程1.定义2.调用二、举例学生练习总结教学后记通过习题讲解,有效地对前面所学知识进行了系统复习。江苏省无锡立信职教中心校备课笔记教学内容学生活动[复习提问]1.Sub过程分两大类(事件过程,自定义过程)2.Sub过程的定义和调用格式[引入]通过上节课对Sub过程的学习,我们对过程的概念、

2、如何定义和调用过程已经有所了解,这节课学习如何定义和调用Function过程。[新授]一、Function过程1.定义:[Private

3、Public][Static]Function函数名([参数列表])[AS数据类型][局部变量和常数声明][语句块][函数名=表达式][ExitFunction][语句块][函数名=表达式]EndFunction例:求n!的函数过程PrivateFunctionFact(ByValNAsInteger)AsLongDimkAsIntegerFact=1IfN=0ThenExitFunctionElseFork=1ToNFact=Fact*kNextEn

4、dIfEndFunctionPrivateSubForm_Click()DimxAsInteger思考问题个别回答听讲做笔记听理解X=Fact(3)Print“x=”;xEndSub2.Function过程调用1)用Call语句调用Sub过程Call<过程名>(实参表)2)把过程名作为一个语句来使用过程名[实参1[,实参2,…]]3)变量=函数名([参数列表])若把函数返回值赋值给另一变量时,实际参数必须放在括号内;若不需要把返回值进行赋值,仅仅调用函数,则在实际参数两侧可以不加括号。例:得用Function过程编写一个求两个正整数的最大公约数的程序。PrivateFunctionGcd

5、(ByValAAsInteger,ByValBAsInteger)DimRAsIntegerR=AModBDoWhileR<>0A=BB=RR=AModBLoopGcd=BEndFunctionPrivateSubForm_Click()DimNAsInteger,MAsInteger,GAsIntegerN=InputBox(“输入N”)M=InputBox(“输入M”)PrintN;“和”;M;“的最大公约数是:”;GEndSub一、举例1以下程序可定义一个计算圆面积的过程1>在command1click()中调用Sub过程听讲做笔记听理解学生练习学生练习2>在command1cli

6、ck()中调用Function过程1>publicsubcircle(r)Privatesubcommand1click()constpi=3.1415926dimrdimareaasintegerr=inputbox(“请输入圆半径”)area=pi*r*rcirclermsgbox(“圆的面积”&area)EndSubEndSub2>publicFunctioncircle(r)Privatesubcommand1click()constpi=3.1415926dimrr=inputbox(“请输入圆半径”)area=pi*r*rEndSubmsgbox(“圆的面积”)circler

7、EndSub2.有一Sub过程如下:Subs(xAsSingle,yAsSingle)T=xX=t/yY=tModyEndSub调用的事件过程如下:PrivateSubCommmand1_Click()DimaAsSingle,bAsSinglea=5b=4sa,bPrinta,bEndSub则程序运行后,单击命令按钮时输出为1.2513.运行下面的程序,单击窗体后在窗体上显示的第一行结果是3;第二行结果是2。PrivateFunctionDigit(nAsInteger,kAsInteger)AsIntegerDigit=0PrivateSubForm_Click()DoWhilek>

8、0PrintDigit(1234,2)Digit=nMod10PrintDigit(1234,3)N=n10EndSubK=k-1LoopEndFunction总结布置作业

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

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

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