可视化程序设计第8章 变量与过程的作用范围.ppt

《可视化程序设计第8章 变量与过程的作用范围.ppt》由会员分享，可在线阅读，更多相关《可视化程序设计第8章 变量与过程的作用范围.ppt（30页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第8章 变量与过程的作用范围8.18.1 代码模块的概念代码模块的概念 8.1.1 8.1.1 窗体模块窗体模块窗体模块窗体模块 8.1.2 8.1.2 标准模块标准模块标准模块标准模块 8.1.3 8.1.3 类模块类模块类模块类模块8.2 8.2 8.2 8.2 变量的作用范围变量的作用范围变量的作用范围变量的作用范围 8.2.1 8.2.1 8.2.1 8.2.1 过程级变量过程级变量过程级变量过程级变量 8.2.2 8.2.2 模块级变量模块级变量模块级变量模块级变量 8.2.3 8.2.3 变量的生存期变量的生存期变量的生存期变量的生存期 8.3 8.3 8.3 8.3 过程的作用范

2、围过程的作用范围过程的作用范围过程的作用范围 8.3.1 8.3.1 模块级过程模块级过程模块级过程模块级过程 8.3.2 8.3.2 全局级过程全局级过程全局级过程全局级过程 8.3.3 8.3.3 调用其他模块中的过程调用其他模块中的过程调用其他模块中的过程调用其他模块中的过程8.4 高级变量 8.4.1 使用多个同名的变量使用多个同名的变量 8.4.2 公有变量与局部变量的比较公有变量与局部变量的比较 8.4.3 阴影窗体属性和控件阴影窗体属性和控件 8.4.4 使用同名的变量和过程使用同名的变量和过程8.5 用户定义类型 8.5.1 用户定义类型的概念用户定义类型的概念 8.5.2 创

3、建用户定义类型创建用户定义类型 8.5.3 建立和使用用户定义类型变量建立和使用用户定义类型变量 8.5.4 用户定义类型数组用户定义类型数组 8.5.5 程序举例程序举例习题八习题八8.1 代码模块的概念VB应用程序（通常称为工程）的应用程序（通常称为工程）的组织结构，它由窗体模块、标准模组织结构，它由窗体模块、标准模块和类模块组成。块和类模块组成。VB程序代码就程序代码就保存在窗体模块文件（保存在窗体模块文件（.Frm）、）、标准模块文件（标准模块文件（.Bas）或类模块）或类模块文件（文件（.Cls）中。它们形成了工）中。它们形成了工程的一种模块层次结构，如图所示。程的一种模块层次结构，

4、如图所示。8.1.1 窗体模块窗体模块(文件扩展名为文件扩展名为.FRM)窗窗体体模模块块可可以以包包含含处处理理事事件件的的过过程程、通通用用过过程程以以及及变变量量、常常数数和和外外部部过过程程的的窗窗体体级级声声明明。如如果果要要在在文文本本编编辑辑器器中中观观察察窗窗体体模模块块，则则还还会会看看到到窗窗体体及及其其控控件件的的描描述述，包包括括它它们们的的属属性性设设置置值值。写写入入窗窗体体模模块块的的代代码码是是该该窗窗体体所所属属的的具具体体应应用用程程序序专专用用的；它也可以引用该应用程序内的其它窗体或对象。的；它也可以引用该应用程序内的其它窗体或对象。8.1.2 标准模块标

5、准模块（文件扩展名为文件扩展名为BAS）它它们们可可以以包包含含变变量量、常常数数、类类型型、外外部部过过程程和和全全局局过过程程的的全全局局(在在整整个个应应用用程程序序范范围围内内有有效效的的)声声明明或或模模块块级级声声明明。写写入入标标准准模模块块的的代代码码不不必必绑绑在在特特定定的的应应用用程程序序上上，则则在在许许多多不不同同的的应应用程序中可以重用标准模块。用程序中可以重用标准模块。8.1.3 类模块类模块（文件扩展名为文件扩展名为.CLS）在在 Visual Basic 中中类类模模块块是是面面向向对对象象编编程程的的基基础础。可可在在类类模模块块中中编编写写代代码码建建立立

