Access 2010--第8章 程序设计语言VBA第8-3讲 VBA流程控制语句.pptVIP

二、循环控制语句1、DO循环语句--先判断后执行的循环语句 先判断后执行的循环语句有两种格式 Do while…Loop Do until…Loop 【格式1】 Do while 条件 循环体（语句序列） [Exit do] Loop Do while…Loop语句流程图 二、循环控制语句1、DO循环语句--先判断后执行的循环语句 【格式2】 Do until 条件 循环体 [Exit do] Loop until…Loop语句流程图 二、循环控制语句1、DO循环语句--先判断后执行的循环语句 【说明】 ① 对于Do while语句，循环开始先检查循环条件是否成立，条件为真则执行循环体，遇到Loop语句，程序返回循环开始处重新判断条件，条件为真继续执行循环体，直到条件为假循环结束。 ② 对于Do until语句，与Do while语句不同的是，当条件为假时执行循环体，直到条件为真时循环结束 ③ 循环体中若执行到Exit do语句就强行中止循环的执行。 【注意】对于先判断后执行的循环语句，循环体有可能一次也不执行。 二、循环控制语句1、DO循环语句--先执行后判断的循环语句 先执行后判断的循环语句有两种格式： Do …Loop while Do …Loop until 【格式1】 Do 循环体 [Exit do] Loop while 条件 Do…Loop while语句流程图 二、循环控制语句1、DO循环语句--先执行后判断的循环语句 【格式2】 Do 循环体 [Exit do] Loop until 条件 Do…Loop until语句流程图 二、循环控制语句1、DO循环语句--先执行后判断的循环语句 【说明】 ① 对于Do Loop while语句，先执行循环体，遇到Loop语句时判断条件是否成立，若条件为真，再次执行循环体，条件为假时循环结束。 ② 对于Do Loop until语句，先执行循环体，遇到Loop语句时判断条件是否成立，若条件为假，再次执行循环体，条件为真时循环结束。 【注意】对于先执行后判断的循环体语句，循环体至少执行一次。 二、循环控制语句1、DO循环语句---举例 【例8-6】将26个大写英文字母赋值给变量strx。代码如下。 Dim strx As String Dim i As Integer i = 1 strx = Do while i= 26 strx = strx + Chr(i + 64) i = i + 1 Loop * 第8章 VBA程序设计语言 8-3 Microsoft Access 2010 * * * * * * * 第8章 VBA程序设计语言——VBA流程控制语句 8-3 第8章 VBA程序设计语言 ——VBA流程控制语句教学内容 选择控制语句 If 选择控制语句 多分支Select Case 语句 条件函数 循环控制语句 DO循环语句 For循环语句 第8章 VBA程序设计语言 ——VBA流程控制语句学习目标 认知目标： 了解掌握选择控制语句和循环控制语句的书写格式 能力目标: 能够选择控制语句和循环控制语句进行程序设计（重点、难点） 一、选择控制语句1、If 选择控制语句 选择控制语句的作用是根据条件是否成立选择不同语句或程序段执行。 1. If 选择控制语句 If选择控制语句的格式有3种： 单分支 双分支 多分支 一、选择控制语句1、If选择控制语句--单分支选择控制语句 单分支选择控制语句主要有以下两种格式。 【格式1】 If 条件表达式 Then 语句序列 【格式2】 If 条件表达式 Then 语句序列 End If 一、选择控制语句1、If选择控制语句--单分支选择控制语句 单分支选择控制语句的执行流程如下： 一、选择控制语句1、If选择控制语句--单分支选择控制语句 【例8-1】若变量dj里已存入商品的单价，变量sl里已存入购买商品的数量，当购买数量大于等于10时，商品打9折，求购买商品应付金额。代码如下： je=sl*dj If sl=100 Then je=je *0.9 或可以写为 je=sl*dj If sl=100 Then je=je *0.9 End If 一、选择控制语句1、If选择控制语句--双分支选择控制语句 双分支选择控制语句主要有以下两种格式。 【格式1】 If 条件表达式 Then 语句序列1 Else 语句序列2 【格式2】 If 条件表达式 Then 语句序列1 Else 语句序列2 En