计算机二级ACCESS - 2011考试大纲及复习方法+历年真题+讲义 - 图(10)

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关键字可以使该子过程只适用于同一个模块中的其他过程。 创建过程的方法是：

打开模块，选择菜单“插入”→“过程”命令，在“添加过程”对话框中输入过程名 …… 此处隐藏：2206字，全部文档内容请下载后查看。喜欢就下载吧 ……