过程调用习题讲解.doc

江苏省无锡立信职教中心校教案课 题过程调用习题讲解课 型讲 授授课日期授课时数2教学目标掌握Function过程的定义和调用。掌握sub过程及按值、按地址传递的区别等。教学重点Function过程的定义和调用教学难点调用过程学情分析学生掌握了Sub过程的定义和调用。板书设计复习上节课的内容一、Function过程1. 定义2. 调用 二、举例学生练习总结教学后记通过习题讲解，有效地对前面所学知识进行了系统复习。江苏省无锡立信职教中心校备课笔记教 学 内 容学生活动复习提问 1 Sub过程分两大类（事件过程，自定义过程）2Sub过程的定义和调用格式引入通过上节课对 Sub过程的学习，我们对过程的概念、如何定义和调用过程已经有所了解，这节课学习如何定义和调用 Function过程。 新授一、Function过程1.定义：Private|PublicStatic Function 函数名 （参数列表）AS 数据类型局部变量和常数声明语句块函数名=表达式Exit Function语句块函数名=表达式End Function例：求n!的函数过程Private Function Fact(ByVal N As Integer) As LongDim k As IntegerFact=1If N=0 ThenExit FunctionElseFor k=1 To NFact=Fact*kNextEnd IfEnd FunctionPrivate Sub Form_Click()Dim x As IntegerX=Fact(3)Print “x=”;xEnd Sub2.Function过程调用1)用Call语句调用Sub过程Call （实参表）2)把过程名作为一个语句来使用过程名实参1，实参2，3)变量=函数名（参数列表） 若把函数返回值赋值给另一变量时，实际参数必须放在括号内；若不需要把返回值进行赋值，仅仅调用函数，则在实际参数两侧可以不加括号。例：得用Function过程编写一个求两个正整数的最大公约数的程序。Private Function Gcd(ByVal A As Integer, ByVal B As Integer) Dim R As IntegerR=A Mod BDo While R0 A=B B=R R=A Mod BLoopGcd=BEnd FunctionPrivate Sub Form_Click()Dim N As Integer, M As Integer,G As IntegerN=InputBox(“输入N”)M=InputBox(“输入M”)Print N；“和”；M；“的最大公约数是：”;GEnd Sub二、 举例1以下程序可定义一个计算圆面积的过程1在command1 click()中调用Sub过程2在command1 click()中调用Function过程 思考问题个别回答听讲做笔记听理解听讲做笔记听理解学生练习学生练习1 public sub circle(r) Private sub command1 click()const pi=3.1415926 dim rdim area as integer r=inputbox(“请输入圆半径”)area=pi*r*r circle rmsgbox(“圆的面积”&area) End Sub End Sub2 public Function circle(r) Private sub command1 click()const pi=3.1415926 dim r r=inputbox(“请输入圆半径”)area=pi*r*r EndSub msgbox(“圆的面积”) circle rEnd Sub2.有一Sub过程如下：Sub s(x As Single,y As Single)T=xX=t/yY=t Mod yEnd Sub调用的事件过程如下：Private Sub Commmand1_Click()Dim a As Single, b As Singlea=5b=4s a,bPrint a,bEnd Sub则程序运行后，单击命令按钮时输出为1.25 13. 运行下面的程序，单击窗体后在窗体上显示的第一行结果是3；第二行结果是2。Private Function Digit(n As Integer, k As Integer)As Integer Digit=0 Private Sub Form_Click()Do While k