第7章过程.ppt

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

1、第第7 7章章过过 程程本章要点本章要点:FunctionFunction过程过程SubSub过程过程参数的传递参数的传递*过程的嵌套调用过程的嵌套调用过程的递归调用过程的递归调用*VBVB的工程结构的工程结构变量的作用域与生存期变量的作用域与生存期*过程的引入过程的引入:使同类的操作不重复使同类的操作不重复 (操作方法相同、参数不同操作方法相同、参数不同)过程过程:完成一段独立功能，可供其他过程使用完成一段独立功能，可供其他过程使用(调调用用)。过程又称为过程又称为子程序子程序调用过程调用过程:调用其他过程的过程调用其他过程的过程调用过程调用过程:调用调用Sprg1调用调用Sprg1调用调用

2、Sprg2子过程子过程:Sprg1子过程子过程:Sprg2过程分类过程分类:Sub过程过程Function过程过程内部过程内部过程(方法方法)事件过程事件过程自定义过程自定义过程 内部函数内部函数 自定义函数自定义函数其中，自定义函数和自定义过程统称为其中，自定义函数和自定义过程统称为通用过程通用过程7.1 7.1 FunctionFunction过程过程(函数过程函数过程)7.1.1 Function过程的定义过程的定义1.Function过程的格式过程的格式 Public|PrivateStatic Function ()As =Exit Function End Function2.说明

3、说明(1)Public:缺缺 省省 值值。使使 用用 Public时时 表表 示示 各各 模模 块块 的的 所所 有其他过程都可以调用该有其他过程都可以调用该Function过程。过程。(2)Private:使使用用Private时时表表示示只只有有本本模模块块中中的的其其他他过程才可以调用该过程才可以调用该Function过程。过程。(3)Static:使使 用用 Static时时 表表 示示 将将 过过 程程 中中 的的 所所 有有 局局 部部 变变 量说明为静态变量。量说明为静态变量。(4):Function过过 程程 的的 名名 称称，遵遵 循循 变变 量量 的命名规则。的命名规则。(

4、5):表表示示Function过过程程的的参参数数变变量量列列表表。多个变量之间用逗号隔开。多个变量之间用逗号隔开。格式格式:ByVal|ByRef|Optional|ParamArray ()As ByVal:表示该参数按值传递。表示该参数按值传递。ByRef:缺省值。表示该参数按地址传递。缺省值。表示该参数按地址传递。Optional:表示该参数为可选参数。表示该参数为可选参数。ParamArray:表示该参数是一个表示该参数是一个Variant类型的类型的Optional数组。数组。:任何变量名或数组名。任何变量名或数组名。():当参数为数组时使用。当参数为数组时使用。(6)As :声明

5、函数值的类型。声明函数值的类型。(7)Exit Function语句语句:从从Function过程中退出。过程中退出。(8)Function过程通过赋值语句过程通过赋值语句:=将函数的返回值赋给将函数的返回值赋给 。(9)Function过程的定义不能过程的定义不能嵌套嵌套。3.Function过程的建立过程的建立:建立位置建立位置窗体模块窗体模块标准模块标准模块类模块类模块*建立方法建立方法直接在代码窗口中输入直接在代码窗口中输入 应写在应写在“通用通用”的位置。的位置。使用菜单命令：工具使用菜单命令：工具添加过程添加过程 先切换到代码窗口，才可以使用该菜单命令。先切换到代码窗口，才可以使用

6、该菜单命令。【例【例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过程，计算下面过程，计算下面表达式的值。表达式的值。问：应设置几个参数？问：应设置几个参数？F

7、unction F(X,Y,Z)F=Sqr(Abs(X 3+Y 3+Z 3)End Function 这里的参数和函数名都没有定义类型，默认这里的参数和函数名都没有定义类型，默认为为Variant类型。类型。7.1.2 Function过程的调用过程的调用1.调用位置：调用位置：直接在表达式中调用。直接在表达式中调用。2.调用格式调用格式:()其中，其中，:n常量、变量或表达式常量、变量或表达式n各参数之间用逗号分隔各参数之间用逗号分隔n如果是数组，在数组名之后要跟一对空括号。如果是数组，在数组名之后要跟一对空括号。【例【例7-3】从键盘任意输入一个整数，然后】从键盘任意输入一个整数，然后调用

8、计算调用计算 阶乘的函数求该整数的阶乘值阶乘的函数求该整数的阶乘值。设计界面和运行界面如下：设计界面和运行界面如下：Label3Text1Command1Label2设计界面设计界面运行界面运行界面代码如下：代码如下：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事件过程中调用函

9、数过程事件过程中调用函数过程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过程计算阶乘，求组过程计算阶乘，求组合数。设计界面如下图。合数。设计界面如下图。Text2OLE1控件控件Text1Text3Command1BackStyle:0-TransparentBorderSty

10、le:0 NoneSizeMode:2-AutoSize代码如下：代码如下：定义求阶乘的函数定义求阶乘的函数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)调用

