教学课件第7章 过程.ppt

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

1、1第第7章章过过 程程 2本章内容本章内容n过程的一般概念过程的一般概念n函数过程函数过程n子过程子过程n参数传递参数传递n作用域作用域 3学习目标学习目标 n了解过程的基本概念，过程的调用流程了解过程的基本概念，过程的调用流程n理解使用过程的优点，理解函数过程与子过程的特点与区别理解使用过程的优点，理解函数过程与子过程的特点与区别和过程参数的传递机制和过程参数的传递机制n熟悉可选参数和对象参数的传递特点熟悉可选参数和对象参数的传递特点n理解过程与变量的作用域的概念理解过程与变量的作用域的概念n掌握函数过程与子过程的定义、调用方法掌握函数过程与子过程的定义、调用方法n掌握值传递与地址传递的区别

2、与使用场合，掌握数组参数的掌握值传递与地址传递的区别与使用场合，掌握数组参数的使用方法使用方法n熟悉全局变量、模块级变量、局部变量和静态变量的区别与熟悉全局变量、模块级变量、局部变量和静态变量的区别与特点特点n能够编写正确的函数过程与子过程和调用程序能够编写正确的函数过程与子过程和调用程序n能够熟练使用值传递、地址传递方式以及数组参数传递信息能够熟练使用值传递、地址传递方式以及数组参数传递信息n懂得如何使用全局变量、模块级变量、局部变量和静态变量懂得如何使用全局变量、模块级变量、局部变量和静态变量 47.1 过程概述过程概述 n过程是一段程序，是一个可以实现独立功能的过程是一段程序，是一个可以

3、实现独立功能的程序单元程序单元n过程的种类过程的种类n函数过程函数过程n用于得到一个计算结果用于得到一个计算结果n子过程子过程n用于实现一种操作用于实现一种操作5为何要使用过程为何要使用过程n一个复杂问题可以分解为多个相对简单的子问题，一个复杂问题可以分解为多个相对简单的子问题，用过程去解决这些子问题，最后再把这些过程组用过程去解决这些子问题，最后再把这些过程组装成一个完整的程序装成一个完整的程序n例如：求例如：求ex的近似值可以用级数的近似值可以用级数n累加累加n第第0项项 + 第第1项项 + 第第2项项 + 第第3项项 + + 第第n项项n第第k项项 = xk / k! 乘方：乘方： xk

4、 阶乘：阶乘： k! n定义定义3个过程分别计算累加、乘方和阶乘个过程分别计算累加、乘方和阶乘!.! 3! 2132nxxxxn6过程间信息的传递过程间信息的传递n通常要在过程之间传递一些信息通常要在过程之间传递一些信息 n例如为了计算例如为了计算n!n要向计算阶乘的过程传递要向计算阶乘的过程传递n的值的值n计算结束后要把计算结果传回来计算结束后要把计算结果传回来 n设计一个过程需要确定设计一个过程需要确定n传递哪些数据传递哪些数据n如何传递数据如何传递数据n数据的类型数据的类型n这些信息称为过程的接口这些信息称为过程的接口n一个过程设计好之后，它的接口也就确定了一个过程设计好之后，它的接口也

5、就确定了n接口设计本身也是过程设计的重要内容接口设计本身也是过程设计的重要内容n知道了过程的接口，也就知道了如何使用这个过程知道了过程的接口，也就知道了如何使用这个过程 7过程的调用过程的调用n在程序代码中使用过程被称为过程的调用在程序代码中使用过程被称为过程的调用n一个过程可以在程序的不同位置多次被调用一个过程可以在程序的不同位置多次被调用 n过程调用的流程过程调用的流程 过程过程sub1调用调用sub2调用调用sub3过程过程sub2过程过程sub3调用调用sub38使用过程的优点使用过程的优点 n降低了程序设计的难度降低了程序设计的难度n使用过程可以使程序结构清晰、有层次使用过程可以使程

