第8章_ACCESS2003实例(吴晓雨)技术方案.ppt

8.5.3 function过程 1．定义function过程的格式 function　过程名（形参1，形参2，…）as 数据类型 语句序列 过程名=表达式 …… end function 2．调用function过程 调用function过程只有一种方式，即直接引用过程名，而且过程名在赋值号右端或在表达式中。 3．说明 （1）参数之间用逗号分隔，对应形参与实参之间要类型匹配。 （2）“过程名=表达式”是function过程中不可缺少的语句。 （3）用 exit function 语句立即从 function 过程中退出。 （4）若function过程无任何参数，也必须包含空括号（）。 （5）function之前可以用public或private或static定义过程的作用域。 例：function过程练习 （1）建文本框→名称为t1。 （2）建标签→名称为Lab→标题为“圆面积=” （3）建命令按钮→名称为c1→标题为“计算”。 （4）在已有的“过程模块”中添加ymj过程，代码如下： Public Function ymj (r As Integer) As Single ymj = r * r * 3.14 End Function （5）命令按钮c1的click事件代码： Dim a As Integer a = t1 Lab.Caption = Lab.Caption ymj (a) （6）转到窗体视图→在文本框中输入半径→单击“计算”按钮→计算结果显示在标签中。 8.5.4 参数传递 当实参是变量名时，既可以用传值方式传递参数，也可以用传地址的方式传递参数。 1．参数的值传递 如果在过程的形参前加 byval说明符，参数的传递方式为“传值”。值传递的含义是指在过程中另外开辟存储单元存放从实参传过来的值，一旦过程结束，过程中开辟的存储单元被释放，该单元数据的改变不会保留下来。 2．参数的地址传递 如果在过程的形参前加 byref 说明符，参数的传递方式为“传地址”，参数的地址传递是默认选项，不加任何说明符，默认就是传地址。 地址传递的含义是指过程中的形参与主调方的实参指向同一个存储单元，在过程中对存储单元所做的修改，当过程结束后成为实参的当前值。 地址传递通常用在sub过程中。 例：参数传递练习 （1）建立2个文本框→名称分别为t1和t2。 （2）建立命令按钮→名称为c1→标题为“调用过程”。 （3）在已有的“过程模块”中添加cscd过程，代码如下： Public Sub cscd (ByRef a As Integer, ByVal b As Integer) a = a + 10 b = b + 10 End Sub （4）命令按钮c1的click事件代码： Dim x As Integer, y As Integer x = t1:y = t2 cscd x, y 用格式2调用sub过程 t1 = x:t2 = y （5）转到窗体视图→在两个文本框中都输入10→单击“调用过程”按钮→计算结果仍显示在文本框中。 4．注释语句 注释语句是非执行语句，用来提高程序的可读性，不被解释和编译。注释语句显示为绿色。 格式1：rem 注释内容 说明：用rem引导的注释语句，如果放在其他语句后面，之间用冒号分隔。 格式2： 注释内容 说明：用单引号引导的注释语句，放在其他语句后面时无需使用冒号分隔。 例：dim a1 as integer,a2 as integer : rem 定义两个整型变量 a1=12 给两个变量赋值 a2=34 a1=a1+a2 将两个变量的和赋给变量a1 rem 用消息框显示结果 msgbox a1+a2= a1 , vbInformation, 消息框 5．声明语句 声明语句是用来定义常量、变量、数组和过程。定义这些的同时，也定义了初始值、生命周期、作用域等内容。 初始值由数据类型决定， 如：integer，string。 生命周期由定义的位置决定， 如：局部、模块、全局。 作用域由定义时所使用的关键字决定。 如：dim、public。 6．赋值语句 赋值语句用来为变量指定一个值。 格式：变量名=值或表达式 说明： （1）格式中的等号（=）称为赋值号，与数学中等号意义不同。如表达式a=a+1在数学中不能用，在赋值语句中常用。 （2）赋