[理学]b第4章.ppt

* * * * * * * * * * 2、按地址传递 例： Private Function max(x As Integer, y As Integer) Dim z As Integer If x y Then z = x: x = y: y = z End If max = x txtx.Text = x: txty.Text = y End Function 4.6 变量和过程的作用范围 一、变量的作用范围 变量的作用范围指定义的变量能有效发挥其作用 的范围。 变量按其作用域可分为局部变量(过程级)、模块 变量(模块级)和全局变量(全局级)。 1、过程级变量 过程级变量只有在声明他们的过程中才有效，也称 局部变量。用户无法在其他过程中访问或改变该变量的 值。 语法: Dim 变量名 as 数据类型 Static 变量名 as 数据类型 例： Private sub form_load() Dim a as integer End sub [例] 统计单击窗体的次数 Private Sub Form_Click() Static intCount As Integer intCount = intCount+1 Print intCount End Sub 单击窗体3 次 将Static改为Dim 局部变量随过程的调用而分配存储单元，一旦该过 程体结束，变量的内容自动消失，占用的存储空间自动 释放。不同过程中可以有名称相同的变量，它们之间彼 此互不相干。使用局部变量有利于程序的调试。 2、模块级变量 模块级变量对该模块的所有过程都有效。在模块中 的任何过程都可以访问该变量，但其他模块的过程则不 可用。可在窗体模块和标准模块顶部用Dim或private关键 字声明模块级变量。 语法: Dim 变量名 as 数据类型 Private 变量名 as 数据类型 例：在通用，声明中声明： Dim b as single b就是模块级变量。 [例] Private a As Integer, b As Integer 声明模块变量 Private Sub Command1_Click() Dim intTemp As Integer 声明局部变量 a = 10 : b = 20 Print a和b内容交换前：; a; b intTemp = a: a = b: b = intTemp 变量交换 End Sub Private Sub Command2_Click() Print : Print a和b内容交换后：; a; b End Sub 3、全局变量 指在通用声明段中用Public语句声明的变量，即公用 变量。全局变量可被应用程序的任何过程或函数访问。全 局变量的值在整个应用程序中不会消失，只有当整个应用 程序执行完毕时，全局变量才会消失。声明全局变量的方 法是，在代码模块的声明部分用Public关键字来声明。 语法: Public 变量名 As 数据类型 例：在通用，声明中声明 Public a as integer a就是全局变量 二、静态变量 除了作用范围外，变量还有生存周期，在这 期间，变量的值保持不变。在应用程序存活期内， 模块级变量和公用变量的值都会一直保持。但是， 对于用Dim关键字声明的变量，只要过程一结束， 变量也就随之消失，它起先所占用的内存也被系 统回收。 当变量用Static（静态）关键字修饰时，不 同的过程互相调用的时候，变量的值将保持不 变，因为使用Static修饰过程中的变量时，变量 值将强制保持不变。 为了使过程中的所有变量都为静态变量，可 以将Static关键字放在Sub或者Function过程的前 面，包括事件过程声明为Private的过程 。 例： Private Static Function fac(n As Integer) Dim f As Integer f = f + n fac = f End Function Private Sub form_click() Dim I As