6、新新对对象象。这这些些新新对对象象可可以以包包含含自自定定义义的的属属性性和和方方法法。实实际际上上，窗窗体体正正是是这这样样一一种种类类模模块块，在在其其上上可可安安放放控控件，可显示窗体窗口。件，可显示窗体窗口。8.2 变量的作用域变量的作用域概述：概述：在在VB中中，由由于于可可以以在在过过程程中中和和模模块块中中声声明明变变量量，根根据据定定义变量的位置和定义变量的语句不同，变量可以分为：义变量的位置和定义变量的语句不同，变量可以分为：局部变量（过程级变量）局部变量（过程级变量）窗窗体体/模模块块级级变变量量（私私有有的的模模块块级级变变量量，能能被被本本模模块块的的所所有有过程和函数

7、使用）过程和函数使用）全局级变量（公有的模块级变量）。全局级变量（公有的模块级变量）。8.2.1 过程级变量过程级变量-局部变量局部变量局部变量：在过程内用声明的变量，只能在本过程中使用。在局部变量：在过程内用声明的变量，只能在本过程中使用。在过程内部使用过程内部使用 Dim 或者或者 Static 关键字来声明的变量，只在声关键字来声明的变量，只在声明它们的过程中才能被访问或改变该变量的值，别的过程不可明它们的过程中才能被访问或改变该变量的值，别的过程不可访问。所以可以在不同的过程中声明相同名字的局部变量而互访问。所以可以在不同的过程中声明相同名字的局部变量而互不影响。不影响。例：例：Pri

8、vate Sub Form_Load()Dim n%n=10End SubPrivate Sub From_Click()Dim n%Print“n=“;nEnd Sub程序运行后单击窗体，其输出结果是什么？程序运行后单击窗体，其输出结果是什么？【例例8-1】过程级局部变量示例。过程级局部变量示例。Private Sub Form_Activate()Dim a As Integer,b As Integer,c As Integer 过程级局部变量过程级局部变量 a=5:b=3 Print Print Tab(15);a;Tab(25);b;Tab(35);c=a*b Print 调用调用p

9、rod前前;Tab(14);a;Tab(24);b;Tab(34);c Call prod Print 调用调用prod后后;Tab(14);a;Tab(24);b;Tab(34);c Print Print 调用调用sum前前;Tab(14);a;Tab(24);b;Tab(34);c Call sum Print 调用调用sum后后;Tab(14);a;Tab(24);b;Tab(34);cEnd SubSub prod()通用过程通用过程 Dim a As Integer,b As Integer,c As Integer 过程级局部变量过程级局部变量 c=a*b Print prod子

10、程序子程序;Tab(14);a;Tab(24);b;Tab(34);cEnd SubSub sum()通用过程通用过程 Dim a As Integer,b As Integer,c As Integer 过程级局部变量过程级局部变量 c=a+b Print sum子程序子程序;Tab(14);a;Tab(24);b;Tab(34);cEnd Sub8.2.2 模块级变量模块级变量 1.私私有有的的模模块块级级变变量量：在在“通通用用声声明明”段段中中用用Dim语语句句或或用用Private语语句句声声明明的的变变量量，可可被被本本窗窗体体/模模块块的的任任何何过过程程访问。但其他模块却不能访

11、问该变量。访问。但其他模块却不能访问该变量。例如：在例如：在“通用声明通用声明”段声明如下变量段声明如下变量:Private s As String Dim a As Integer2.公有的模块级变量公有的模块级变量公有的模块级变量也称全局变量，在窗体模块或标准模块的公有的模块级变量也称全局变量，在窗体模块或标准模块的顶部的顶部的“通用通用”声明段用声明段用Public关键字声明，它的作用范围关键字声明，它的作用范围是整个应用程序，即可被本应用程序的任何过程或函数访问。是整个应用程序，即可被本应用程序的任何过程或函数访问。【例8-2】公有的模块级全局变量示例。Public a As Inte

12、ger,b As Integer,c As Integer 写写在在“(通通用用)”的的“(声声明明)”中中Private Sub Form_Activate()事件过程事件过程 a=5:b=3 Print Tab(15);a;Tab(25);b;Tab(35);c=a*b Print 调用调用prod前前;Tab(14);a;Tab(24);b;Tab(34);c Call prod Print 调用调用prod后后;Tab(14);a;Tab(24);b;Tab(34);c Print Print Tab(15);a;Tab(25);b;Tab(35);c=a+b Print 调用调用su

