Access中VBA流程控制语句

1、Access 中 VBA 流程控制语句循环语句1循环语句循环语句可以实现重复执行一行或几行程序代码。VBA支持以下循环语句结构：For-Next、Do-Loop和While-Wend。For-Next 语句For-Next 语句能够重复执行程序代码区域特定次数，使用格式如下：For循环变量=初值To终值Step步长循环体条件语句序列Exit For结束条件语句序列Next循环变置其执行步骤（a-d ）为：循环变量取初值；循环变量与终值比较，确定循环是否进行：步长 0 时若循环变量值=终值，循环继续，执行步骤C若循环变量值终值，循环结束，退出循环。步长=0 时若循环变量值=终值，死循环；若循环变

2、量值终值，一次也不执行循环。步长0 时若循环变量值=终值，循环继续，执行步骤C若循环变量值终值，循环结束，退出循环。执行循环体；循环变量值增加步长不（循环变量=循环变量+步长），程序跳转至 b。循环变量的值如果在循环体内不被更改，则循环执行次数可以使用公式“循环次数=（终值-初值+1） /步长”计算。例如，如果初值=5，终值=10，且步长=2，则循环体的执行重复（10-5+1） /2=3 次。但如果循环变量的值在循环体内被更改，则不能适用上述公式来计算循环次数。For语句的流程如图8.18所示。例 8.12 分析下列程序段的循环结构：For K=5 to 10 Step 2K=2*KNext

3、K按照公式计算，循环次数为：(10-5+1)/2=3 次。但这是错误的。实际上，该循环的循环次数为只有1 次(循环变置先后取值 5和12，循环执行一次后，循环变置值为12，超过终值10，循环结束)。步长为1时，关键字Step可以省略。步长一般是整数取值，用实数也可以，但不常见。 如果终值小于初值，步长要取负值；否则， For-Next 语句会被忽略，循环体一次也不执行。如果在For-Next循环中，步长为0,该循环便会重复执行无数次，造成“死循环”选择性的 Exit For 语句可以组织在循环体中的 If-Then-End If 条件语句结构中，用来提前中断并退 出循环。For-Next循环结

4、束，则程序从Nect的下一行语句继续执行。在实际应用中，For-Next循环还经常与数组配合操作数组元素。例 8.13 将 A 到 Z 的大写字母赋予字符数组 str$()。For I=1 To 26str$(I)=Chr$(I+64)大写字母 “A” 的 ASII 码值为 65Next I例8.14在立即窗口中显示有星号(*)组成的5X5的正方形。Sub Procedure5()Const MAX=5Dim Str As StringStr=For n=1 To MAXStr=Str+*Next nFor n=1 To MAXDebug.Print strNext nEnd SubDo Wh

5、ile-Loop 语句使用格式如下：Do Whil e条件式循环体条件语句序列Exit Do结束条件语句序列Loop这个循环结构是在条件式结果为真时，执行循环体，并持续到条件式结果为假或执行到选择性Exit Do语句而退出循环，循环流程如图8.19所示。例8.15用Do While-Loop语句，完成例8.12大写英文26个字母向数组元素赋值的功能。代码如下:I=1Do While I=2 时编写程序，在立即窗口中显示n为2到10时对应的序列值。代码如下：Sub Procedure6()n=1f1=0f2=1Do While n10f=f1+f2Debug.Print ff1=f2f2=fn=

6、n+1LoopEnd SubDo Until-Loop 语句与Do While-Loop结构相对应，还有另一个Do循环结构，Do Until-Loop结构。该结构是条件式值为假时，重复执行循环，直至条件式值为真，结束循环。循环流程如图8.20所示。関Sr 20 De Uaiil3p圖环话旬直樫使用格式如下：Do Until条件式循环体条件语句序列Exit Do结束条件语句序列Loop例 8.17 将例 8.15 用 Do Until-Loop 循环结构语句必定程序：I=1Do Until I26 与While I=26条件不同,Unt订要判断直到I26结束循环Str$(I)=Chr$(I+64

7、)I=I+1Loop上面两个Do循环的条件式均安排在结构的起始位置。实际上，条件式也可以安排在结构的末尾。Do-Loop While 语句Do循环体条件语句序列Exit Do结束条件语句序列Loop While 条件式循环流程如图8.21 所示。Do-Loop Until 语句Do循环体条件语句序列Exit Do结束条件语句序列Loop Until 条件式循环流程如图8.22 所示。这样，就有4种Do循环结构。使用时，分析方法基本相同。即根据条件式结果的真假，对循环与否做出正确判断。While-Wend 语句While-Wend 循环与 Do While-Loop 结构类似，但不能在 While-Wend 循环中使用 Exit Do 语句。White-Wend