[小学教育]ACCESS课件第10章VBA程序模块设计.ppt

第10章 VBA程序模块设计 1 x=0 Y= -1 x0 1 x0 Y= 0 x=0 -1 x0 1 x=0 Y= -1 x0 1 x0 Y= 0 x=0 -1 x0 1 x0 Y= 0 x=0 -1 x0 （1）首先判断条件表达式的值。 （2）当条件表达式的值为False时，执行循环体内语句；条件表达式的值为True时退出循环，执行Loop后面的语句。 （3）当程序执行到Loop语句，则重新返回到循环的开始语句，再次判断条件表达式的值，即步骤（1）。 （4）在循环语句执行过程中若遇到Exit Do语句，则退出循环。 程序执行流程 P242 对条件表达式求值 执行循环体内语句 Do Until False True Loop Loop语句之后 流程图 P242 首次执行Do Until语句时，若条件成立，则循环体内的语句一次也不执行。 说明 P242 循环体内应该有改变循环条件的语句，否则将进入“死循环”。 Do Until和Loop必须成对出现。 先判断后执行。 Do Until … Loop循环举例 P242 【例1】计算100以内的整数之和。 Sub Sum( ) i = 1 s = 0 Do Until i 100 s = s + i i = i + 1 Loop MsgBox (100之内整数之和为: s) End Sub Do Until … Loop循环举例 P242 【例2】编程计算： S = 11+ 33 + 55 + 77 +……nn（n为奇数） 的值。 （1）当S的值大于820000时，停止计算； （2）显示S的值及已累加的奇数个数。 Do Until … Loop循环举例 P242 Sub Cumu( ) s = 0 : k% = 0 : n% = 1 Do Until s 820000 If n Mod 2 = 1 Then s = s + n ^ n k = k + 1 End If n = n + 1 Loop Debug.Print s 的值 = s Debug.Print 累加的奇数个数 = k End Sub Do Until … Loop循环举例 P242 【例3】将一个字符串进行反序显示。 Sub Antitone( ) c$ = abcdefg : cc$ = abcdefg p$ = Space ( 0 ) Do Until Len ( cc ) = 0 p = Left ( cc , 1 ) + p cc = Mid ( cc , 2 ) Loop Debug.Print c + 的反序为: + p End Sub （3）Do … Loop While P242 Do 语句块 [ Exit Do ] 语句块 Loop While 条件表达式 格式： （1）首先执行循环体内语句。 （2）当程序执行到Loop While语句时测试表达式的值。 （3）如果条件表达式的值为Ture，就返回到Do语句，再次执行循环体内的语句；若条件表达式的值为False，则退出循环。 （4）程序执行过程中，一旦遇到Exit Do语句就退出循环。 程序执行流程 P242 流程图 P242 对条件表达式求值 执行循环体内语句 Do False Tr