Access 2010数据库应用技术第8章 模块与VBA程序设计.ppt

说明： ①“表达式”可以是数值表达式或字符串表达式。 ②表达式列表可以有如下3种格式。 值1[, 值2]……。 值1 To 值2。 Is 关系运算符值1[, 值2]……。 例8-8 给学生的成绩评级，成绩大于等于90分为“优”，大于等于80分且小于90分为“良”，大于等于70分且小于80分为“中”，大于等于60分且小于70分为“及格”，小于60分的为“不及格”。 程序片段如下。 Dim score As Integer score = InputBox(请输入score的值：) Select Case score Case Is = 90 MsgBox 优 Case Is = 80 MsgBox 良 Case Is = 70 MsgBox 中 Case Is = 60 MsgBox 及格 Case Else MsgBox 不及格 End Select 3．具有选择功能的函数 VBA提供了3个具有选择功能的函数，分别为IIf函数、Switch函数和Choose函数。 (1)IIf函数 IIf函数是一个根据条件的真假确定返回值的内置函数，其调用格式为 IIf(条件式,表达式1,表达式2) (2)Switch函数 Switch函数根据不同的条件值来决定函数的返回值，其调用格式为 Switch(条件式1,表达式1,条件式2,表达式2,…,条件式n,表达式n) (3)Choose函数 Choose函数是根据索引式的值返回选项列表中的值，其调用格式为 Choose(索引式,选项1,选项2,…,选项n) 8.3.3 循环控制 1．用For语句实现循环 For循环的格式为 For 循环变量＝初值 To 终值 [Step 步长] 循环体 Next 循环变量 其中，“循环变量”为数值型变量，用于统计循环次数，此变量可以从初值变化到终值，每次变化的差值由“步长”决定。如果“步长”为1，“Step 1”可以省略。“循环体”是在循环过程中被重复执行的语句组。 例8-9 利用For语句求s＝1＋2＋3＋4＋…＋1 000的值。 程序片段如下。 Dim i As Integer Dim s As Long s = 0 For i = 1 To 1000 s = s + i Next i MsgBox 1到1000的和为： s 例8-10 输出全部水仙花数，界面设计如图所示。 设置窗体界面后，编写命令按钮Command0的Click事件过程代码如下。 Private Sub Command0_Click() Dim x As Integer For x = 100 To 999 a = Int(x / 100) b = Int(x / 10) Mod 10 c = x Mod 10 If x = a ^ 3 + b ^ 3 + c ^ 3 Then Text0.Value = Text0.Value Space(3) x End If Next x End Sub 2．用Do语句实现循环 Do语句根据某个条件是否成立来决定能否执行相应的循环体部分，它有以下几种格式。 (1)Do While…Loop语句 语句格式为 Do While 条件表达式 循环体 Loop 语句执行时，若“条件表达式”的值为真，则执行Do While和Loop之间的“循环体”，直到“条件表达式”的值为假才结束循环。 (2)Do Until…Loop语句 语句格式为 Do Until条件表达式 循环体 Loop 语句执行时，若“条件表达式”的值为假，则执行Do Until和Loop之间的“循环体”，直到“条件表达式”的值为真才结束循环。 (3)Do…Loop While语句 语句格式为 Do 循环体 Loop While 条件表达式 语句执行时，首先执行一次“循环体”，执行到Loop While时判断“条件表达式”的值，如果为真，继续执行Do和Loop While之间的“循环体”，否则，结束循环。 (4)Do…Loop Until语句 语句格式为 Do 循环体 Loop Until 条件表达式 语句执行时，首先执行一次“循环体”，执行到Loop Until时判断“条件表达式”的值，如果为假，继续执行Do和Loop Until之间的“循环体”，否则，结束循环。 例8-11 假设我国现在的人口为13亿，若年增长率为r＝1.5%，试计算多少年后我国人口增加到20亿。人口计算公式为“p＝p0 (1＋r)n”，其中p0为人口初始值，r为增长率，n为年数。 程序片段如下。 Dim p As Single, r As Single, i As Integer p = 13 r = 0.015 i = 0 Do While p 20