6、序结构清晰、有层次n程序便于阅读和理解程序便于阅读和理解n便于程序的调试、修改和维护便于程序的调试、修改和维护n每个过程实现相对独立的功能，算法相对简单，因此调试每个过程实现相对独立的功能，算法相对简单，因此调试也相对容易也相对容易n对一个过程中的代码进行修改时而对程序的其他部分没有对一个过程中的代码进行修改时而对程序的其他部分没有影响影响n提高程序代码的可重用性提高程序代码的可重用性n便于把过程移植到其他程序中，可提高程序设计的效率便于把过程移植到其他程序中，可提高程序设计的效率n便于实现团队协作便于实现团队协作n只需知道过程的接口和功能，不必了解过程内部编码的细只需知道过程的接口和功能，不

7、必了解过程内部编码的细节即可调用过程节即可调用过程n可以充分利用已有的过程和他人设计的过程可以充分利用已有的过程和他人设计的过程97.2 函数过程函数过程 n函数过程简称函数，可以获得一个计算结果函数过程简称函数，可以获得一个计算结果n数学函数数学函数 y = f (x) 自变量自变量函数关系函数关系函数值函数值n直接把数值或表达式代入到相应的自变量位置直接把数值或表达式代入到相应的自变量位置处，即可获得函数结果处，即可获得函数结果ny=f(5)ny=f(a)ny=f(a+3)10Visual Basic函数函数 nVisual Basic函数函数Function f(x As Integer

8、) As Integer函数体函数体End Function 参数（自变量）参数（自变量）函数名函数名参数的数参数的数据类型据类型函数值的函数值的数据类型数据类型实现函数功实现函数功能的代码能的代码11Visual Basic函数函数nVisual Basic函数过程的定义形式函数过程的定义形式Private | Public Function () As End Function nPrivate | Public表示函数的作用域表示函数的作用域nFunction表示是函数过程，表示是函数过程，End Function表示函数的结束表示函数的结束n函数名是程序设计者自己定义的函数名称，应符合

9、命名规则函数名是程序设计者自己定义的函数名称，应符合命名规则n参数列表由参数列表由0个或多个参数组成个或多个参数组成n参数列表的形式与变量定义的形式类似，但没有参数列表的形式与变量定义的形式类似，但没有Dimn每个参数有一个数据类型，若省略则为变体类型每个参数有一个数据类型，若省略则为变体类型n函数首部最后是函数返回值的数据类型，若省略则是变体类型函数首部最后是函数返回值的数据类型，若省略则是变体类型n函数体是实现函数功能的程序代码，为了能够产生返回值，在函数体是实现函数功能的程序代码，为了能够产生返回值，在函数体内至少要在适当的位置对函数名赋值一次函数体内至少要在适当的位置对函数名赋值一次n

10、函数体中可以用函数体中可以用Exit Function语句从函数中跳出语句从函数中跳出12Visual Basic函数函数n计算计算n!的的Visual Basic函数函数nPrivate Function fact(n As Integer) As Longn Dim k As Integer, t As Longn t = 1n For k = 1 To nn t = t * kn Next kn fact = tnEnd Function为函数名赋值为函数名赋值产生返回值产生返回值13Visual Basic函数与数学函数对比函数与数学函数对比数学函数数学函数Visual Basic函数

11、函数函数形式函数形式f(x)Function fact(n As Integer) As Long自变量自变量自变量自变量参数参数自变量的自变量的定义域定义域在上下文中定义在上下文中定义参数的数据类型，在函数首部中定义参数的数据类型，在函数首部中定义函数的计函数的计算结果算结果函数值函数值函数的返回值，通过对函数名赋值来实现函数的返回值，通过对函数名赋值来实现函数的值函数的值域域在上下文中定义在上下文中定义函数返回值的数据类型，在函数首部中定义函数返回值的数据类型，在函数首部中定义函数内容函数内容f(x)=x!函数体中的代码函数体中的代码14函数过程的调用函数过程的调用 nVB函数的调用与数学