13、m前前;Tab(14);a;Tab(24);b;Tab(34);c Call sum Print 调用调用sum后后;Tab(14);a;Tab(24);b;Tab(34);cEnd SubSub prod()通用过程 c=a*b Print prod子程序;Tab(14);a;Tab(24);b;Tab(34);cEnd SubSub sum()通用过程 c=a+b Print prod子程序;Tab(14);a;Tab(24);b;Tab(34);cEnd Sub8.2.3 变量的生存期变量的生存期除作用域之外，变量还有存活期，在这一期间变量能够保持它除作用域之外，变量还有存活期，在这一期

14、间变量能够保持它们的值。在应用程序的存活期内一直保持模块级变量和全局变们的值。在应用程序的存活期内一直保持模块级变量和全局变量的值。但是，对于量的值。但是，对于Dim声明的局部变量仅当过程执行期间存声明的局部变量仅当过程执行期间存在，当一个过程执行完毕，它的局部变量的值就已经不存在，在，当一个过程执行完毕，它的局部变量的值就已经不存在，而且变量所占据的内存也被释放。当下一次执行该过程时，它而且变量所占据的内存也被释放。当下一次执行该过程时，它的所有局部变量将重新初始化。的所有局部变量将重新初始化。局部变量的存活期由其定义的关键词来决定。局部变量的存活期由其定义的关键词来决定。局部变量声明：局部

15、变量声明：Dim声明：声明：随过程的调用而分配存贮单元，变量的初始化；过随过程的调用而分配存贮单元，变量的初始化；过程体结束，变量的内容自动消失，存贮单元释放。程体结束，变量的内容自动消失，存贮单元释放。Static声明声明，每次调用过程，变量保持上次调用结束时的值。，每次调用过程，变量保持上次调用结束时的值。声明形式：声明形式：Static 变量名变量名 AS 类型类型 Static Function 函数过程名函数过程名(参数列表参数列表)As 类型类型 Static Sub 子过程名子过程名(参数列表参数列表)注意：注意：过程名前加过程名前加Static，表示该过程内的局部变量都是静，表

16、示该过程内的局部变量都是静态变量。态变量。例例 下面程序说明了下面程序说明了Static关键字的作用。关键字的作用。Private Sub Form_Click()Dim i%，isum%For i=1 To 5isum=sum(i)Print isum，Next i End Sub Private Function sum(n As Integer)Dim j As Integer j=j+n sum=jEnd Function1 2 3 4 5Static j As Integer 结果如何？结果如何？8.3 过程的作用范围过程的作用范围通用子过程和函数过程既可写在窗体模块中也可写在标准模

17、通用子过程和函数过程既可写在窗体模块中也可写在标准模块中，在定义时可选用关键字块中，在定义时可选用关键字Private（局部）和（局部）和Public（全局）（全局），来决定它们能被调用的范围。，来决定它们能被调用的范围。8.3.1 模块级过程模块级过程加加Private关关键键字字的的过过程程，只只能能被被定定义义的的窗窗体体或或模模 块块中中的的过过程程调用。调用。8.3.2 全局级过程全局级过程加加Public关关键键字字（或或缺缺省省）的的过过程程，可可供供该该应应用用程程序序的的所所有有窗窗体和所有标准模块中的过程调用。体和所有标准模块中的过程调用。8.3.3 调用其他模块中的过程调

18、用其他模块中的过程 Form1窗体模块中的过程代码如下：窗体模块中的过程代码如下：Public Function mian_ji(x As Single,y As Single)As Single mian_ji=x*yEnd FunctionPrivate Sub Command1_Click(Index As Integer)Dim a As Single,b As Single a=Val(Text1(0).Text)b=Val(Text1(1).Text)n=Index If n=0 Then Label2(0).Caption=mian_ji(a,b)Else Label2(1).C

19、aption=zhou_chang(a,b)End IfEnd SubPrivate Sub Form_Load()Form2.ShowEnd Sub Form2窗体模块中的过程代码如下：窗体模块中的过程代码如下：Private Sub Command1_Click(Index As Integer)Dim a As Single,b As Single a=Val(Text1(0).Text)b=Val(Text1(1).Text)n=Index If n=0 Then Label2(0).Caption=Form1.mian_ji(a,b)Else Label2(1).Caption=zh

