理学VBFIL13.pptx

V i s u a l B A S I C 程程序序设设计计1第第9 9章章过过 程程本章要点本章要点:FunctionFunction过程过程 SubSub过程过程 过程的嵌套过程的嵌套 参数的传递参数的传递 代码模块代码模块 变量的作用域与生存期变量的作用域与生存期第第九九章章 过过 程程2过程的引入过程的引入:使同类的操作不重复使同类的操作不重复 (操作方法相同、参数不同操作方法相同、参数不同)过程过程:完成一段独立功能，可供其他过程使用完成一段独立功能，可供其他过程使用(调用调用)。过程又称为子程序过程又称为子程序调用过程调用过程:调用其他过程的过程调用其他过程的过程调用过程调用过程:调用调用Sprg1调用调用Sprg1调用调用Sprg2子过程子过程:Sprg1子过程子过程:Sprg2第第九九章章 过过 程程3过程分类过程分类:Sub过程过程Function过程过程*内部过程内部过程(方法方法)事件过程事件过程 自定义过程自定义过程 内部函数内部函数 自定义函数自定义函数第第九九章章 过过 程程49.1 9.1 FunctionFunction过程过程9.1.1 Function过程的定义过程的定义1.Function过程的格式过程的格式 Public|PrivateStatic Function ()As =Exit Function =End Function第第九九章章 过过 程程52.说明说明(1)Public:缺省值。使用缺省值。使用Public时表示所有模块的所时表示所有模块的所 有其他过程都可以调用该有其他过程都可以调用该Function过程。过程。(2)Private:使用使用Private时表示只有本模块中的其他时表示只有本模块中的其他 过程才可以调用该过程才可以调用该Function过程。过程。(3)Static:使用使用Static时表示将过程中的所有局部变时表示将过程中的所有局部变 量说明为静态变量。量说明为静态变量。(4):Function过程的名称，遵循变量过程的名称，遵循变量 的命名规则。的命名规则。(5):表表示示在在调调用用时时要要传传递递给给Function过过程程的参数变量列表。多个变量之间用逗号隔开。的参数变量列表。多个变量之间用逗号隔开。第第九九章章 过过 程程6 格式格式:ByVal|ByRef ()As ByVal:表示该参数按值传递。表示该参数按值传递。ByRef:缺省值。表示该参数按地址传递。缺省值。表示该参数按地址传递。:遵遵 循循 变变 量量 命命 名名 规规 则则 的的 任任 何何 变变 量量 名名 或数组名。或数组名。():当参数为数组时使用。当参数为数组时使用。(7)Exit Function语句语句:从从Function过程中退出。过程中退出。(8)Function过程通过赋值语句过程通过赋值语句 =将函数的返回值赋给将函数的返回值赋给 。(9)Function过程的定义不能嵌套。过程的定义不能嵌套。第第九九章章 过过 程程7Function过程的建立过程的建立:直接在代码窗口中输入。直接在代码窗口中输入。在代码窗口在代码窗口:工具工具 添加过程。添加过程。【例【例9-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第第九九章章 过过 程程8 9.1.2 Function过程的调用过程的调用 直接在表达式中调用。直接在表达式中调用。格式格式:():常量、变量或表达式，各参数之间用常量、变量或表达式，各参数之间用逗号分隔。如果是数组，在数组名之逗号分隔。如果是数组，在数组名之后必须跟一对空括号。后必须跟一对空括号。第第九九章章 过过 程程9【例【例9-3】从键盘上任意输入一个整数，然后调用例】从键盘上任意输入一个整数，然后调用例9-1编写的函数过程计算其阶乘数。编写的函数过程计算其阶乘数。第第九九章章 过过 程程10 自定义求阶乘的函数过程自定义求阶乘的函数过程FactFunctin 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)&的阶乘数为的阶乘数为:Label3.Caption=Trim(Str(Fact(X)End Sub第第九九章章 过过 程程119.1.3 Function过程举例过程举例【例【例9-4】利用】利用Function过程计算阶乘，求组合数。过程计算阶乘，求组合数。设计界面如下图所示。运行时，在文本框设计界面如下图所示。运行时，在文本框Text1和和Text2中输入中输入n和和m值，或通过文本框旁的滚动条调值，或通过文本框旁的滚动条调整整n和和m的值，单击的值，单击“=”按钮计算组合数，结果显按钮计算组合数，结果显示于文本框示于文本框Text3中。中。Text2VScroll1OLE1控件控件VScroll2Text1Text3Command1第第九九章章 过过 程程12主要属性设置如下主要属性设置如下:控件名称控件名称属性名属性名属性值属性值OLE1BackStyle0-TransparentBorderStyle0-NoneSizeMode2-AutoSizeVscroll1Max0Min0Value0Vscroll2Max0Min50Value0第第九九章章 过过 程程13 定义求阶乘的函数定义求阶乘的函数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第第九九章章 过过 程程14 调整滚动条调整滚动条VScroll1的值的值(m)时，在文本框中显时，在文本框中显 示该值，并清除已有的计算结果示该值，并清除已有的计算结果Private Sub VScroll1_Change()Text1.Text=VScroll1.Value Text3.Text=End Sub 调整滚动条调整滚动条VScroll2的值的值(n)时时,在文本框中显示该值，在文本框中显示该值，并清除已有的计算结果并清除已有的计算结果Private Sub VScroll2_Change()Text2.Text=VScroll2.Value 限制限制n的最小值为的最小值为m的值的值 VScroll1.Min=VScroll2.Value Text3.Text=End Sub第第九九章章 过过 程程15“=”按钮的按钮的Click事件过程事件过程Private Sub Command1_Click()Dim m As Integer,n As Integer,c As Double m=Val(Text2.Text):n=Val(Text1.Text)调用调用Fact函数求各阶乘值函数求各阶乘值 c=Fact(m)/(Fact(n)*(Fact(m-n)Text3.Text=Trim(Str(c)End Sub第第九九章章 过过 程程16 定义求最大公约数的函数过程定义求最大公约数的函数过程hcfFunction 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 Function【例【例9-5】编写】编写Function过程求最大公约数，并通过过程求最大公约数，并通过命令按钮的单击事件过程调用该函数过程。命令按钮的单击事件过程调用该函数过程。第第九九章章 过过 程程17 在在Command1的单击事件过程中调用自定义函数的单击事件过程中调用自定义函数Private 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 在在Text1获得焦点时选中其中的文本获得焦点时选中其中的文本Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End Sub第第九九章章 过过 程程18 在在Text2获得焦点时选中其中的文本获得焦点时选中其中的文本Private Sub Text2_GotFocus()Text2.SelStart=0 Text2.SelLength=Len(Text2.Text)End Sub第第九九章章 过过 程程199.2 9.2 SubSub过程过程9.2.1 Sub过程的定义过程的定义1.Sub过程的格式过程的格式 Private|PublicStatic Sub ()Exit Sub End Sub2.说明说明(1)Exit Sub用于退出用于退出Sub过程。过程。(2)不具有值的意义，在不具有值的意义，在Sub过程中不能过程中不能给给 赋值，也不能给赋值，也不能给 定义类型。定义类型。第第九九章章 过过 程程20(3)Sub过程通过过程通过 中的参数返回值。中的参数返回值。(4)Sub过程的建立方法与过程的建立方法与Function过程的建立方法过程的建立方法相同。相同。【例【例9-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第第九九章章 过过 程程21【例例9-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第第九九章章 过过 程程22【例例9-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第第九九章章 过过 程程239.2.2 Sub过程的调用过程的调用 格式一格式一:Call()格式二格式二:说明说明:(1):要调用的要调用的Sub过程名；过程名；(2):可以是常量、变量或表达式，各参数可以是常量、变量或表达式，各参数之间用逗号分隔。如果是数组参数，则要在数组之间用逗号分隔。如果是数组参数，则要在数组名之后跟一对空括号。名之后跟一对空括号。(3)用用Call语句调用一个语句调用一个Sub过程时，如果过程本身过程时，如果过程本身没有参数，则省略没有参数，则省略 和括号。和括号。(4)格式二省略了格式二省略了Call关键字，同时关键字，同时 两边也两边也不能带括号。不能带括号。第第九九章章 过过 程程24【例【例9-10】将例】将例9-3改成用改成用Sub过程实现求过程实现求n！。！。Option Explicit 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第第九九章章 过过 程程25Private Sub Command1_Click()Dim x As Integer,Ff As Long x=Val(Text1.Text)Label2.Caption=Trim(Str(x)&的阶乘数为的阶乘数为:调用调用Fact过程求过程求x阶乘，阶乘值存于实参阶乘，阶乘值存于实参Ff中中 Call Fact(x,Ff)Label3.Caption=Trim(Str(Ff)End Sub第第九九章章 过过 程程269.2.3 Sub过程举例过程举例【例【例9-11】编写一个】编写一个Sub过程，计算过程，计算N个数的和，即个数的和，即1+2+N，并通过命令按钮的单击事件调用该过并通过命令按钮的单击事件调用该过程计算程计算S=1+(1+2)+(1+2+3)+(1+2+K)。分析分析:编写一个编写一个Sub过程计算过程计算1+2+N，设参数设参数N、S，参数参数S用于返回该和值。用于返回该和值。Public Sub A1(N As Integer,S As Integer)S=0 For J=1 To N S=S+J Next J End Sub第第九九章章 过过 程程27Private Sub Command1_Click()Dim K As Integer,S1 As Integer,I As Integer K=Val(Text1.Text)For I=1 To K 调用过程调用过程A1求求1+2+I，和值返回到和值返回到S1中中 Call A1(I,S1)Sum=Sum+S1 Next I Text2.Text=SumEnd Sub第第九九章章 过过 程程28【例【例9-12】编写一个】编写一个Sub过程，实现将三个数由大到过程，实现将三个数由大到小排序。程序运行时单击小排序。程序运行时单击“排序前排序前”按钮产生按钮产生0，99之间的三个随机整数，并将文本框之间的三个随机整数，并将文本框Text2的内容清的内容清空，单击空，单击“排序后排序后”按钮，调用该按钮，调用该Sub过程完成排序。过程完成排序。分析分析:在在Sub过程中引入三个参数过程中引入三个参数A、B、C用于接用于接收数据，在过程中对它们进行排序，执行完收数据，在过程中对它们进行排序，执行完过程后还通过过程后还通过A、B、C返回排序后的结果。返回排序后的结果。Text1Text2第第九九章章 过过 程程29Dim X As Integer,Y As Integer,Z As Integer 定义排序过程定义排序过程Sort3Public Sub Sort3(A As Integer,B As Integer,C As Integer)Dim T As Integer If A B Then T=A:A=B:B=T If A C Then T=A:A=C:C=T If B 0。单击窗体时调用该过单击窗体时调用该过程打印程打印51、52、53、54、55的值。的值。Option Explicit 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第第九九章章 过过 程程41Private Sub Form_Click()Dim i As Integer For i=1 To 5 Print Power(5,i)Next iEnd Sub思考思考:如果取消过程如果取消过程Power中参数中参数y前的关键字前的关键字ByVal，则会出现什么情况？则会出现什么情况？第第九九章章 过过 程程429.5 9.5 代码模块代码模块VB应用程序由三种模块组成应用程序由三种模块组成:窗体模块窗体模块(Form)(文件扩展名文件扩展名.frm)标准模块标准模块(Module)(文件扩展名文件扩展名.bas)类模块类模块(Class)(文件扩展名文件扩展名.cls)应用程序应用程序工程文件工程文件(.vbp)窗体模块窗体模块(.frm)文件文件类模块类模块(.cls)文件文件标准模块标准模块(.bas)文件文件Function过程过程 Sub过程过程事件过程事件过程Function过程过程Sub过程过程第第九九章章 过过 程程439.5.1 窗体模块窗体模块 包含包含:事件过程事件过程 通用过程通用过程 通用声明通用声明9.5.2 标准模块标准模块 不对应于某个窗体、完全是纯代码。不对应于某个窗体、完全是纯代码。包含包含:全局常量、变量、全局过程全局常量、变量、全局过程 标准模块级常量、变量、通用过程标准模块级常量、变量、通用过程 注注:不能包含事件过程不能包含事件过程 添加添加:工程工程添加模块添加模块选选“新建新建”标签标签打开打开“添加模块添加模块”对话框对话框 9.5.3 类模块类模块 在类模块中编写代码建立新对象。在类模块中编写代码建立新对象。第第九九章章 过过 程程449.5.4 过程的作用域过程的作用域 过程的建立位置不同，允许被访问的范围也不同。过程的建立位置不同，允许被访问的范围也不同。作用域作用域:模块级、全局级模块级、全局级 1.模块级过程模块级过程:在在Sub过程或过程或Function过程前如果加过程前如果加Private关键字，则这种过程只能被其所在的窗体关键字，则这种过程只能被其所在的窗体模块或标准模块中的其他过程所调用。模块或标准模块中的其他过程所调用。2.全局过程全局过程:在在Sub过程或过程或Function过程前如果加过程前如果加Public关键字，关键字，或者省略或者省略Public与与Private关键字，关键字，则这种过程可以被该应用程序的所有窗体模块或则这种过程可以被该应用程序的所有窗体模块或所有标准模块中的过程所调用。所有标准模块中的过程所调用。3.过程的作用域过程的作用域:见见P156第第九九章章 过过 程程45例例:设窗体设窗体Form1中有按钮中有按钮:Command1、Command2 Public Sub aa()MsgBox(这是窗体这是窗体Form1中的过程中的过程)End Sub Private Sub Command1_Click()Call aa End Sub Private Sub Command2_Click()Form2.Show End Sub可以省略可以省略第第九九章章 过过 程程46设窗体设窗体Form2中有按钮中有按钮:Command1、Command2 Private Sub Command1_Click()Call Form1.aa End Sub Private Sub Command2_Click()Call Module1.bb End Sub添加标准模块添加标准模块Module1，编写以下过程，编写以下过程:Public Sub bb()MsgBox(这是标准模块中的过程这是标准模块中的过程bb)End Sub不可以省略不可以省略可以省略可以省略可以省略可以省略第第九九章章 过过 程程479.6 9.6 变量的作用域与生存期变量的作用域与生存期 变量的作用域变量的作用域:指变量的指变量的有效范围有效范围。变量的生存期变量的生存期:指变量的指变量的作用时间作用时间。9.6.1 变量的作用域变量的作用域 将变量分为将变量分为:局部变量局部变量 模块级变量模块级变量 全局变量全局变量模模块块级级变变量量全局变量全局变量局局部部变变量量模块模块过程过程第第九九章章 过过 程程481.局部变量局部变量 声明声明 不声明不声明 Dim A As Integer A每次执行过程时被初始化每次执行过程时被初始化 Static C As Single C在应用程序执行期间保持不变在应用程序执行期间保持不变 作用范围作用范围 仅在声明的过程中起作用仅在声明的过程中起作用 其他过程中即使有同名变量，也不是指同一变量其他过程中即使有同名变量，也不是指同一变量。第第九九章章 过过 程程49例例: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第第九九章章 过过 程程50例例:Sub S()Static Z As Integer Z=Z+2 Print ZEnd SubPrivate Sub Command1_Click()Dim Z As Integer Z=Z+2 Call S Print ZEnd Sub第一次单击第一次单击C1结果结果:2 2第二次单击第二次单击C1结果结果:4 2第三次单击第三次单击C1结果结果:62第第九九章章 过过 程程512.模块级变量模块级变量 声明声明 在模块的通用声明段中用以下方法声明的变量。在模块的通用声明段中用以下方法声明的变量。Private 在模块运行时被初始化在模块运行时被初始化 Dim 在模块运行时被初始化在模块运行时被初始化 作用范围作用范围 在该模块的所有过程中都起作用在该模块的所有过程中都起作用 其他模块不能访问这些变量其他模块不能访问这些变量3.全局变量全局变量 声明声明 在模块的通用声明段中用以下方法声明的变量在模块的通用声明段中用以下方法声明的变量 Public 应用程序运行时被初始化应用程序运行时被初始化 作用范围作用范围:应用程序的所有过程应用程序的所有过程第第九九章章 过过 程程52例例: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第第九九章章 过过 程程53例例: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第第九九章章 过过 程程54【例【例9-14】P160例例9-21标准模块标准模块:M1存放存放N的立方值，的立方值，M2存放存放N的阶乘值的阶乘值Public M1 As Integer,M2 As Integer定义求阶乘函数定义求阶乘函数F(N)Public Function F(N)As Integer F1=1 For I=1 To N F1=F1*I Next I F=F1End FunctionI:局部变量局部变量F1:局部变量局部变量N:形式参数形式参数F:公共函数公共函数M1、M2:全局变量全局变量第第九九章章 过过 程程55Form1模块模块:Dim N As IntegerPrivate Sub C1_Click()N=Val(Text1.Text)M1=N*N*N Text2.Text=M1End SubPrivate Sub C2_Click()M2=F(N)Text3.Text=M2End SubPrivate Sub C3_Click()Form2.ShowEnd SubN:模块级变量模块级变量 实际参数实际参数F:公共函数公共函数M1、M2:全局变量全局变量第第九九章章 过过 程程56Private Sub C1_Click()Text1.Text=M1End SubPrivate Sub C2_Click()Text2.Text=M2End SubPrivate Sub C3_Click()If M1 O Then Text3.Text=Format(M2/M1,0.000)Else MsgBox 被除数为零，请重输被除数为零，请重输 End IfEnd SubPrivate Sub C4_Click()Unload MeEnd SubM1、M2:全局变量全局变量第第九九章章 过过 程程579.6.2 变量的生存期变量的生存期 静态变量静态变量:在应用程序执行期间保留不变在应用程序执行期间保留不变 动态变量动态变量:在所在的模块在所在的模块(过程过程)运行时被初始化运行时被初始化 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 End Sub第第九九章章 过过 程程58本章小结本章小结 1.函数过程的定义和调用函数过程的定义和调用 定义定义:Public|Private Static Function ()As 函数名函数名=表达式表达式 End Function 形参表形参表:变量、数组名变量、数组名()调用调用:函数名函数名()出现在表达式可以出现的位置出现在表达式可以出现的位置第第九九章章 过过 程程592.Sub过程的定义和调用过程的定义和调用定义定义:Private|Public Static Sub ()End Sub调用调用:(1)(1)CallCall ()(2)(2)实参表实参表:常量、变量、表达式常量、变量、表达式 参数应与定义时一致参数应与定义时一致(个数、类型、次序个数、类型、次序)注意注意:实参与形参的类型声明位置实参与形参的类型声明位置注意注意:Sub过程调用与函数过程调用的区别过程调用与函数过程调用的区别第第九九章章 过过 程程603.过程之间的参数传递过程之间的参数传递 按值传送、按地址传送按值传送、按地址传送 CALL S(CALL S(实际参数实际参数)SUB S(SUB S(形式参数形式参数)按值传送按值传送:实际参数为常数、表达式、实际参数为常数、表达式、ByVal 变量变量按地址传送按地址传送:实际参数变量、实际参数变量、ByRef 变量、数组名变量、数组名()4.过程的作用域过程的作用域 模块级过程模块级过程 全局级过程全局级过程窗体模块窗体模块:.frm标准模块标准模块:.bas按值传送按值传送按地址传送按地址传送第第九九章章 过过 程程615.变量的作用域变量的作用域 局部变量局部变量 模块级变量模块级变量 全局变量全局变量6.变量的生存期变量的生存期 动态变量动态变量 静态变量静态变量