过程调用习题讲解.docVIP

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