Access第七章模块.ppt

* * * b * 1 B ByVal是传值调用。 2 B 2.Do while—loop语句（先判断，再执行） do while条件 循环体 [条件语句 exit do （强制跳出循环） 结束条件语句] loop 若变量i的初值为8，则下列循环语句中循环体的执行次数为 Do while i=17 i=i+2 这种题型比较多 loop A 3 B 4 C5 D 6 语句组 表达式 真 假 3.Do until—loop语句（先判断，再执行） do until条件 循环体 [条件语句 exit do 结束条件语句] loop 条件为假执行循环，持续到条件为真结束循环 语句组 表达式 假 真 例：以下程序段输出结果 Sub prog4() x=1 再看理解 y=4 Do Until y4 x=x*y y=y+1 Loop Debug.Print x End Sub 4.do—loop while语句（先执行，再判断） do 循环体 [条件语句 exit do 结束条件语句] loop while 条件 先执行1次循环，条件为真，继续执行循环 语句组 表达式 真 假 例：以下程序段运行结束后，变量x的值为… Sub prog5() x=2 y=4 Do x=x*y y=y+1 Loop While y4 Debug.Print x End Sub 5.do—loop until语句（先执行，再判断） do 循环体 [条件语句 exit do 结束条件语句] loop until 条件 先执行1次循环，条件为假，继续执行循环 语句组 表达式 假 真 6.while—wend语句 （不建议用） 和do while—loop类似，但是不能使用exit do 格式： while 条件式 循环体 wend 7.4.4 goto跳转语句与标号 1.使用GOTO跳转到标号 Public Sub aa() Dim s As Integer, x As Integer x = InputBox(请输入累加的终值) For x = 1 To x s = s + x GoTo a Next a: ’ 标号，标号要从最左边开始，用:结束 Debug.Print s End Sub 尽量避免使用goto语句 循环嵌套 　 一个循环的循环体中又包含另一个循环，这种结构称为循环嵌套。包含另一个循环的循环称为外层循环，被包含的循环称为内层循环。 　 一个循环的循环体中可以嵌套多个循环。 　 内层循环还可以嵌套另一个循环。 　 各种循环语句允许相互嵌套。 在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() dim i,j,x for i=1 to 20 step 2 x=0 for j=1 to 20 step 3 x=x+1 next j next i text1.value=Str(x) End Sub A 1 B 7 C 17 D 400 7.5 过程调用和参数传递 7.5.1 过程调用 可以用Sub语句声明一个新的子过程。其语法格式如下： [Public|Private][Static]Sub 子过程名([参数][As 数据类型]） [子过程语句] [Exit Sub] [子过程语句] End Sub 使用Public关键字可以使该过程适用于所有模块中的所有其他过程；用Private关键字则使该子程序只适用于同一模块中的其他过程。 例如编写一个计算加减乘除的过程，代码如下 Private Sub compute(a As Single, b As Single) 定义时括号里的叫形参 Dim c1