第七章过程精选文档.ppt

《第七章过程精选文档.ppt》由会员分享，可在线阅读，更多相关《第七章过程精选文档.ppt（68页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第七章 过程本讲稿第一页，共六十八页7.1 通用过程通用过程7.2 常用算法举例常用算法举例第七章 过程本讲稿第二页，共六十八页7.1 通用过程通用过程 7.1.1 通用过程概念通用过程概念 7.1.2 参数传递参数传递 7.1.3 过程的嵌套与递归调用过程的嵌套与递归调用 7.1.4 变量、过程的作用域变量、过程的作用域第七章 过程本讲稿第三页，共六十八页 引例:已知多边形的各条边的长度,要计算多边形的面积。a ab bd df fg ge ec cs3s3s2s2s1s1求三角形面积的代码重复使用了三次第七章 过程本讲稿第四页，共六十八页 解解决决办办法法：对对于于重重复复使使用用的的程程

2、序序段段，可可以以自自定定义一个义一个函数函数过程过程，供多次调用，供多次调用第七章 过程本讲稿第五页，共六十八页 7.1.1 通用过程概念及分类通用过程概念及分类Function过程(函数过程)。第七章 过程Sub过程(子过程)本讲稿第六页，共六十八页7.1.1.1 Function过程过程1.Function过程的定义过程的定义第七章 过程利用代码窗口直接定义通用过程利用代码窗口直接定义通用过程 Public|PrivateStatic Function 函数名函数名(形参表形参表)As 数据类型数据类型 语句组语句组 函数名函数名=表达式表达式 Exit Function 语句组语句组

3、函数名函数名=表达式表达式 End Function本讲稿第七页，共六十八页利用“工具”菜单下的“添加过程”命令定义过程第七章 过程本讲稿第八页，共六十八页2.Function过程的调用过程的调用 格式二（独立作为语句）格式二（独立作为语句）Function过程名过程名(参数列表参数列表)第七章 过程 格式一（作为语句的一部分）：格式一（作为语句的一部分）：a=Function过程名过程名(参数列表参数列表)本讲稿第九页，共六十八页 引例:已知多边形的各条边的长度,要计算多边形的面积。a ab bd df fg ge ec cs3s3s2s2s1s1第七章 过程本讲稿第十页，共六十八页例例:编

4、写函数过程求编写函数过程求s=3!+5!+11!。第七章 过程本讲稿第十一页，共六十八页7.1.1.2 Sub过程过程1.Sub过程的定义过程的定义第七章 过程利用代码窗口直接定义通用过程其格式为:Private|Public Static Sub 过程名(参数表)语句组 Exit Sub 语句组 End Sub本讲稿第十二页，共六十八页2.Sub过程的调用过程的调用 直接使用过程名调用直接使用过程名调用Sub过程，即把过程名作过程，即把过程名作为一个语句来使用，格式如下：为一个语句来使用，格式如下：过程名过程名 参数列表参数列表 使用使用Call语句调用语句调用Sub过程。格式如下过程。格式

5、如下 Call 过程名过程名(参数列表参数列表)第七章 过程本讲稿第十三页，共六十八页7.1.2 参数传递参数传递第七章 过程本讲稿第十四页，共六十八页7.1.2.1 形式参数与实际参数的概念形式参数与实际参数的概念 形式参数第七章 过程 (简称形参)是指在定义过程时，在过程头(指Sub或Fuction语句行)的参数列表中出现的变量名和数组名，在过程体中被引用。本讲稿第十五页，共六十八页 实际参数第七章 过程(简称实参)是调用过程时，在过程名后的参数列表中出现的变量名、数组名、常量或表达式。本讲稿第十六页，共六十八页7.1.2.2 参数按地址传递和按值传递参数按地址传递和按值传递第七章 过程2

6、.按值传递参数按值传递参数1.按地址传递参数按地址传递参数本讲稿第十七页，共六十八页判断参数传递方式的原则：原则一：定义通用过程时的形参前是否有关键字ByVal或ByRef，若为ByVal 按值传递 若为ByRef 按地址传递 原则二：事件过程中调用通用过程时实参的形式 常量、表达式常量、表达式 按值传递按值传递 变量、数组变量、数组 按地址传递按地址传递第七章 过程本讲稿第十八页，共六十八页1.按地址传递参数按地址传递参数 让过程根据变量的内存地址去访问实际变量的内容，即形式参数与实际参数使用相同的内存地址单元，这样通过子过程就可以改变变量本身的值。第七章 过程本讲稿第十九页，共六十八页Pr

7、ivate Sub Swap(x As Integer,y As Integer)Dim tmp As Integer tmp=x:x=y:y=tmpEnd Sub第七章 过程Private Sub Form_Click()Dim a As Integer,b As Integer a=10:b=15 Print 调用交换函数过程前：a=;a,b=;b Swap a,b Print 调用交换函数过程后：a=;a,b=;bEnd Sub本讲稿第二十页，共六十八页事件过程：通用过程：ab1015xy按地址传递按地址传递按地址传递按地址传递tmp101510本讲稿第二十一页，共六十八页第七章 过程例

8、：例：Public Sub Mysub3(ByVal x As Integer,y As Integer)x=y+x y=x Mod yEnd SubPrivate Sub Form_Click()Dim a As Integer,b As Integer a=11:b=22 Call Mysub3(a,b)Print a;bEnd Sub A.33 11 B.11 11 C.11 22 D.22 11本讲稿第二十二页，共六十八页2.按值传递参数 传递的只是变量的副本，如果过程改变了这个值，则所做的变动只影响副本而不会影响变量本身。第七章 过程本讲稿第二十三页，共六十八页Private Sub

