ACCESS实例教程(第8章节vba).ppt

步长大于0时判断循环变量的当前值是否大于终值，步长小于 0判断循环变量的当前值是否小于终值。步长为0时导致循环 无法结束，所以步长不要设置为0。 步长可以是整数或小数，步长为1时可以省略。 除第一次循环以外，其他循环增加一个步长后与终值比较。 for循环可以嵌套。 在for循环中可以用exit for语句强行中止循环。 （3）说明 练习1：阅读下面程序段，循环结束后，各变量的值是多少？ dim s as integer, i as integer s=0 for i=1 to 10 step 2 s=s+i i=i+2 next 结论：循环结束后，变量i的值是13，变量 s 的值是15。 1、i=1 s=0+1=1 i=1+2=3 step 2 i=i+2=5 2、i=5 s=1+5=6 i=5+2=7 step 2 i=i+2=9 3、i=9 s=6+9=15 i=9+2=11 step 2 i=i+2=13 步长相当于4： for i=1 to 10 step 4 s=s+i next 练习2：下面的程序段使得循环中途退出 Dim s as integer, i as integer S=0 For i=0 to 100 step 2 s=s+i if s>=20 then exit for ‘中途退出循环 Next 分析：i=0 s=0+0=0 i=i+2=2 i=2 s=0+2=2 i=i+2=4 i=4 s=2+4=6 i=i+2=6 分析：i=6 s=6+6=12 i=i+2=8 i=8 s=12+8=20 结论：循环结束后，变量i的值是8， s 的值是20。 Dim s as integer, i as integer S=0 For i=0 to 100 step 2 s=s+i Next 1~100之间的偶数之和 Dim s as integer, i as integer S=0 For i=0 to 100 s=s+i Next 1~100之间的整数数之和 2．do-while-loop循环 do-while-loop循环是当型循环结构，先判断后执行。 （1）格式 do while 循环条件 语句序列 loop （2）功能 先检查循环条件是否成立，若条件为真，执行语句序列。遇到loop语句时返回循环开始处重新判断，若条件仍然为真，再次执行语句序列……。当条件为假时退出循环。 （3）说明 ·可以用exit do强行中止循环。 ·要考虑循环变量赋初值和给循环变量增加步长的问题。 ·如果将while换成until，当条件为真时循环结束。 练习：阅读下面的程序（注：大写字母A的ASCII码是65。） dim a(26) as string, b(26) as integer ‘字符数组 dim i as integer i=1 ' 给循环变量赋初值 do while i<=26 a(i)=chr(i+64) ' 将ASCII码变为字母 b(i)=Lcase(a(i)) ' 将大写字母变为小写字母 i=i+1 ' 使循环变量增加1 Loop 该循环结构循环26次，每次循环产生一个字母（大、小写），分别存放在a和b数组中。 即：通过循环产生26个大小写的英文字母，分别存放在A、B数组中。 3．do-loop-while循环 是直到型循环结构，先执行后判断。 （1）格式 do 语句序列 Loop while 循环条件 （2）功能 先执行语句序列，遇到loop语句时判断循环条件，若条件为真，再次执行语句序列……。当条件为假时退出循环。 （3）说明 ·可以用exit do强行中止循环。 ·要考虑给循环变量赋初值和给循环变量增加步长的问题。 ·如果将while换成until，当条件为真时循环结束。 4．for-each 循环语句 for each循环用来遍历数组或对象集合中每一个