20、ou_chang(a,b)End IfEnd Sub 标准模块标准模块Module1中的过程代码：中的过程代码：Public Function zhou_chang(x As Single,y As Single)As Single zhou_chang=2*(x+y)End Function8.4.1 使用多个同名的变量使用多个同名的变量一、公用变量与局部变量同名一、公用变量与局部变量同名 在不同过程中定义同名变量，它们互不影响，但若在一在不同过程中定义同名变量，它们互不影响，但若在一过程中定义使用了与全局变量同名的变量，则就应注意。例过程中定义使用了与全局变量同名的变量，则就应注意。例如，

21、有名为如，有名为T的全局变量的全局变量,然后在某过程中声明名为然后在某过程中声明名为T的局部的局部变量，在该过程内通过引用名字变量，在该过程内通过引用名字T来访问局部变量；而在该来访问局部变量；而在该过程外通过引用名字过程外通过引用名字T来访问全局变量来访问全局变量 二、全局变量同名二、全局变量同名 如如果果不不同同模模块块中中的的全全局局变变量量使使用用同同一一名名字字，则则通通过过同同时时引用模块名和变量名就可以在代码中区分它们。引用模块名和变量名就可以在代码中区分它们。例如，如果有一个在例如，如果有一个在 Form1 和和 Module1 中都声明中都声明了了公公用用Integer变变量

22、量 intX，则则把把它它们们作作为为Module1.intX 和和Form1.intX 来引用便得到正确值。来引用便得到正确值。也也就就是是说说如如果果不不同同模模块块中中的的全全局局变变量量使使用用同同一一名名字字，引引用用时时就需要使用就需要使用“模块名模块名.变量名变量名”的形式来区分它们。的形式来区分它们。8.4.2 公有变量与局部变量的比较公有变量与局部变量的比较【例8-6】公有变量与局部变量的比较，如图8-12所示。设计方法如下：(1)选择新建一个新工程，进入窗体设计器。在窗体上增加一个标签Label1、一个文本框Text1和两个命令按钮Command1Command2（如图8-

23、12）。(2)编写代码。首先在窗体级声明公有变量x：Public x As String编写通用过程编写通用过程Test：Sub Test()Dim x As String 声明过程级变量声明过程级变量x x=局部变量局部变量 将过程级变量将过程级变量x的值设置为的值设置为局部变量局部变量 Text1.Text=x 显示过程级变量显示过程级变量x的值的值End Sub 在窗体的在窗体的Load事件代码中为公有变量赋值：事件代码中为公有变量赋值：Private Sub Form_Load()x=公有变量公有变量 将将Form1.x的值设置为的值设置为公有变量公有变量End Sub 编写命令按钮的

24、编写命令按钮的Click事件代码：事件代码：Private Sub Command1_Click()Text1.Text=x 显示窗体级变量显示窗体级变量x的值的值End SubPrivate Sub Command2_Click()Test 调用过程，显示过程级变量调用过程，显示过程级变量x的值的值End Sub8.5.2 创建用户定义类型创建用户定义类型 可可以以用用Type语语句句创创建建用用户户定定义义的的类类型型，该该语语句句必必须须置置于于模模块的声明部分。其格式为块的声明部分。其格式为Private|Public Type 用户类型名用户类型名 字段名字段名1 As 类型名类型名

25、1 字段名字段名2 As 类型名类型名2 字段名字段名n As 类型名类型名nEnd Type【例8-7】把数据值分别赋给stu变量中的各个字段。首先在窗体模块的通用段创建用户定义类型：Private Type studentrec stunum As String*6 学号元素为6个字符的定长字符串 names As String*8 姓名元素为8个字符的定长字符串 credit As Integer 学分元素为整型 avg As Single 平均成绩为单精度型End Type 编写命令按钮的Click事件代码：Private Sub Command1_Click()Dim stu As

26、studentrec 定义一个具有studentrec类型的变量stu stu.stunum=990001 stu.names=“王 平”stu.credit=65 stu.avg=88 Text1(0).Text=stu.stunum Text1(1).Text=stu.names Text1(2).Text=stu.credit Text1(3).Text=stu.avgEnd Sub用户定义类型也可以作为数组元素的数据类型【例8-8】假设某班有50位学生，每位学生一个记录，定义一个包含50个元素的用户定义数组，并给第32位学生赋值。首先在窗体模块的通用段创建用户定义类型：Private