12、函数的调用基本相同函数的调用与数学函数的调用基本相同n例如：例如：x=fact(5) n函数定义时的参数称为函数定义时的参数称为“形式参数形式参数”，简称，简称“形参形参”n调用函数时，实际写在参数位置处的表达式称为调用函数时，实际写在参数位置处的表达式称为“实际参实际参数数”，简称，简称“实参实参”n实参可以是常量、变量或表达式实参可以是常量、变量或表达式n实参要与形参数量相同，顺序一致，类型匹配实参要与形参数量相同，顺序一致，类型匹配 n函数的调用的位置函数的调用的位置n表达式中表达式中n过程的实际参数中过程的实际参数中n例如例如nx=fact(5)nx=fact(5)+fact(3)+1

13、0nPrint fact(6)nx=fact(fact(3)15函数的应用函数的应用n例例7-1 输入输入x，计算，计算ex的近似值，要求精度达到的近似值，要求精度达到10-6n分析分析n利用公式利用公式ex = 可以求得可以求得ex的近似值的近似值nn越大，精度越高越大，精度越高n可分解为可分解为3个子问题，即：求累加、求个子问题，即：求累加、求xk和求和求k！n思路思路n用函数用函数e来计算累加，函数来计算累加，函数power和和fact分别计算分别计算xk和和k！n每次累加前，先调用每次累加前，先调用power和和fact构成累加项，再进行累加。构成累加项，再进行累加。n当精度满足时，停

14、止累加当精度满足时，停止累加n可以用可以用xk/k！的值来判别精度，当！的值来判别精度，当xk/k！10-6即可认为达到即可认为达到了精度要求了精度要求n界面设计界面设计n用标签控件用标签控件Label1、Label2、Label3分别显示分别显示e、e的指数、的指数、计算结果计算结果n按钮按钮Command1用来输入用来输入x的值并产生计算结果的值并产生计算结果 !.! 3! 2132nxxxxn16nPrivate Sub Command1_Click( )n Dim x As Integern x = InputBox(请输入一个正整数请输入一个正整数)n Label2.Caption

15、= xn Label3.Caption = = & e(x)nEnd SubnPrivate Function e(x As Integer) As Doublen Dim result As Double, tmp As Doublen Dim k As Integern result = 1#n k = 1n Don tmp = power(x, k) / fact(k)n k = k + 1n result = result + tmpn Loop Until tmp 0.000001 精度检查精度检查n e = resultnEnd Function 17nPrivate Functi

16、on power(x As Integer, k As Integer) As Variantn Dim i As Integer, p As Variantn p = 1n For i = 1 To kn p = p * xn Next in power = pnEnd FunctionnPrivate Function fact(k As Integer) As Variantn Dim i As Integer, t As Variantn t = 1n For i = 2 To kn t = t * in Next in fact = tnEnd Function 18函数的应用函数的

17、应用n例例7-2 从键盘输入从键盘输入m、n的值，计算组合的值，计算组合C(m，n) ，并显示在窗体上，并显示在窗体上 nC(m，n) n程序代码程序代码nPrivate Sub Command1_Click()n Dim m As Integer, n As Integern m = InputBox(请输入一个整数请输入一个整数)n n = InputBox(请输入一个整数请输入一个整数)n Print C(; m; ,; n; )=;n Print fact(m) / fact(n) / fact(m - n)nEnd SubnPrivate Function fact(n As Int

18、eger) As Longn Dim k As Integer, t As Longn t = 1n For k = 1 To nn t = t * kn Next kn fact = tnEnd Function )!( !nmnm197.3 子过程子过程 n子过程与函数类似，但没有返回值，在子子过程与函数类似，但没有返回值，在子过程的过程体中，不能对过程名进行赋值过程的过程体中，不能对过程名进行赋值 n子过程的定义子过程的定义nPrivate | Public Sub ()n nEnd Sub nSub表示这是一个子过程，其他部分与函数表示这是一个子过程，其他部分与函数定义中的含义相同定义

19、中的含义相同n过程体中可以用过程体中可以用Exit Sub语句强行跳出过程语句强行跳出过程 20子过程的定义子过程的定义n例例7-3n编写一个可以在窗体上输出如图所示图案的过程，图案的行数编写一个可以在窗体上输出如图所示图案的过程，图案的行数作为过程的参数作为过程的参数n过程代码过程代码nSub Triangle(height As Integer)n For i = 1 To heightn Print Tab(height - i + 1); 确定第确定第i行第行第1个字符的输出个字符的输出n For j = 1 To in Print *;n Next jn Printn Next in

20、End Sub 21子过程的调用子过程的调用 n子过程的调用要作为一条语句在程序中出现子过程的调用要作为一条语句在程序中出现 n子过程的调用格式子过程的调用格式nCall ()n或：或：n nCall是是Visual Basic的关键字的关键字n使用使用Call时，参数列表写在括号中，若无参数，括号也省略时，参数列表写在括号中，若无参数，括号也省略n不使用不使用Call时，参数列表没有括号，与子过程名用空格隔开，时，参数列表没有括号，与子过程名用空格隔开，无参数时，只写子过程名无参数时，只写子过程名n例如例如nPrivate Sub Form_Click()n Triangle 8 或或 Ca

21、ll Triangle( 8 )nEnd Sub 22子过程的应用子过程的应用n例例7-4n编写程序，可以用按钮分别把列表框中选中的列表项上移编写程序，可以用按钮分别把列表框中选中的列表项上移一行、下移一行、移到最前面、移到最后面一行、下移一行、移到最前面、移到最后面n分析分析n这这4个按钮的功能都是把选中的列表项移到另一个位置，不个按钮的功能都是把选中的列表项移到另一个位置，不同的是目标位置的索引值不同同的是目标位置的索引值不同n使用同一个子过程使用同一个子过程MoveItem来实现列表项的移动，列表项来实现列表项的移动，列表项的原位置和目标位置的索引值作为参数传给过程的原位置和目标位置的索

22、引值作为参数传给过程n在在4个按钮的个按钮的Click事件过程中调用事件过程中调用MoveItem过程，并传递过程，并传递不同的参数不同的参数 下移后下移后下移前下移前23Private Sub Command1_Click() If List1.ListIndex 0 Then MoveItem List1.ListIndex, List1.ListIndex - 1 上移一行上移一行 End IfEnd SubPrivate Sub Command2_Click() If List1.ListIndex -1 And List1.ListIndex 0 Then Call MoveItem

23、(List1.ListIndex, 0) 移到最前面移到最前面 End IfEnd Sub 程序代码程序代码24程序代码程序代码Private Sub Command4_Click( ) If List1.ListIndex -1 And List1.ListIndex a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1) = temp End If Next j Next iEnd Sub 33可选参数可选参数 n过程的形参可以定义为可选参数过程的形参可以定义为可选参数n过程调用时，可以不为可选参数提供实参过程调用时，可以不为可选参数提供实

