72模块与VBA编程基础VBA流程控制二级access资料（9).pptxVIP

模块与VBA编程基础;VBA程序语句按照功能分为 声明语句···用于给变量、常量或过程定义命名 执行语句···用于执行赋值操作、调用过程、实现各种流程控制 执行语句分为3种结构 顺序结构：按照语句顺序顺次执行，如赋值语句、过程调用语句等 选择结构（分支结构）：根据条件选择执行路径（流程控制） 循环结构：重复执行某一段程序语言（流程控制）;1.条件语句（If···Then）;1.条件语句(If···Then···Else);1.条件语句(If···Then···ElseIf);1.条件语句(Select Case-End Select);1.条件语句(Select Case-End Select);IIf函数 IIf(条件表达式1,表达式1,表达式2) 条件表达式1的值为真，返回表达式1的值，否则返回表达式2的值 例：Max=Iif(ab,a,b) =Iif([党员否]，”党员”,”非党员”) Switch函数 Switch(条件1,表达式1,条件2,表达式2,,,) 条件1为真，函数返回表达式1的值；条件2为真，函数返回条???2的值…… 例： y=Switch(x0,1,x=0,0,x0,-1) =Switch([系部编号]=“01”,”计算机”， [系部编号]=“02”,”电子”， [系部编号]=“03”,”商学”，) Choose函数 Choose(索引式,选项1,选项2,…..) 索引式值为1，函数返回选项1的值；索引式值为2，函数返回选项2的值…… 例：Y=choose(x,5,m+1,n) x=1,返回5；x=2,返回m+1； x=3,返回n； ;重复执行一行或多行程序代码 VBA支持For-Next、Do-Loop、While-Wend;2.循环语句（For-Next语句）;2.循环语句（For-Next语句例题）;2.循环语句（For-Next语句例题）;2.循环语句（For-Next语句例题）;2.循环语句（Do While-Loop语句）;2.循环语句（Do Until-Loop语句）;2.循环语句（Do –Loop While语句）;2.循环语句（Do –Loop Until语句）;GoTo语句用于实现无条件转移，程序执行遇到GoTo语句，会转移到标号位置，从标号处继续执行，使用格式： GoTo 标号 Sub test() 实现输出绝对值功能 Dim a%, b% a = Val(InputBox(请输入a的值)) If a 0 Then GoTo aa a = a * -1 aa: Debug.Print a End Sub