09第八九章_模块与VBA—ACCESS培训讲义794613.ppt

全国计算机等级考试——二级ACCESS培训讲义 考试方式 笔试（选择题35个+填空题15空） 公共基础知识（30分；识记为主，理解及推导为辅） ACCESS数据库程序设计（70分；假期把握练习册） 机试（三大题）以真题为准，强化练习！ 基本操作30分 简单应用40分 综合应用30分 8.8 三种基本结构程序设计 Select Case x Case 90 to 100 Print 优秀 Case 80 to 89 Print 良好 Case 70 to 79 Print 中等 Case 60 to 69 Print 及格“ Case 60 to 65 Print “在60到65之间“ Case Else Print 不及格 End Select 例：使用select case…..语句来实现成绩等级评选，程序段如下 注意： 按照在 Select...Case 结构中出现的顺序，将表达式的值和 Case 语句中的值进行比较。 如果发现一个匹配项或一条 Case Else 语句，则执行相应的语句块。 在任何情况下，随后都会将控制转移到 End Select 语句后面的语句。 8.8 三种基本结构程序设计 选择结构的嵌套 在IF语句的Then分支和Else分支中可以完整地嵌套另一IF语句或Select Case语句，同样Select Case语句每一个Case分支中都可嵌套另一IF语句或另一Select Case语句。下面是两种正确的嵌套形式： （1） IF 条件1 Then ….. if 条件2 Then …… Else ….. End If …. Else …. IF 条件3 Then ….. Else ….. End If ….. End IF （2） IF 条件1 Then ….. Select Case … Case …… IF 条件1 Then …… Else ….. End If …… Case…. ….. End Select …. End IF 8.8 三种基本结构程序设计 VBA的三个选择函数 IIF函数： IIf(条件式、表达示1，表达示2) 条件为真，返回表达式1的值；为假，返回表达示2的值 如：IIf(ab,a,b) 返回a,b中较大的值 Switch函数 switch(条件式1，表达式1[条件式2，表达式2…]) 条件式与表达式成对出现，如有条件式为真，则返回对应表达式的值 y=switch(x0,1,x=0,0,x0,1) 根据x的值来为y赋值。 Choose函数 Choose(索引式，选项1[,选项2…[,选项n]]) 根据索引式的值返回选项列表中的某个值 y=choose(x,1,m,7,n) 根据x的值来为y赋值。 8.8 三种基本结构程序设计 循环结构 ⑴ Do…Loop：通过Do来执行循环，有四种形式。其中While是条件为真时循环，Until是条件为假时循环。 形式1、2（当型循环） ： ? Do { While|Until }条件 语句块 [Exit Do] 语句块 Loop 8.8 三种基本结构程序设计 当型循环举例 Sub Command1.Click() ? Dim I As Intger ?? I=1 ? Do While I=20 ??? Print I ? I=I+1 ? Loop End