24、参n前面有前面有Optional关键字形参是可选参数关键字形参是可选参数n所有可选参数只能出现在形参表的最后所有可选参数只能出现在形参表的最后n在过程中可以用在过程中可以用IsMissing函数来判断某个函数来判断某个参数是否有值（是否有对应的实参）参数是否有值（是否有对应的实参）n若有值，函数返回若有值，函数返回Truen否则返回否则返回False。34可选参数可选参数nSub Test (a As Integer, Optional x, Optional y As String)n Print a,n If Not IsMissing(x) Thenn Print x,n End Ifn

25、 If Not IsMissing(y) Thenn Print y,n End Ifn PrintnEnd Sub 调用语句调用语句输出结果输出结果Test 1212Test 12, 251225Test 12, 25, Optional“1225 Optional35对象参数对象参数 n参数的数据类型可以是对象型参数的数据类型可以是对象型n对应的实参则是一个具体的对象名对应的实参则是一个具体的对象名n例如窗体、文本框或命令按钮例如窗体、文本框或命令按钮n若形参的类型是若形参的类型是Object型，实参可以是各种对象型，实参可以是各种对象n若形参是某个特定的类名，实参应是与该类相匹配的对象名

26、若形参是某个特定的类名，实参应是与该类相匹配的对象名n例如例如n窗体属于窗体属于Form类类n各种控件属于各种控件属于Control类类 文本框属于文本框属于TextBox类类 列表框属于列表框属于ListBox类类n在过程中，对象类型的形参相当于一个与其结合的实参对象在过程中，对象类型的形参相当于一个与其结合的实参对象n可以用访问对象的方式访问它的属性、方法，就如同这是实参可以用访问对象的方式访问它的属性、方法，就如同这是实参对象本身对象本身 36对象参数应用对象参数应用n例例7-9n用鼠标左键单击窗体，就在左边的列表框用鼠标左键单击窗体，就在左边的列表框List1中添加中添加6个列表项；若

