过程 教学课件PPT.ppt

第7章过 程,本章要点:Function过程Sub过程参数的传递*过程的嵌套调用过程的递归调用*VB的工程结构变量的作用域与生存期*,过程的引入:使同类的操作不重复(操作方法相同、参数不同)过程:完成一段独立功能，可供其他过程使用(调用)。过程又称为子程序调用过程:调用其他过程的过程,调用过程:调用Sprg1调用Sprg1调用Sprg2,子过程:Sprg1,子过程:Sprg2,过程分类:,Sub过程,Function过程,内部过程(方法)事件过程自定义过程,内部函数 自定义函数,其中，自定义函数和自定义过程统称为通用过程,7.1 Function过程(函数过程),7.1.1 Function过程的定义1.Function过程的格式 Public|PrivateStatic Function()As=Exit Function End Function,2.说明(1)Public:缺省值。使用Public时表示各模块的所 有其他过程都可以调用该Function过程。(2)Private:使用Private时表示只有本模块中的其他过程才可以调用该Function过程。(3)Static:使用Static时表示将过程中的所有局部变 量说明为静态变量。(4):Function过程的名称，遵循变量 的命名规则。(5):表示Function过程的参数变量列表。多个变量之间用逗号隔开。格式:ByVal|ByRef|Optional|ParamArray()As,ByVal:表示该参数按值传递。ByRef:缺省值。表示该参数按地址传递。Optional:表示该参数为可选参数。ParamArray:表示该参数是一个Variant类型的Optional数组。:任何变量名或数组名。():当参数为数组时使用。(6)As:声明函数值的类型。(7)Exit Function语句:从Function过程中退出。(8)Function过程通过赋值语句:=将函数的返回值赋给。(9)Function过程的定义不能嵌套。,3.Function过程的建立:建立位置窗体模块标准模块类模块*建立方法直接在代码窗口中输入 应写在“通用”的位置。使用菜单命令：工具添加过程 先切换到代码窗口，才可以使用该菜单命令。,【例7-1】编写一个计算n！的Function过程。分析：确定参数个数、类型、函数名、类型 Function Fact(N As Integer)As Long Dim I As Integer,F As Long F=1 F用于保存阶乘值 For I=1 To N F=F*I Next I Fact=F 给函数过程名赋值 End Function,【例7-2】编写一个Function过程，计算下面表达式的值。,问：应设置几个参数？Function F(X,Y,Z)F=Sqr(Abs(X 3+Y 3+Z 3)End Function,这里的参数和函数名都没有定义类型，默认为Variant类型。,7.1.2 Function过程的调用,1.调用位置：直接在表达式中调用。2.调用格式:()其中，:常量、变量或表达式各参数之间用逗号分隔如果是数组，在数组名之后要跟一对空括号。,【例7-3】从键盘任意输入一个整数，然后调用计算 阶乘的函数求该整数的阶乘值。设计界面和运行界面如下：,设计界面,运行界面,代码如下：Option Explicit 自定义求阶乘的函数过程FactFunction Fact(N As Integer)As Long Dim I As Integer,F As Long F=1 For I=1 To N F=F*I Next I Fact=F 给函数过程名赋值End Function,在按钮的Click事件过程中调用函数过程Private Sub Command1_Click()Dim X As Integer X=Val(Text1.Text)Label2.Caption=Trim(Str(X)&的阶乘数为:使用Fact(X)调用函数过程 Label3.Caption=Trim(Str(Fact(X)End Sub,【例7-4】利用Function过程计算阶乘，求组合数。设计界面如下图。,代码如下：定义求阶乘的函数FactFunction Fact(N As Integer)As Double Dim F As Double,I As Integer F=1 For I=1 To N F=F*I Next I Fact=FEnd Function,“=”按钮的Click事件过程Private Sub Command1_Click()Dim M As Integer,N As Integer,C As Double N=Val(Text1.Text)M=Val(Text2.Text)调用Fact函数求各阶乘值 C=Fact(M)/(Fact(N)*(Fact(M-N)Text3.Text=Trim(Str(c)End Sub,【例7-5】编写Function过程求最大公约数，并通过命令按钮的单击事件过程调用该函数过程。,Function hcf(m As Integer,n As Integer)As Integer Dim r As Integer r=m Mod n Do While r 0 m=n n=r r=m Mod n Loop hcf=nEnd FunctionPrivate Sub Command1_Click()Dim m As Integer,n As Integer m=Val(Text1.Text):n=Val(Text2.Text)Label3.Caption=Str(hcf(m,n)End Sub,【例7-6】编写一个Function过程，返回指定个数的字符串，字符串以A开始，例如，当指定个数5时，函数返回字符串 A B C D E。运行时单击按钮调用该函数过程，实现在窗体上按指定的行数输出如下图所示的图形。,CreateStr函数返回N个字符Private Function CreateStr(N As Integer)Dim TmpStr As String,I As Integer TmpStr=StrAsc用于保存字符的ASCII码 StrAsc=Asc(A)1 For I=1 To N StrAsc=StrAsc+1 生成下一字符的ASCII码 TmpStr=TmpStr&Space(1)&Chr(StrAsc)Next I CreateStr=TmpStrEnd Function,“输出图形”按钮的Click事件过程Private Sub Command1_Click()Dim N As Integer,I As Integer 指定图形的行数 N=Val(InputBox(图形的行数,请输入,5)Cls Print For I=1 To N Print Tab(2*I);输出左半部分 Print CreateStr(2*N-2*I+1);Print Spc(4);左右两部分的间隔 Print CreateStr(2*I-1);输出右半部分 Print Next IEnd Sub,7.2 Sub过程,当需要自定义过程返回一个值时，使用Function过程很容易实现。但在实际应用中，可能希望过程不需要返回值，例如，使用过程打印一个图形；或需要过程返回多个值，例如，利用过程对一批数据进行排序，在这些情况下就需要使用Sub过程。,7.2.1 Sub过程的定义,1.Sub过程的格式 Private|PublicStatic Sub()Exit Sub End Sub2.说明(1)Exit Sub用于退出Sub过程。(2)不具有值的意义，在Sub过程中不能给赋值，也不能给定义类型。(3)Sub过程通过中的参数返回值。(4)Sub过程的建立方法与Function过程的建立方法相同。,【例7-7】编写计算n!的Sub过程。分析:参数表中应有一个参数n，还应有另一个参数F用来返回阶乘值。Sub Fact(N As Integer,F As Long)Dim I As Integer F=1 For I=1 To N F=F*I Next I End Sub,【例7-8】编写Sub过程，打印以下图形。分析:打印该图形不需要返回值，因此无需引入参数。,*,Sub a()For i=1 To 6 Print Tab(7-i);For j=1 To 2*i-1 Print*;Next j Print Next iEnd Sub,【例7-9】编写Sub过程，求三个数中的最大数和最小数。分析:首先要设置三个参数，如x、y、z，用于接收三个原始数据，另外引入两个参数max和min，用于返回最大和最小数。Sub s(x,y,z,max,min)max=x min=x If y max Then max=y If y max Then max=z If z min Then min=z End Sub,7.2.2 Sub过程的调用,说明:(1):要调用的Sub过程名。(2):可以是常量、变量或表达式，各参数之间用逗号分隔。如果是数组参数，则要在数组名之后跟一对空括号。(3)用Call语句调用一个Sub过程时，如果过程本身没有参数，则省略和括号。(4)格式二省略了Call关键字，同时两边也不能带括号。,格式一:Call()格式二:,【例7-10】将求组合数一题改成用Sub过程实现Sub Fact(N As Integer,F As Long)Dim I As Integer F=1 For I=1 To N F=F*I Next IEnd SubPrivate Sub Command1_Click()Dim M As Integer,N As Integer Dim f1 As Long,f2 As Long,f3 As Long M=Val(Text1.Text):N=Val(Text2.Text)Call Fact(M,f1):Call Fact(N,f2):Call Fact(M-N,f3)Text3.Text=Trim(Str(f1/(f2*f3)End Sub,【例7-11】编写一个Sub过程，计算K个数的和，即1+2+K，并通过命令按钮的单击事件调用该过程计算S=1+(1+2)+(1+2+3)+(1+2+N)。分析:编写一个Sub过程计算1+2+K，设参数K、S，参数S用于返回该和值。Sub A1(K As Integer,S As Integer)S=0 For J=1 To K S=S+J Next J End Sub,Private Sub Command1_Click()Dim N As Integer,S1 As Integer,I As Integer N=Val(Text1.Text)For I=1 To N 调用过程A1求1+2+I，和值返回到S1中 Call A1(I,S1)Sum=Sum+S1 Next I Text2.Text=SumEnd Sub,7.3 参数的传递,参数传递是指调用过程与被调用过程之间的一种数据通讯方法。数据的传递方式可以是单向的，也可以是双向的。分别称为按值传递和按地址传递。数据传递是通过形参和实参进行传递的。,7.3.1 形参和实参,形参:出现在Sub或Function语句中。实参:出现在调用程序中。例如，定义如下一个过程:Sub SubTest(n As Integer,Sum As Single)End Sub 调用语句:Call SubTest(a,s),形参,实参,说明:一般情况下，形参表与实参表中对应参数个数、类型、位置顺序必须一一对应(除非使用关键字Optional或ParamArray对形参进行了约束)形参表中的参数可以是:除固定长度字符串之外的合法 变量名、数组名()实参表中的参数可以是:常量、变量、表达式、数组名()形参与实参的结合有两种方式:按值传递和按地址传递。,1.按值传递 实参把其值传递给形参而不传递实参的地址。数据的传递是单向的。(1)当实参为常量或表达式时，数据传递总是单向的。例如:Call SubTest(10,1+2)Sub SubTest(n As Integer,Sum As Single),7.3.2 按值传递和按地址传递,(2)实参是变量时，要实现按值传递需要在形参之前通过关键字ByVal来实现。例如:Sub SS(ByVal X,ByVal Y,ByVal Z)X=X+1:Y=Y+1:Z=Z+1 End Sub Private Sub Command1_Click()A=1:B=2:C=3 Call SS(A,B,C)Print A,B,C End Sub 运行时，单击命令按钮在窗体上打印:1 2 3,2.按地址传递 指将实参的地址传给形参，使形参和实参具有相同的地址，即形参与实参共享同一存储单元。(1)当实参为变量或数组时，形参使用关键字 ByRef定义(或省略)表示要按地址传递。(2)当参数是数组时，数组名之后必须使用一对空的圆括号。按地址传递可以实现调用过程与子过程之间数据的双向传递。,例:Sub SS(ByRef X,ByRef Y,ByRef Z)X=X+1:Y=Y+1:Z=Z+1 End Sub Private Sub Command1_Click()A=1:B=2:C=3 Call SS(A,B,C)Print A,B,C End Sub,运行时，单击命令按钮在窗体上打印:2 3 4,【例7-14】编写一个计算乘幂的Function过程，用来计算x的y次幂，其中y0。单击窗体时调用该过程打印51、52、53、54、55的值。Function Power(x As Single,ByVal y As Integer)Dim result As Single result=1 Do While y 0 result=result*x y=y-1 Loop Power=result End Function,Private Sub Form_Click()Dim i As Integer For i=1 To 5 Print Power(5,i)Next iEnd Sub,思考:如果取消过程Power中参数y前的关键字ByVal，则会出现什么情况？,【例7-15】编写三个Sub过程 LetArray过程:产生0，99之间的随机整数，并赋值给一维数组。SortArray过程:实现数组从大到小排序。PrintArray过程:实现数组的输出。(1)LetArray过程 Sub LetArray(Value()As Integer)Dim I As Integer,N As Integer Randomize N=UBound(Value)For I=1 To N Value(I)=Int(100*Rnd)Next I End Sub,(2)SortArray过程:实现数组从大到小排序Sub SortArray(Value()As Integer)Dim I As Integer,J As Integer,N As Integer,_ T As Integer N=UBound(Value)For I=1 To N-1 For J=I+1 To N If Value(I)Value(J)Then T=Value(I)Value(I)=Value(J)Value(J)=T End If Next J Next IEnd Sub,(3)SortArray过程:实现数组的输出 Sub PrintArray(Value()As Integer)Dim I As Integer,N As Integer N=UBound(Value)For I=1 To N Print Value(I);If I Mod 4=0 Then Print 每行显示4个数 Next i End Sub,在时间过程中调用以上SUB过程：Private Sub Command1_Click()Dim Value(20)As Integer Call LetArray(Value()Print 排序前：Call PrintArray(Value()Call SortArray(Value()Print 排序后：Call PrintArray(Value()End Sub,7.4 过程的嵌套调用,在一个过程执行期间又调用另一个过程，称为过程的嵌套调用。,调用过程 子过程S1 子过程S2,调用S1,调用S2,【例7-16】求：,即求1！+2！+3！+20！，用Function过程实现。设计以下函数：(1)设计一个过程Fact求n！(2)设计另一个过程Sigma求n个数的和,代码如下：Private Sub Command1_Click()Dim n As Integer n=Val(InputBox(n=)Print Sigma(n)调用Sigma过程End SubFunction Sigma(n As Integer)As Double Dim i As Integer,sum As Double sum=0 For i=1 To n sum=sum+Fact(i)调用Fact过程 Next i Sigma=sumEnd Function,Function Fact(n As Integer)As Double Dim I As Integer,F As Double F=1 For I=1 To N F=F*I Next I Fact=FEnd Function,*7.5 过程的递归调用,递归调用:在过程中直接或间接调用自身。数学上常用于处理阶乘运算、级数运算、幂指数运算等问题。,例：求N！,Function F(N)F1=1 For I=1 To N F1=F1*I Next I F=F1End Function,Function F(N）If N=1 Then F=1 Else F=N*F(N-1)End IfEnd Function,【例7-17】:求N！Private Sub Command1_Click()Dim N As Integer N=Val(Text1.Text)Text2.Text=F(N)End SubPublic Function F(N）If N=1 Then F=1 Else F=N*F(N-1)End IfEnd Function,7.6 VB工程结构,VB应用程序由三种模块组成:窗体模块(Form)(文件扩展名.frm)标准模块(Module)(文件扩展名.bas)类模块(Class)(文件扩展名.cls),1.窗体模块包含：事件过程通用过程通用声明(常量、变量、数组、外部过程）2.可以用文本编辑器查看窗体模块 查看方法：右击.frm文件，选择打开方式为记事本 显示：描述信息及程序代码,7.6.1 窗体模块,当一个应用程序含有多个窗体时,可能其中的几个窗体都需要调用某一段公共代码,如果在每个窗体内都包含这些代码,就会造成大量的代码冗余,这时就可以在标准模块内建立一个包含此公共代码的通用过程,实现代码的共享。标准模块不对应于某个窗体、是纯代码模块。标准模块可以包含:全局常量、变量、全局过程标准模块级常量、变量、通用过程 注:不能包含事件过程 添加:工程添加模块选“新建”标签打开“添加模块”对话框。默认名字：ModuleX,7.6.2 标准模块,类是具有相同或相似特征的事物的集合，类封装了对象的属性(数据成员)和方法(处理数据的函数或过程)。程序员一般不对类进行操作，而只能对类的实例对象进行操作。Visual Baisc所使用的每种控件都对应着一个类，如Button按钮控件对应着Button类，它们支持封装和多态性，但它们不支持继承，即不能从现有的类（控件）来创建新的类（控件）。有时用户需要创建自己的类以实现特定的功能，则可以通过类模块创建自己的类。类模块文件的的扩展名为.cls。,*7.6.3 类模块,缺省情况下，应用程序中的第一个窗体为启动窗体，如果想在应用程序启动时首先显示其它窗体，那么就得在“工程属性”对话框中改变启动窗体的名称。有时，有些应用程序启动时需要先做一些初始化工作，如装入数据文件，然后再根据数据文件的内容决定显示哪个窗体；有时应用程序根本就不需要加载窗体（比如一些监控程序）。为此，可以在标准模块中编写一个main过程，作为应用程序的入口。定义sub main过程为启动程序的步骤：“工程”“工程属性”选择“通用”选项卡在“启动对象”下拉列表框中选择“Sub Main”。,7.6.4 Sub Main过程,过程的建立位置不同，允许被访问的范围也不同。作用域:模块级、全局级 1.模块级过程:在过程前如果加Private关键字，则这种过程只能被其所在的模块中的其他过程所调用。2.全局过程:在过程前如果加Public关键字(或省略)，则这种过程可以被其他模块中的过程所调用。调用格式:模块名.过程名(参数表)注意：标准模块中的全局过程名如果唯一，则调用时可以省略模块名,7.6.5 过程的作用域,例:设窗体Form1中有按钮:Command1、Command2 Public Sub aa()aa为全局过程 MsgBox(这是窗体Form1中的过程)End Sub Private Sub Command1_Click()Call aa End Sub Private Sub Command2_Click()Form2.Show End Sub,添加标准模块Module1，编写以下过程:Public Sub bb()bb为全局过程 MsgBox(这是标准模块中的过程bb)End Sub,设窗体Form2中有按钮:Command1、Command2 Private Sub Command1_Click()Call Form1.aa End Sub Private Sub Command2_Click()Call Module1.bb End Sub,7.7 变量的作用域与生存期,变量的作用域:指变量的有效范围。变量的生存期:指变量的作用时间。7.7.1 变量的作用域 将变量分为:局部变量 模块级变量 全局变量,1.局部变量 声明 不声明 Dim A As Integer A每次执行过程时被初始化 Static C As Single C在应用程序执行期间保持不变 作用范围 仅在声明的过程中起作用 其他过程中即使有同名变量，也不是指同一变量。,例:Sub S()X=1 Y=2 Z=X+Y Print X,Y,Z End Sub Private Sub C1_Click()X=2 Y=3 Z=X+Y Call S Print X,Y,Z End Sub,单击C1后运行结果:1 2 3 2 3 5,2.模块级变量 声明 在模块的通用声明段中用以下方法声明的变量。Private 在模块运行时被初始化 Dim 在模块运行时被初始化 作用范围 在该模块的所有过程中都起作用 其他模块不能访问这些变量3.全局变量 声明 在模块的通用声明段中用以下方法声明的变量 Public 应用程序运行时被初始化 作用范围:应用程序的所有过程,例:Dim Z As IntegerSub S()Z=Z+2 Print ZEnd SubPrivate Sub C1_Click()Z=Z+2 Call S Print ZEnd Sub,第一次单击C1结果:4 4第二次单击C1结果:8 8第三次单击C1结果:1212,例:Dim Z As IntegerSub S()Dim Z Z=Z+2 Print ZEnd SubPrivate Sub C1_Click()Z=Z+2 Call S Print ZEnd Sub,第一次单击C1结果:2 2第二次单击C1结果:2 4第三次单击C1结果:26,7.7.2 变量的生存期 静态变量:在应用程序执行期间保留不变 动态变量:在所在的模块(过程)运行时被初始化,单击按钮打印结果:55 110,Static Sub SS1()局部变量I,S为静态变量 For I=1 To 10 S=S+I Next I Print S End Sub Private Sub Command1_Click()Call SS1 Call SS1 End Sub,例:Sub S()Static Z As Integer Z=Z+2 Print ZEnd SubPrivate Sub C1_Click()Dim Z As Integer Z=Z+2 Call S Print ZEnd Sub,第一次单击C1结果:2 2第二次单击C1结果:4 2第三次单击C1结果:6 2,本章小结,1.函数过程的定义和调用 定义:Public|Private Static Function()As 函数名=表达式 End Function 形参表:变量、数组名()调 用:函数名()出现在表达式可以出现的位置,2.Sub过程的定义和调用定义:Private|Public Static Sub()End Sub调用:(1)Call()(2)注意:Sub过程调用与函数过程定义与调用的区别,3.过程之间的参数传递 按值传递:实参为常数、表达式；实参为变量，形参为 ByVal 变量 按地址传递:实参为变量、数组；形参用 ByRef 定义的变量、数组（或省略ByRef）4.过程的嵌套调用*5.过程的递归调用6.VB工程结构 窗体模块(Form)(文件扩展名.frm)标准模块(Module)(文件扩展名.bas)Sub Main过程 类模块(Class)(文件扩展名.cls),7.过程的作用域 模块级过程；全局级过程8.变量的作用域 局部变量（过程级）；模块级变量；全局变量9.变量的生存期 动态变量；静态变量,