access循环语句.ppt

If语句的嵌套使用： 指If或Else后面的语句块中又包含有If语句。语句格式为： If 条件表达式1 Then 语句块1 If 条件表达式11 Then 语句块11 End If End If 【例2】判定学生总评成绩： Select Case Val(me!Zpcj) Case is=90 me!Zpjg=优秀 Case 80,81,82 to 89 me!Zpjg=良好 Case 70 to 79 me!Zpjg=中等 Case 60 to 69 me!Zpjg=及格 Case Else me!Zpjg=不及格 End Select 循环语句 (1)Do While…Loop循环语句 语法格式为： Do While 条件表达式 语句块 [Exit Do] 语句块 Loop 功能： Do While循环语句：当条件表达式结果为真时，执行循环体，直到条件表达式结果为假或执行到Exit Do语句而退出循环体。 (2)Do Until…Loop循环语句 语法格式为： Do Until 条件表达式 语句块 [Exit Do] 语句块 Loop Do Until循环语句：当条件表达式结果为假时，执行循环体，直到条件表达式结果为真或执行到Exit Do语句而退出循环体。 (3)Do…Loop While循环语句 语法格式为： Do 语句块 [Exit Do] 语句块 Loop While 条件表达式 说明： 关键字While用于指明当条件为真(True)时，执行循环体中的语句。 (4)Do…Loop Until循环语句 语法格式为： Do 语句块 [Exit Do] 语句块 Loop Until 条件表达式 说明： 关键字Until用于指明当条件为真(True)前执行循环体中的语句。 对于(1)和(2)循环语句先判断后执行，循环体有可能一次也不执行；而对于(3)和(4)循环语句为先执行后判断，循环体至少执行一次。 在Do…Loop循环体中，可以在任何位置放置任意个数的Exit Do语句，随时跳出Do…Loop循环。 如果Exit Do使用在嵌套的Do…Loop语句中，则Exit Do会将控制权转移到Exit Do所在位置的外层循环。 当省略While或Until条件子句时，循环体结构变成如下格式： Do 语句块 [Exit Do] 语句块 Loop 循环结构仅由Do... Loop关键字组成，表示无条件循环，若在循环体中不加Exit Do语句，循环结构为“死循环”。 【例3】把26个小写英文字母赋给数组strx。 Dim strx(1 to 26) As String I=1 Do While I=26 strx(I)=Chr(I+96) I=I+1 Debug.print strx(i) Loop 5)For…Next循环语句 主要用于循环次数已知的循环操作。语句格式为： For 循环变量=初值 To 终值 [step 步长值] 语句块 [Exit For] 语句块 Next 循环变量 功能： 循环变量先被赋初值。判断循环变量是否在终值内，如果是，执行循环体，然后循环变量加步长值继续；如果否，结束循环，执行Next后的语句。 说明：循环变量必须为数值型。 step步长值：可选参数。如果没有指定，则step的步长值默认为1。注意：步长值可以是任意的正数或负数。一般为正数，初值应小于等于终值；若为负数，初值应大于等于终值；步长值不能为0，否则造成“死循环”。 【例4】把26个大写英文字母赋给数组strx。 Dim strx(1 to 26) As String I=1 For I=1 To 26 strx(I)=Chr(I+64) Next I 说明：循环体结束后，循环变量的值为循环终值+步长值，上例循环结束后I值为27。 【例5】分析下列程序的循环结构： For K=5 To 10 Step 2 K=K*2 Next K 按照公式计算，循环次数为：(10-5+1)/2=3次，但这是错误的。实际上，该循环的循环次数为只有1次(循环变量先后取值5和12，循环执行1次之后，循环变量值为12，超过终值10，循环结束)。 【例6】在立即窗口中显示有(*)组成的5*5的正方形。 Sub Procedure5( ) 输出5*5的正方形 Const MAX=5 定义常量 Dim Str As String Str= For n=1 to Max Str=Str+* Next n For n=1 to Max