27、Type studentrec stunum As String*6 names As String*8 credit As Integer avg As SingleEnd Type 编写命令按钮的Click事件代码：Private Sub Command1_Click()Dim student(1 To 50)As studentrec 定义记录数组 student(32).stunum=960001 student(32).names=张大力 student(32).credit=65 student(32).avg=88 Text1(0).Text=student(32).stunum

28、 Text1(1).Text=student(32).names Text1(2).Text=student(32).credit Text1(3).Text=student(32).avgEnd Sub【例8-9】输入学生的姓名、学号、语文分数、英语分数、数学分数，计算每名学生的个人平均成绩，并显示学生的各科成绩，如图8-14所示。设计方法如下：(1)选择新建一个新工程，进入窗体设计器。(2)编写代码。首先在窗体的通用段创建用户定义类型并且声明变量：Private Type studentrec na As String*6 姓名变量定义为6个字符长度 no As String*5 学号变量

29、定义为5个字符长度 ch As Single 语文变量定义为单精度数 en As Single 英语变量定义为单精度数 ma As Single 数学变量定义为单精度数 ag As Single 平均成绩定义为单精度数End TypeDim stu()As studentrec 定义记录数组 编写窗体的Load事件代码：Private Sub Form_Load()ReDim stu(0)End Sub 编写“输入”按钮Command1的Click事件代码：Private Sub Command1_Click()n=UBound(stu)ReDim stu(n+1)With stu(n+1).

30、no=Text1(0).Text .na=Text1(1).Text .ch=Text1(2).Text .en=Text1(3).Text .ma=Text1(4).Text.ag=Int(.ch+.en+.ma)/3*100)/100 求个人平均成绩 cc=Format(.ch,)&Format(.en,)&_ Format(.ma,)&Format(Str(.ag),)List1.AddItem Format(RTrim(.no),)&Format(RTrim(.na),)&cc End With Text1(0).SetFocusEnd Sub 编写编写“删除删除”按钮按钮Comman

31、d2的的Click事件代码：事件代码：Private Sub Command2_Click()If List1.ListIndex=1 Then MsgBox 请选定欲删除的项！请选定欲删除的项！Exit Sub End If n=List1.ListIndex+1For i=n To UBound(stu)1 stu(i)=stu(i+1)Next List1.RemoveItem n-1 Text1(0).Text=stu(1).no Text1(1).Text=stu(1).na Text1(2).Text=stu(1).ch Text1(3).Text=stu(1).en Text1(

32、4).Text=stu(1).maEnd Sub 编写列表框List1的Click事件代码：Private Sub List1_Click()n=List1.ListIndex+1 Text1(0).Text=stu(n).no Text1(1).Text=stu(n).naText1(2).Text=stu(n).ch Text1(3).Text=stu(n).en Text1(4).Text=stu(n).maEnd Sub另外编写文本框组的事件代码，使之方便输入：另外编写文本框组的事件代码，使之方便输入：Private Sub Text1_GotFocus(Index As Intege

33、r)Text1(Index).SelStart=0 Text1(Index).SelLength=Len(Text1(Index).Text)End SubPrivate Sub Text1_KeyPress(Index As Integer,KeyAscii As Integer)If KeyAscii=13 Then i=IIf(Index=4,0,Index+1)Text1(i).SetFocus End IfEnd Sub习题八习题八 8.1 在习题4.9中利用文本框检查用户口令的程序中，使用静态变量来限制输入口令的次数。8.2 在标准模块中编写求最大公约数的Function过程，然后在窗体模块中调用，来对分数进行化简，如图8-15所示。8.3 为例8-9增加计算全班平均成绩的功能。8.4 为例8-9增加按某科成绩排序的功能。8.5 为例8-9增加按姓名查找的功能。8.6 “井字棋游戏”，其规则是：轮流出棋，首先三子连成线者为赢。8.7 “扫雷”游戏是Windows中最著名的游戏，请设计一个简单的扫雷游戏（提示：在设计过程中，不仅需要用到顺序、选择、循环结构，而且还用到递归算法）。