过程调用习题讲解

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

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总结布置作业