accessIf和循环课件.pptVIP

If语句的嵌套使用：;【例1】比较3个数值变量x、y和z的值，通过交换，使得xyz。 程序语句如下： If xy Then t=x: x=y: y=t 如果xy，x与y交换，使得xy If yz Then t=y: y=z: z=t 如果yz，y与z交换，使得yz If xy Then t=x: x=y: y=t 此时的x，y值已不是原先的值 End If End If End If 注意：嵌套If语句应注意书写格式，为提高程序的可读性，多采用锯齿型。注意If与End If的配对。多个If嵌套，End If与它最近的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;又例如： Dim strx as string *1 Select Case strx Case A to Z, a to z stry=英文字母 Case !,?,,,.,; stry=标点符号 Case Is68 stry=字符的ASCII码值小于68 Case Else stry=其他字符 End Select ;循环语句;(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循环语句;【例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+*