9、 Swap(ByVal x As Integer,ByVal y As Integer)Dim tmp As Integer tmp=x:x=y:y=tmpEnd Sub第七章 过程Private Sub Form_Click()Dim a As Integer,b As Integer a=10:b=15 Print 调用交换函数过程前：a=;a,b=;b Swap a,b 按值传递参数 Print 调用交换函数过程后：a=;a,b=;bEnd Sub本讲稿第二十四页，共六十八页1510事件过程：通用过程：ab1015xy按按值值传递传递按按值值传递传递tmp101510本讲稿第二十五页，共

10、六十八页例：例：Public Sub Mysub4(x As Integer)x=3*x-1 If x 5 Then x=x+9 Print x;End SubPrivate Sub Form_Click()x=1 Mysub4 3+x Print xEnd SubA.20 1 B.20 14 C.11 1 D.11 14本讲稿第二十六页，共六十八页例;以下程序段运行后，单击窗体显示的结果是 。Public Sub Mysub2(x,t)t=0 For k=1 To x t=t+k NextEnd SubPrivate Sub Form_Click()Dim b As Integer,y As

11、 Integer Call Mysub2(3,b)y=b Call Mysub2(4,b)Print y+bEnd SubA.13 B.16 C.19 D.21本讲稿第二十七页，共六十八页7.1.4 变量、过程的作用域变量、过程的作用域第六章 过程通用过程(变量、过程的作用域)本讲稿第三十六页，共六十八页7.1.4.1 代码模块的概念代码模块的概念第六章 过程通用过程(变量、过程的作用域)1 1窗体模块窗体模块 2 2标准模块标准模块 3 3类模块类模块VB应用程序.VBP窗体模块.Frm类模块.Cls标准模块.Bas函数过程（Function）Sub过程事件过程函数过程（Function）S

12、ub过程本讲稿第三十七页，共六十八页第六章 过程通用过程(变量、过程的作用域)7.1.4.2 变量的作用域变量的作用域 1过程级变量过程级变量 2模块级变量模块级变量本讲稿第三十八页，共六十八页7.1.4.3 变量的生成期变量的生成期 1.动态变量动态变量 2.静态变量（静态变量（Static）第六章 过程通用过程(变量、过程的作用域)本讲稿第三十九页，共六十八页例：运行下列程序段后，单击窗体，显示结果是 ，再次单击窗体时，显示结果是。去掉Static Temp语句后，单击窗体，显示结果是，再次单击窗体时，显示结果是。Private Function Fn2(t As Integer)Stat

13、ic Temp Temp=Temp+t Fn2=TempEnd FunctionPrivate Sub Form_Click()s=Fn2(1)+Fn2(2)+Fn2(3)Print sEnd Sub本讲稿第四十页，共六十八页第六章 过程通用过程(变量、过程的作用域)7.1.4.4 过程的作用域过程的作用域 1模块级过程模块级过程 2全局过程全局过程 3调用其他模块中的过程调用其他模块中的过程本讲稿第四十一页，共六十八页7.2 常用算法举例常用算法举例 第六章 过程通用过程(常用算法举例)本讲稿第四十二页，共六十八页4.下列程序段运行后，单击窗体时显示的结果是下列程序段运行后，单击窗体时显示的

14、结果是 。Public Sub Mysub3(ByVal x As Integer,y As Integer)x=y+x y=x Mod yEnd SubPrivate Sub Form_Click()Dim a As Integer,b As Integer a=11:b=22 Call Mysub3(a,b)Print a;bEnd Sub A.33 11 B.11 11 C.11 22 D.22 11本讲稿第四十七页，共六十八页6 6在窗体模块的通用段中声明变量时，不能使在窗体模块的通用段中声明变量时，不能使用用 关键字。关键字。A.Dim A.Dim B.Public B.Public

15、 C.Private C.Private D.Static D.Static第六章 过程通用过程(习题)本讲稿第四十九页，共六十八页2在窗体上已经建立了在窗体上已经建立了3个文本框个文本框(Text1,Text2及及Text3)和一个命令和一个命令按钮按钮(Command1)，运行程序后单击命令按钮，则在文本框，运行程序后单击命令按钮，则在文本框Text1中中显示的内容是显示的内容是 ，在文本框，在文本框Text2中显示的内容是中显示的内容是 ，在，在文本框文本框Text3中显示的内容是中显示的内容是 。Public Sub MySub5(x,ByVal y)a=x+y x=a+y y=2*x

16、End SubPrivate Sub Command1_Click()Dim b As Integer,c As Integer b=1:Call MySub5(b,c)c=a+b:Call MySub5(c,b)a=a+c Text1.Text=a Text2.Text=b Text3.Text=cEnd Sub本讲稿第五十三页，共六十八页3运行下列程序段后，单击窗体，显示结果是运行下列程序段后，单击窗体，显示结果是 ，再次单击窗体时，显示结果是，再次单击窗体时，显示结果是。去。去掉掉Static Temp语句后，单击窗体，显示结果是语句后，单击窗体，显示结果是，再次单击窗体时，显示结果是，再次单击窗体时，显示结果是。Private Function Fn2(t As Integer)Static Temp Temp=Temp+t Fn2=TempEnd FunctionPrivate Sub Form_Click()s=Fn2(1)+Fn2(2)+Fn2(3)Print sEnd Sub本讲稿第五十四页，共六十八页