2．If…Then…Else 语句 语句格式为 If <表达式> Then <语句块1> Else
<语句块2>
End If 说明：
（1）<表达式>可以是任何表达式，一般为关系表达式或布尔表达式。如果是其他表达式，则非0认为是True，0认为是False。
（2）执行时，先判断表达式的值，为True则执行语句块1，否则执行语句块2。 例如：输入两个数并在立即窗口输出其中较大的数 Dim x As Integer, y As Integer x = InputBox(\请输入x的值:\y = InputBox(\请输入y的值:\If x > y Then Debug.Print x Else
Debug.Print y End If
3．If…Then…ElseIf 语句 语句格式为
If <表达式1> Then <语句块1>
ElseIf <表达式2>Then <语句块2> … [ElseIf <表达式n>Then <语句块n> Else
<语句块 n+1> ] End If
运行时，从表达式1开始逐个测试条件，当找到第一个为True的条件时，即执行该条件后所对应的语句块。
4．Select Case—End Select 语句 语句格式为
Select Case <变量或表达式> Case <表达式1> 语句块1 Case <表达式2> 语句块2 … [Case Else
语句块n+1]
End Select 说明：
（1）Select Case后的变量或表达式只能是数值型或字符型表达式。
（2）执行过程是先计算Select Case后的变量或表达式的值，然后从上至下逐个比较，决定执行哪一个语句块。如果有多个Case后的表达式列表与其相匹配，则只执行第一个Case后的语句块。
（3）语句中的各个表达式列表应与Select Case后的变量或表达式同类型。各个表达式列表可以采用下面的形式
? 表达式： a +5
? 用逗号分隔的一组枚举表达式： 2, 4, 6, 8 ? 表达式1 To 表达式2 60 to 100 ? Is 关系运算符表达式 Is < 60
5．条件函数
除了上述条件语句外，VBA还提供了3个函数来完成相应选择操作：
(1)IIf函数： IIf(条件式，表达式1，表达式2)。
该函数根据“条件式”的值来决定函数返回值。 “条件式”值为真，函数返回“表达式1” 的值，“条件式”值为假，函数返回“表达式2” 的值。
(2)Switch函数： Switch(条件式1，表达式1[，条件式2，表达式2][，条件式3，表达式3]…[，条件式n，表达式n])
该函数是分别根据“条件1”，“条件2”直至“条件n”的值来决定函数的返回值。 (3)Choose函数：Choose(索引式，选项1[，选项2]…[，选项n])
该函数式根据“索引式”的值来返回选项列表中的某个值。 8.4.3 循环语句
循环控制结构也叫重复控制结构。特点是程序执行时，该语句中的一部分操作即循环体被重复执行多次。
循环语句可以实现重复执行一行或几行程序代码。VBA支持以下循环语句结构： (l)For…Next语句。 (2)Do…Loop语句。 (3)While…Wend语句。 1．For--Next循环语句 语句格式为
For <循环变量>＝<初值> to <终值> [Step <步长>] <循环体> Exit For <语句块> Next <循环变量> 说明：
（1）循环控制变量的类型必须是数值型。
（2）步长可以是正数，也可以是负数。如果步长为1，Step短语可以省略。
（3）根据初值、终值和步长，可以计算出循环的次数，因此For语句一般用于循环次数已知的情况。
（4）使用Exit For语句可以提前退出循环。 例 编程用For语句求1+2+3+…+10之和 Public Sub gc2()
Dim s As Integer, i As Integer s=0
For i = 1 To 10 Step 1 s = s + i Next i Debug.Print s End Sub
2．Do While…Loop语句 形式如下： Do While <条件> 循环体 Exit Do 语句块 Loop 说明：
（1）这里的条件可以是任何类型的表达式，非0为真，0为假。
（2）执行过程是：在每次循环开始时测试条件，对于Do While语句，如果条件成立，则执行循环体的内容，然后回到Do Whlie处准备下一次循环；如果条件不成立，则退出循环。 （3）Exit Do语句的作用是提前终止循环。
例如 ：下面的程序用Do While…Loop语句求1+2+3…+10之和。 Dim s As Integer, i As Integer s = 0 i = 1
Do While i <= 10 s = s + i i = i + 1 Loop
Debug.Print s
3．Do Until…Loop语句 形式如下： Do Until <条件> 循环体 Exit Do 语句块 Loop 说明：
（1）这里的条件可以是任何类型的表达式，非0为真，0为假。
（2）执行过程是：在每次循环开始时测试条件，对于Do Until语句，如果条件不成立，则执行循环体的内容，然后回到Do Until处准备下一次循环；如果条件成立，则退出循环。 （3）Exit Do语句的作用是提前终止循环。
例如 ：下面的程序用Do Until…Loop语句求1+2+3…+10之和。 Dim s As Integer, i As Integer s = 0 i = 1
Do Until i > 10 s = s + i i = i + 1 Loop
Debug.Print s
4．Do—Loop While语句 格式如下： Do
循环体 Exit Do 语句块
Loop While<条件> 说明：
和Do While…Loop不同的是， Do—Loop While语句在每次循环结束时测试条件。因此，二者的区别是如果一开始循环条件就不成立，则Do While…Loop中的循环体部分一次也不执行，而Do—Loop While 中的循环体部分被执行一次。 5．Do—Loop Until语句 格式如下： Do
循环体 Exit Do 语句块
Loop Until<条件> 说明：
和Do Until…Loop不同的是， Do—Loop Until语句在每次循环结束时测试条件。因此，二者的区别是如果一开始循环条件就不成立，则Do Until…Loop中的循环体部分一次也不执行，而Do—Loop Until中的循环体部分被执行一次。 6．While---Wend语句 格式如下： While 条件式 循环体
Wend 说明：
(1) While---Wend循环与 Do While …Loop结构类似，但不能在While---Wend循环中使用Exit Do语句。
(2)在VBA中，尽量不要使用While---Wend循环。 8.4.4 其他语句--标号和GoTo语句 GoTo语句用于实现无条件转移。 使用格式为：GoTo标号。
程序运行到此结构，会无条件转移到其后的“标号”位置，并从那里继续执行。GoTo语句使用时,“标号”位置必须首先在程序中定义好，否则转移无法实现。 8.5 过程调用和参数传递
? 过程是一段可以实现某个具体功能的代码 ? 与函数不同，过程没有返回值
? 既可以在类模块中，也可以在标准模块中创建过程
1．子过程的定义和调用
可以用 Sub语句声明一个新的子过程、接收的参数和子过程代码。其定义格式为： [Public|Private][Static] Sub 子过程名（[<形参>]） [<子过程语句>] ＜语句块＞ [Exit Sub]
＜子过程语句＞ End Sub
使用Public关键字可以使该过程适用于所有模块中的所有其他过程；使用Private关键字可以使该子过程只适用于同一个模块中的其他过程。 创建过程的方法是：
打开模块，选择菜单“插入”→“过程”命令，在“添加过程”对话框中输入过程名。 调用过程有以下两种格式： 格式1：call 过程名（[实参列表]） 格式2：子过程名 [实参列表] 这里过程名后的参数叫实际参数。
2．函数过程的定义和调用
可以使用Function语句定义一个新函数过程、接收参数、返回变量类型及运行函数过程的代码。其格式如下：
[Public | Private][Static]Function函数过程名[＜形参＞][As数据类型] [＜函数过程语句＞]
[函数过程语句＝＜表达式＞] [Exit Function] [＜函数过程语句＞
[函数过程语句=＜表达式＞ ] End Function
函数过程的调用格式只有一种：
函数过程名(＜实参＞)
由于函数过程返回一个值，实际上，函数过程的上述调用形式主要有两种方法：一是将函数过程返回值作为赋值成分赋予某个变量，其格式为“变量＝函数过程名(＜实参＞)”；二是将函数过程返回值作为某个过程的实参成分使用。
3．参数传递
过程定义时可以设置一个或多个形参(形式参数的简称)，多个形参之间用逗号分隔。其中，每个形参的完整定义格式：
[Optional][ByVal |ByRef][ParamArray]varname[()][As type][＝defaultvalue]
含参数的过程被调用时，主调过程中的调用式必须提供相应的实参(实际参数的简称)，并通过实参向形参传递的方式完成过程操作 。
在函数的调用过程中，一般会发生数据的传递，即将主调过程中的实参传给被调过程的形参。
在参数传递过程中，可以有传址和传值两种形式。
1．传址
如果在定义过程或函数时，形参的变量名前不加任何前缀，即为传址；若加前缀，须在形参变量名前加ByRef。
计算机二级ACCESS - 2011考试大纲及复习方法+历年真题+讲义 - 图文