27、用鼠标右键单击窗体，则在右边的列表框个列表项；若用鼠标右键单击窗体，则在右边的列表框List2中添加中添加6个列表项个列表项n分析分析n对对2个列表框的操作是相同的个列表框的操作是相同的n定义一个过程来实现为列表项的操作定义一个过程来实现为列表项的操作n利用参数确定对哪个列表框进行操作利用参数确定对哪个列表框进行操作n思路思路n把过程把过程AddListItems的参数的参数TestList 设计为设计为Control类型（或类型（或ListBox 类型）类型）n分别把分别把List1、 List2作为实参调用过程作为实参调用过程n在过程中调用在过程中调用TestList的的AddItem方法

28、添加列表项方法添加列表项37Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Dim ch(5) As String For k = 0 To 5 ch(k) = item & k Next k If Button = 1 Then AddListItems List1, ch Else AddListItems List2, ch End IfEnd SubSub AddListItems(TestList As Control, ch( ) As Strin

29、g) m = LBound(ch) n = UBound(ch) For k = m To n TestList.AddItem ch(k) Next kEnd Sub 387.5 过程与变量的作用域过程与变量的作用域 n作用域是指一个名称在程序中可以被访问作用域是指一个名称在程序中可以被访问的区域的区域n过程的作用域过程的作用域n过程的作用域就是一个过程名在程序中的过程的作用域就是一个过程名在程序中的有效区域有效区域n过程按作用域可以分为过程按作用域可以分为n窗体（或模块）级过程窗体（或模块）级过程n全局过程全局过程 39窗体（或模块）级过程窗体（或模块）级过程 n在关键字在关键字Sub或或

30、Function前面添加关键字前面添加关键字Privaten窗体级过程只在定义它的窗体中或标准模窗体级过程只在定义它的窗体中或标准模块中有效块中有效n在其他窗体中或标准模块中无法识别该过在其他窗体中或标准模块中无法识别该过程，因此也就不能调用该过程程，因此也就不能调用该过程n窗体和各种控件的事件过程都是窗体级过窗体和各种控件的事件过程都是窗体级过程程n不同窗体或模块中可以有名称相同的窗体不同窗体或模块中可以有名称相同的窗体级过程级过程40全局过程全局过程 n一下一下2种情况是全局过程种情况是全局过程 n在在Sub或或Function前面添加了关键字前面添加了关键字Publicn在在Sub或或F

31、unction前面没有任何关键字前面没有任何关键字n全局过程可在应用程序的任何地方被调用全局过程可在应用程序的任何地方被调用n根据全局过程被定义的位置，调用方式有所不同根据全局过程被定义的位置，调用方式有所不同 作用域作用域定义方定义方式式定义位置定义位置调用方式调用方式 在本窗体（或在本窗体（或模块）内模块）内在其他窗体（或模块）内在其他窗体（或模块）内窗体（模窗体（模块）级块）级 前面加前面加Private 窗体中窗体中只写过程名只写过程名不能调用不能调用标准模块中标准模块中只写过程名只写过程名不能调用不能调用全局级全局级 前面加前面加Public 窗体中窗体中只写过程名只写过程名过程名前

