资源预览内容
第1页 / 共15页
第2页 / 共15页
第3页 / 共15页
第4页 / 共15页
第5页 / 共15页
第6页 / 共15页
第7页 / 共15页
第8页 / 共15页
第9页 / 共15页
第10页 / 共15页
亲,该文档总共15页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
理解多窗体及多模块应用程序各过程与变量的关系 理解通过全局变量实现各过程之间数据的传递; 掌握多模块中过程的作用域和调用关系 掌握变量作用域及生存周期。,本章要求:,过程和变量的作用域,本章重点:,本章难点:,多模块应用程序各过程与变量的关系、变量和过程和作用域。,多模块应用程序各过程与变量的关系,前面我们介绍了VB应用程序(通常称为工程)的组织结构,它由窗体模块、标准模块和类模块组成。VB程序代码就保存在窗体模块文件(.Frm)、标准模块文件(.Bas)或类模块文件(.Cls)中。它们形成了工程的一种模块层次结构,如下图所示。,1 概 述,2 过程的作用域,Public|Private Sub 子过程名(形式参数列表) . End Sub,概念,通用子过程和函数过程既可写在窗体模块中也可写在标准模块中,在定义时可选用关键字Private(局部)和Public(全局),来决定它们能被调用的范围。,1、窗体/模块级过程: 加Private关键字的过程,只能被定义的窗体或模 块中的过程调用。 2、全局级过程: 加Public关键字(或缺省)的过程,可供该应用程序的所有窗体和所有标准模块中的过程调用。,按过程的作用范围来划分,过程可分为: 模块级过程 全局级过程,用例1来说明过程的作用域,2 过程的作用域,总结归纳过程的定义及作用域如下表,2 过程的作用域,Sub Main过程(P96),3 变量的作用域,概述:,在VB中,由于可以在过程中和模块中声明变量,根据定义变量的位置和定义变量的语句不同,变量可以分为: 局部变量(过程级变量) 窗体/模块级变量(私有的模块级变量,能被本模块的所有过程和函数使用) 全局级变量(公有的模块级变量)。,3.1 过程级变量局部变量,局部变量:在过程内用声明的变量,只能在本过程中使用。,在过程内部使用 Dim 或者 Static 关键字来声明的变量,只在声明它们的过程中才能被访问或改变该变量的值,别的过程不可访问。所以可以在不同的过程中声明相同名字的局部变量而互不影响。,3 变量的作用域,例: Private Sub Form_Load() Dim n% n= 10 End Sub Private Sub From_Click() Dim n% Print “n=“;n End Sub,程序运行后单击窗体,其输出结果是什么?,3 变量的作用域,3.2 窗体/模块级变量,窗体/模块级变量:在“通用声明”段中用Dim语句或用Private语句声明的变量,可被本窗体/模块的任何过程访问。但其他模块却不能访问该变量。 例如:在“通用声明”段声明如下变量: Private s As String Dim a As Integer,3 变量的作用域,例: Dim n% Private Sub Form_Load() n= 10 End Sub Private Sub From_Click() Print “n=“;n End Sub,3.3 全局变量,全局变量也称公有的模块级变量,在窗体模块或标准模块的顶部的“通用”声明段用Public关键字声明,它的作用范围是整个应用程序,即可被本应用程序的任何过程或函数访问。 例如: Public a As Integer,b As single,3 变量的作用域,3种变量声明及使用规则如下表:,3 变量的作用域,一、公用变量与局部变量同名 在不同过程中定义同名变量,它们互不影响,但若在一过程中定义使用了与全局变量同名的变量,则就应注意。,3.4 关于多个变量同名,3 变量的作用域,Public Temp As Integer 定义全局变量 Private Sub Form_Load() Temp = 1 将全局变量Temp 的值设置成 1 End Sub Private Sub Command1_Click() Dim Temp As Integer 定义局部变量 Temp = 2 将局部变量Temp 的值设置成 2 Print temp=; Temp Print temp=; Form1.Temp End Sub Private Sub Command2_Click() Print temp=; Temp End Sub,3 变量的作用域,Private Sub Form_Click() Dim i% ,isum% For i = 1 To 5 isum = sum(i) Print isum, Next i End Sub,Private Function sum(n As Integer) Dim j As Integer j = j + n sum = j End Function,1 2 3 4 5,Static j As Integer 结果如何?,补充例题:,3 变量的作用域,
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号