第16课：与模块及VBA应用 .ppt

6.2 Function过程 [例27] 计算 要求用IsPrime函数判断当前整数是否为质数，并 利用例5-26的模块级Factorial函数求解阶乘值。 6.2 Function过程 6.3 过程调用中的参数传递方式 参数的传递方式有两种：按地址传递和按值传递 1. 按地址传递 形参与实参在内存中占用相同的存储单元。当被调过程的形参值发生变化时，实参值也产生同样的变化。 默认的参数传递方式是按地址。如果要显式指定按地址传递方式，可在每个形参前增加关键字ByRef。 6.3 过程调用中的参数传递方式 [例28] 分析输出结果 运行 Z和C实际上是同一变量 6.3 过程调用中的参数传递方式 2. 按值传递 实参和形参是两个不同的变量，占用不同的内存单元。实参将其值赋给形参，以后形参的变化不会影响到实参的值。 要按值传递，必须在形参前冠以关键字ByVal。 6.3 过程调用中的参数传递方式 [例29] 分析输出结果 (1) 输出：X=10,Y=20 (2) 输出：A=10,B=20 (3) 输出：A=20,B=10 (4) 输出：X=10,Y=20 形参A、B的值的交换不影响实参X、Y的值 6.4 数组参数的传递方法 数组参数的传递只能使用按地址传递的方式 在被调过程中，用LBound()函数和UBound()函数可测出形参数组的下标下界与下标上界。 [例30] Array_Sum过程产生N个值在100以内的随机正整数，N是100以内的整数。要求调用Plus函数求和，并输出数据个数和数据总和。 6.4 数组参数的传递方法 7 多窗体应用 Access提供DoCmd方法打开或关闭窗体，命令格式： 打开窗体：DoCmd.OpenForm 窗体名 关闭当前窗体：DoCmd.Close 打开另一窗体时，窗体名字放在一对双引号内；引用其他窗体中的变量或控件值时，在窗体名前添加前缀“Form_”（此时不需要双引号） 7 多窗体应用 [例31] 7 多窗体应用 Form1程序代码： Form2程序代码： 4 循环语句 VBA提供了4类循环语句：For...Next循环、Do While...Loop循环、For Each...Next循环、While...End循环 最常用的是For...Next和Do While...Loop循环 4.1 For...Next循环 4.2 Do While...Loop循环 4.3 双重循环和多重循环 4.1 For...Next循环 For...Next循环一般用于循环次数已知的过程 语法格式： For 循环变量=初值 To 终值 [Step 步长值] [循环体] Next [循环变量] 步长值为1时可省略Step子句 4.1 For...Next循环 [例13] 编写Even()过程，输出10~20的所有偶数 相邻偶数相差2 思考：退出循环时，I的值是多少？为什么？ 4.1 For...Next循环 [例14] 思考：可否将循环修改为：For I = 10 To 1 step -1 ？为什么？ 用随机函数模拟入学分数 分值在300~399之间 4.1 For...Next循环 [例15]通过键盘输入一个自然数X，判断它是否为质数 质数：除1以外，只能被1和自己所整除的自然数 循环变量值超过终值后“自然”终止 4.2 Do While...Loop循环 Do While...Loop通常用于循环次数未知的过程 语法格式： Do While 循环条件表达式 [循环体] Loop 循环体中必须有“破坏”循环条件成立的语句，以免“死循环” 强制终止循环的语句是Exit Do，跳出循环后执行Loop后的语句。 4.2 Do While...Loop循环 [例16] -1为结束输入的标志 4.2 Do While...Loop循环 例16也可使用For...Next循环语句：将循环终值设为一个足够大的数，一旦输入-1即跳出循环。 4.3 双重循环和多重循环 双重循环：循环语句的循环体本身也是一个循环 对于一个m行n列的表格来说，常常需要用双重循环才能访问到表中的每一个数据。 对于一个外层循环有m次、内层循环有n次的双重循环，其核心循环体将重复执行m×n次。 多重循环指三重循环或更多层次嵌套的循环 4.3 双重循环和多重循环 [例17]在立即窗口中输出10以内的平方根表 Format()函数是打印项的格式函数，0.00表示小数保留两位，同时在没有整数部分、小数部分时用0填补。 4.3 双重循环和多重循环 [例18]求Sum ，直