0模块.pptVIP

4、for-each 循环语句 for each循环用来遍历数组或对象集合中每一个元素，不需要指定循环次数，每个元素只遍历一次。如果不知道一个集合有多少个元素，用for each循环非常方便。 （1）格式 for each 循环变量 in 集合或数组 语句序列 next （2）功能 用循环变量依次遍历数组或对象集合中每一个元素，直到遍历结束。 * 练习：阅读下面程序。 dim a(50) as integer, i as integer, s as integer for i=1 to 50 给数组赋值 a(i)=i next s=0 for each i in a 遍历a中元素 if i mod 20 then s=s+i 计算奇数之和 next * 8.5 过程调用与参数传递 一、认识过程和参数 1、过程 过程是用来执行特定任务的一段独立的程序代码，这段代码能被反复调用。VBA的模块以过程为单元组成。 VBA的过程根据是否返回值分为两类：Sub过程和Function过程。Sub过程只执行操作不返回值，不能用在表达式中，调用时就象使用基本语句一样。Function过程又称为用户自定义函数，执行操作后返回结果，常用在表达式中，调用时就象使用基本函数一样。 过程名是标识符，不要与模块名重名，否则调用时会出现混乱。同一模块中，Sub过程也不要与Function过程重名。 过程不能嵌套定义，但可以嵌套调用。 * 2、参数 如果在调用过程中，主调方（调用过程的语句）与被调方（过程）存在数据传递关系，表现这种传递关系的数据就是参数。 参数分为形参（形式参数）和实参（实际参数）。形参用在被调方，只能是变量名或数组名。实参用在主调方，可以是常量、已赋值的变量、有计算结果的表达式。 当形参和实参都是变量时，存在两种参数传递方式：值传递与地址传递。值传递只能把实参的值传给形参，是“单向传递”。地址传递能在实参与形参之间实现参数的“双向传递”，不但将实参的值传给形参，形参的值也可以传给实参。 * 二、sub过程 sub 过程是包含在 sub 和 end sub 之间的一组代码，调用sub过程时只执行其中的操作，不返回值。 1、定义sub过程的格式 sub　过程名（形参1 as 数据类型，形参2 as 数据类型，…） 语句序列 end sub 2、调用sub过程 格式1：call 过程名（实参1 ，实参2，…） 格式2：过程名 实参1，实参2，… * 3、说明 （1）参数之间用逗号分隔，对应的形参与实参之间要类型匹配。 （2）用格式1调用sub过程必须加括号，用格式2调用sub过程不加括号。 （3）用 exit sub 语句立即从 sub 过程中退出。 （4）定义sub过程时即使无任何参数，也必须包含空括号（）。 （5）sub之前可以用public或private或static定义过程作用域。 （6）标准模块中的过程可以被所有对象调用，类模块中的过程只在本模块中有效。 * 例：sub过程练习 （1）建2个文本框→名称分别为t1和t2→附加标签标题分别为“输入矩形长：”和“输入矩形宽：”。 （2）建命令按钮→名称为c1→标题为“计算”。 （3）建立标准模块→ 以“过程模块”为名保存模块。 （4）在“过程模块”中定义jxmj过程，代码如下： Public Sub jxmj (h As Integer, w As Integer) Dim s As Integer s = h * w 计算矩形面积 MsgBox 矩形面积为: s 显示矩形面积 End Sub * （5）命令按钮c1的click事件代码： Dim a1 As Integer, a2 As Integer a1 = t1:a2 = t2 Call jxmj (a1, a2) 用格式1调用sub模块 （6）转到窗体视图→输入矩形长和宽→单击“计算”按钮。 * 三、function过程 1、定义function过程的格式 function　过程名（形参1，形参2，…）as 数据类型 语句序列 过程名=表达式 …… end function 2、调用function过程 调用function过程只有一种方式，即直接引用过程名，而且过程名在赋值号右端或在表达式中。 * 3、说明 （1）参