32、加窗体名过程名前加窗体名标准模块中标准模块中只写过程名只写过程名若过程名唯一，只写过程名若过程名唯一，只写过程名若过程名不唯一，过程名前加模块名若过程名不唯一，过程名前加模块名 41变量的作用域变量的作用域 n变量名在程序中的有效区域，即在程序中可变量名在程序中的有效区域，即在程序中可以被访问的范围以被访问的范围n变量可以分为变量可以分为n局部变量局部变量n窗体（或模块）级变量窗体（或模块）级变量n全局变量全局变量 42局部变量局部变量 n局部变量是只在定义它的过程中有效的变量局部变量是只在定义它的过程中有效的变量n作用域是定义它的过程，在其他过程中无法访问作用域是定义它的过程，在其他过程中无

33、法访问n局部变量包括局部变量包括n在过程体中用在过程体中用Dim显式声明的变量。显式声明的变量。n没有声明过而在过程中直接使用的变量（即隐式声没有声明过而在过程中直接使用的变量（即隐式声明的变量）明的变量）n过程的形参过程的形参n局部变量生存期局部变量生存期n局部变量在过程被调用时分配存储空间并被初始化局部变量在过程被调用时分配存储空间并被初始化n在过程结束时其存储空间被释放在过程结束时其存储空间被释放n同一过程中不能声明同名变量同一过程中不能声明同名变量n不同过程中可以声明同名变量而不会混淆不同过程中可以声明同名变量而不会混淆43窗体（或模块）级变量窗体（或模块）级变量 n在窗体或模块的通用

34、声明段中用在窗体或模块的通用声明段中用Dim或或Private声明的变量声明的变量n在该窗体中的所有过程中都可以被访问在该窗体中的所有过程中都可以被访问n作用域局限在声明它的窗体或模块中作用域局限在声明它的窗体或模块中n不能被其他窗体或模块中的程序所访问不能被其他窗体或模块中的程序所访问n提供了另一种过程之间传递信息的渠道提供了另一种过程之间传递信息的渠道n有副作用有副作用44全局变量全局变量 n在窗体或模块的通用声明段中用在窗体或模块的通用声明段中用Public声明的变量声明的变量n可以在同一个窗体的各过程之间双向传递信息，还可以在同一个窗体的各过程之间双向传递信息，还可以在不同的模块之间双

35、向传递信息可以在不同的模块之间双向传递信息n使用全局变量会破坏信息局部化和信息隐蔽的原则使用全局变量会破坏信息局部化和信息隐蔽的原则n在可能的情况下，应尽量不用全局变量在可能的情况下，应尽量不用全局变量 n全局变量的作用域是整个应用程序，在程序的所有全局变量的作用域是整个应用程序，在程序的所有过程中都可以被访问过程中都可以被访问n在窗体模块和标准模块中都可以声明全局变量，但在窗体模块和标准模块中都可以声明全局变量，但因声明的位置不同，访问的形式也有所区别因声明的位置不同，访问的形式也有所区别 453种变量的作用域、声明方式种变量的作用域、声明方式和访问形式和访问形式 作用作用域域 声明声明 访

36、问形式访问形式 关键字关键字 位置位置 在本过程内在本过程内在本窗体（或模在本窗体（或模块）其他过程内块）其他过程内在其他窗体在其他窗体（或模块）内（或模块）内局部局部变量变量 Dim 过程中过程中只写变量名只写变量名不能访问不能访问不能访问不能访问窗体窗体（模块）（模块）级变量级变量 Dim或或Private 窗体的通用窗体的通用声明段声明段只写变量名只写变量名只写变量名只写变量名不能访问不能访问标准模块的标准模块的通用声明段通用声明段只写变量名只写变量名只写变量名只写变量名不能访问不能访问全局全局变量变量 Public 窗体的通用窗体的通用声明段声明段只写变量名只写变量名只写变量名只写变量