11、调用Fact函数求各阶乘值函数求各阶乘值 C=Fact(M)/(Fact(N)*(Fact(M-N)Text3.Text=Trim(Str(c)End Sub【例【例7-5】编写】编写Function过程求最大公约数，并通过程求最大公约数，并通过命令按钮的单击事件过程调用该函数过程。过命令按钮的单击事件过程调用该函数过程。Text1Text2Command1Label3Function 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 h

12、cf=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。运行时单击按钮调运行时单击按钮调用该函数过程，实现在窗体上按指定的行数输出用该函数过程

13、，实现在窗体上按指定的行数输出如下图所示的图形。如下图所示的图形。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 Functio

14、n“输出图形输出图形”按钮的按钮的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 Su

15、b7.2 7.2 SubSub过程过程 当需要自定义过程返回一个值时，使用当需要自定义过程返回一个值时，使用Function过程很容易实现。过程很容易实现。但在实际应用中，可能希望过程不需要返但在实际应用中，可能希望过程不需要返回值，例如，使用过程打印一个图形；或需回值，例如，使用过程打印一个图形；或需要过程返回多个值，例如，利用过程对一批要过程返回多个值，例如，利用过程对一批数据进行排序，在这些情况下就需要使用数据进行排序，在这些情况下就需要使用Sub过程过程。7.2.1 Sub过程的定义过程的定义1.Sub过程的格式过程的格式 Private|PublicStatic Sub ()Exit

16、 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

17、 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过程，求三个数中的最大数和过程，求三个数中的最大数和最小数。最小数。分析分析:首先要设置三个参数，如首先要设

18、置三个参数，如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 Sub7.2.2 Sub过程的调用过程的调用说明说明:(1):要调用的要调用的Sub过程名。过程名。(2):可以是可以是常量、变量或表达式常量、变量或表达式，各参，各参数之间用逗号分隔。如果是数之间用逗号分隔。如果是数组参数数组参数，则要在，则

19、要在数组名之后跟一对空括号。数组名之后跟一对空括号。(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

20、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+

21、(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 SubPrivate 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

22、)Sum=Sum+S1 Next I Text2.Text=SumEnd Sub7.3 7.3 参数的传递参数的传递 参数传递参数传递是指是指调用过程与被调用过程之间的一调用过程与被调用过程之间的一种数据通讯方法。种数据通讯方法。数据的传递方式可以是单向的，也可以是双向数据的传递方式可以是单向的，也可以是双向的。分别称为的。分别称为按值传递按值传递和和按地址传递按地址传递。数据传递是通过数据传递是通过形参形参和和实参实参进行传递的。进行传递的。7.3.1 7.3.1 形参和实参形参和实参 形参形参:出现在出现在Sub或或Function语句中。语句中。实参实参:出现在调用程序中。出现在调用程序

23、中。例如，定义如下一个过程例如，定义如下一个过程:Sub SubTest(n As Integer,Sum As Single)End Sub 调用语句调用语句:Call SubTest(a ,s)形参形参实参实参说明说明:一般情况下，形参表与实参表中对应参数个数、一般情况下，形参表与实参表中对应参数个数、类型、位置顺序必须一一对应类型、位置顺序必须一一对应(除非使用关键字除非使用关键字Optional或或ParamArray对形参进行了约束对形参进行了约束)形参表中的参数可以是形参表中的参数可以是:除固定长度字符串之外的合法除固定长度字符串之外的合法 变量名、数组名变量名、数组名()实参表中

24、的参数可以是实参表中的参数可以是:常量、变量、表达式、数组名常量、变量、表达式、数组名()形参与实参的结合有两种方式形参与实参的结合有两种方式:按值传递和按地址传递。按值传递和按地址传递。1.按值传递按值传递 实参把其值传递给形参而不传递实参的地址。实参把其值传递给形参而不传递实参的地址。数据的传递是单向的。数据的传递是单向的。(1)当实参为常量或表达式时，数据传递总是单向当实参为常量或表达式时，数据传递总是单向的。的。例如例如:Call SubTest(10,1+2)Sub SubTest(n As Integer,Sum As Single)7.3.2 按值传递和按地址传递按值传递和按地址

25、传递(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 32.按地址传递按地址传递 指将实参的地址传给形参，使形参和实参具有指将实参的地址传给形参，使形参和实参具有相同的地

26、址，即形参与实参共享同一存储单元。相同的地址，即形参与实参共享同一存储单元。(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

27、_Click()A=1:B=2:C=3 Call SS(A,B,C)Print A,B,C End Sub形参形参:X Y Z实参实参:A B C存储单元存储单元运行时，单击命令按钮在窗体上打印运行时，单击命令按钮在窗体上打印: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 res

28、ult=1 Do While y 0 result=result*x y=y-1 Loop Power=result End FunctionPrivate 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之间的随机整数，并之间的随机整数，并赋值给一维数组。赋值给一维数组。Sor

29、tArray过程过程:实现数组从大到小排序。实现数组从大到小排序。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,

30、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 Pr

31、int 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 Sub7.4 过程的嵌套调用过程的嵌套调用 在一个过程执行期间又调

32、用另一个过程，在一个过程执行期间又调用另一个过程，称为过程的嵌套调用。称为过程的嵌套调用。调用过程调用过程 子过程子过程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

33、过程过程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 FunctionFunction 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 *7.5 过程的递归调用过程的递归调用递归调用递归调

34、用:在过程中直接或间接调用自身。在过程中直接或间接调用自身。数学上常用于处理阶乘运算、级数运算、数学上常用于处理阶乘运算、级数运算、幂指数运算等问题。幂指数运算等问题。例：求例：求N！Function F(N)F1=1 For I=1 To N F1=F1*I Next I F=F1End FunctionFunction 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.Te

35、xt=F(N)End SubPublic Function F(N）If N=1 Then F=1 Else F=N*F(N-1)End IfEnd FunctionF(6)6*F(5)6*5*F(4)6*5*4*F(3)6*5*4*3*F(2)6*5*4*3*2*F(1)17.6 VB工程结构VB应用程序由三种模块组成应用程序由三种模块组成:窗体模块窗体模块(Form)(文件扩展名文件扩展名.frm)标准模块标准模块(Module)(文件扩展名文件扩展名.bas)类模块类模块(Class)(文件扩展名文件扩展名.cls)应用程序应用程序工程文件工程文件(.vbp)窗体模块窗体模块(.frm)

36、文件文件类模块类模块(.cls)文件文件标准模块标准模块(.bas)文件文件事件过程事件过程Function过程过程Sub过程过程Property过程过程1.窗体模块包含：窗体模块包含：事件过程事件过程通用过程通用过程通用声明通用声明(常量、变量、数组、外部过程）常量、变量、数组、外部过程）2.可以用文本编辑器查看窗体模块可以用文本编辑器查看窗体模块 查看方法：查看方法：右击右击.frm文件，选择打开方式为记事本文件，选择打开方式为记事本 显示：显示：描述信息及程序代码描述信息及程序代码7.6.1 窗体模块窗体模块 当一个应用程序含有多个窗体时当一个应用程序含有多个窗体时,可能其中的可能其中的

37、几个窗体都需要调用某一段公共代码几个窗体都需要调用某一段公共代码,如果在每个如果在每个窗体内都包含这些代码窗体内都包含这些代码,就会造成大量的代码冗余就会造成大量的代码冗余,这时就可以在标准模块内建立一个包含此公共代这时就可以在标准模块内建立一个包含此公共代码的通用过程码的通用过程,实现代码的共享。实现代码的共享。标准模块不对应于某个窗体、是纯代码模块。标准模块不对应于某个窗体、是纯代码模块。标准模块可以包含标准模块可以包含:全局常量、变量、全局过程全局常量、变量、全局过程标准模块级常量、变量、通用过程标准模块级常量、变量、通用过程 注注:不能包含事件过程不能包含事件过程 添加添加:工程工程添

38、加模块添加模块选选“新建新建”标签标签打打开开“添加模块添加模块”对话框。对话框。默认名字默认名字：ModuleX7.6.2 标准模块 类是具有相同或相似特征的事物的集合，类封类是具有相同或相似特征的事物的集合，类封装了对象的属性装了对象的属性(数据成员数据成员)和方法和方法(处理数据的函处理数据的函数或过程数或过程)。程序员一般不对类进行操作，而只能。程序员一般不对类进行操作，而只能对类的实例对类的实例对象进行操作。对象进行操作。Visual Baisc所使用的每种控件都对应着一个类所使用的每种控件都对应着一个类，如，如Button按钮控件对应着按钮控件对应着Button类，它们支持类，它们

39、支持封装和多态性，但它们不支持继承，即不能从现封装和多态性，但它们不支持继承，即不能从现有的类（控件）来创建新的类（控件）。有的类（控件）来创建新的类（控件）。有时用户需要创建自己的类以实现特定的功能，有时用户需要创建自己的类以实现特定的功能，则可以通过类模块创建自己的类。类模块文件的则可以通过类模块创建自己的类。类模块文件的的扩展名为的扩展名为.cls。*7.6.3 类模块类模块 缺省情况下，应用程序中的第一个窗体为启动窗体，缺省情况下，应用程序中的第一个窗体为启动窗体，如果想在应用程序启动时首先显示其它窗体，那么就得在如果想在应用程序启动时首先显示其它窗体，那么就得在“工程属性工程属性”对

40、话框中改变启动窗体的名称。对话框中改变启动窗体的名称。有时，有些应用程序启动时需要先做一些初始化工作，有时，有些应用程序启动时需要先做一些初始化工作，如装入数据文件，然后再根据数据文件的内容决定显示哪如装入数据文件，然后再根据数据文件的内容决定显示哪个窗体；有时应用程序根本就不需要加载窗体（比如一些个窗体；有时应用程序根本就不需要加载窗体（比如一些监控程序）。为此，可以在标准模块中编写一个监控程序）。为此，可以在标准模块中编写一个main过程过程，作为应用程序的入口。作为应用程序的入口。定义定义sub main过程为启动程序的步骤：过程为启动程序的步骤：“工程工程”“工程属性工程属性”选择选择

41、“通用通用”选项卡选项卡在在“启启动对象动对象”下拉列表框中选择下拉列表框中选择“Sub Main”。7.6.4 Sub Main过程 过程的建立位置不同，允许被访问的范围也不同。过程的建立位置不同，允许被访问的范围也不同。作用域作用域:模块级、全局级模块级、全局级 1.模块级过程模块级过程:在过程前如果加在过程前如果加Private关键字，则关键字，则这种过程只能被其所在的模块中的其他过程所调这种过程只能被其所在的模块中的其他过程所调用。用。2.全局过程全局过程:在过程前如果加在过程前如果加Public关键字关键字(或省略或省略)，则这种过程可以被其他模块中的过程所调用。，则这种过程可以被其

42、他模块中的过程所调用。调用格式调用格式:模块名模块名.过程名过程名(参数表参数表)注意：标准模块中的全局过程名如果唯一，则调注意：标准模块中的全局过程名如果唯一，则调用时可以省略模块名用时可以省略模块名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.Sho

43、w 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 变量的作用域与生存期 变量的作

44、用域变量的作用域:指变量的指变量的有效范围有效范围。变量的生存期变量的生存期:指变量的指变量的作用时间作用时间。7.7.1 变量的作用域变量的作用域 将变量分为将变量分为:局部变量局部变量 模块级变量模块级变量 全局变量全局变量模模块块级级变变量量全局变量全局变量局局部部变变量量模块模块过程过程1.局部变量局部变量 声明声明 不声明不声明 Dim A As Integer A每次执行过程时被初始化每次执行过程时被初始化 Static C As Single C在应用程序执行期间保持在应用程序执行期间保持不变不变 作用范作用范围围 仅仅在声明的在声明的过过程中起作用程中起作用 其他其他过过程中即

45、使有同名程中即使有同名变变量，也不是指同一量，也不是指同一变变量量。例例: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 在模块运行时被初始化在模块运行时被初始化 作用

46、范围作用范围 在该模块的所有过程中都起作用在该模块的所有过程中都起作用 其他模块不能访问这些变量其他模块不能访问这些变量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第二次单击第二次单击C

47、1结果结果: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 变量的生存期变量的生存期 静态变量静态变量:在应用程序执行期间保留不变在应用程序执行期间保留不变 动态变量动态变量:在所在的模块在所

48、在的模块(过程过程)运行时被初始化运行时被初始化 单击按钮打印结果单击按钮打印结果: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第

49、一次单击第一次单击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调用调用

50、:(1)Call()(2)注意注意:Sub过程调用与函数过程定义与调用的区别过程调用与函数过程定义与调用的区别3.过程之间的参数传递过程之间的参数传递 按值传递按值传递:实参为常数、表达式；实参为常数、表达式；实参为变量，形参为实参为变量，形参为 ByVal 变量变量 按地址传递按地址传递:实参为变量、数组；形参用实参为变量、数组；形参用 ByRef 定义的变量、数组（或省略定义的变量、数组（或省略ByRef）4.过程的嵌套调用过程的嵌套调用*5.过程的递归调用过程的递归调用6.VB工程结构工程结构 窗体模块窗体模块(Form)(文件扩展名文件扩展名.frm)标准模块标准模块(Module)(