37、名变量名前加窗体名变量名前加窗体名标准模块的标准模块的通用声明段通用声明段只写变量名只写变量名只写变量名只写变量名若变量名唯一，只若变量名唯一，只写变量名写变量名若变量名不唯一，若变量名不唯一，变量名前加模块名变量名前加模块名46变量的作用域变量的作用域nPublic a As Integer 全局变量全局变量nDim b As Boolean 窗体级变量窗体级变量nPrivate Sub Command1_Click()n Dim x As Integer 局部变量局部变量n x = 10n b = Truen a = 100n pro1 xnEnd SubnPrivate Sub Comm

38、and2_Click()n Dim x As Long 局部变量局部变量n y% = 5 局部变量局部变量n b = Falsen a = 200n Call pro1(y)nEnd SubnPrivate Sub pro1(m As Integer) m为局部变量为局部变量n Print m, b, anEnd Sub47静态局部变量静态局部变量 n局部变量的生存期是过程的一次调用期间局部变量的生存期是过程的一次调用期间n每次调用过程时的局部变量是不同的每次调用过程时的局部变量是不同的n为使每次调用过程时的局部变量是相同的，应为使每次调用过程时的局部变量是相同的，应使用静态局部变量使用静态局

39、部变量n静态局部变量的作用域仍是声明它的过程之内静态局部变量的作用域仍是声明它的过程之内n过程执行完毕不释放其存储空间，仍保留其原过程执行完毕不释放其存储空间，仍保留其原有值有值n静态变量的声明格式静态变量的声明格式nStatic As nStatic是关键字，用于声明静态变量是关键字，用于声明静态变量 48静态局部变量静态局部变量例例7-11 分析下面程序的输出结果分析下面程序的输出结果 Private Sub Command1_Click() Dim k As Integer For k = 1 To 10 Sub1 Next k Print For k = 1 To 10 Sub2 Ne

40、xt kEnd SubPrivate Sub Sub1() Dim count As Integer count = count + 1 Print count; ;End SubPrivate Sub Sub2() Static count As Integer count = count + 1 Print count; ;End Sub 调用调用Sub1的输出的输出1 1 1 1 1 1 1 1 1 1 调用调用Sub2的输出的输出1 2 3 4 5 6 7 8 9 10 49静态局部变量应用静态局部变量应用n例例7-12n在文本框中输入密码后单击在文本框中输入密码后单击“密码确认密码确

41、认”按钮进行密码确按钮进行密码确认，若密码正确，弹出信息框显示认，若密码正确，弹出信息框显示“密码正确密码正确”，若密码，若密码错误，弹出信息框显示错误，弹出信息框显示“密码错误，请重新输入密码错误，请重新输入”，但最，但最多允许输出多允许输出3次，若还不正确，则弹出信息框显示次，若还不正确，则弹出信息框显示“密码错密码错误，不能再输入误，不能再输入”，且，且“密码确认密码确认”按钮变为无效按钮变为无效 。n分析分析n每次确认密码都要单击命令按钮，都要调用每次确认密码都要单击命令按钮，都要调用Command1_Click事件过程事件过程n为记录确认密码的次数，就要对调用为记录确认密码的次数，就

42、要对调用Command1_Click事事件过程的次数计数件过程的次数计数n声明一个静态局部变量声明一个静态局部变量num作为计数器作为计数器 50程序代码程序代码Private Sub Command1_Click() Static num As Integer num是静态局部变量是静态局部变量 num = num + 1 If Text1.Text = 123456 Then MsgBox 密码正确密码正确 ElseIf num = 3 Then Command1.Enabled = False MsgBox 密码错误，不能再输入密码错误，不能再输入 Else MsgBox 密码错误，请重新输入密码错误，请重新输入 End IfEnd Sub