所在位置：
For’计数器=初值T0末值[Step步长]
[<语句>]
Exit For
[<语句>]
Next[计数器]
其中，“计数器”是一个数值变量。若未指定“步长”，则默认为1。如果“步长”是正数或O， 则“初值”应大于等于“末值”，否则，“初值”应小于等于“末值”。 整理发布
VBA在开始时，将“计数器”的值设为“初值”；在执行到相应的Next语句时，就把步长加(减)到计数器上。
注：可以把一个For循环放在另一个For循环中，形成循环的嵌套。这样做时，必须为每个计数器选择不同的名字。
[例]列出MyBooks数据库中前5个查询的名称。
Dim dbBooks As Database ’声明dbBooks为一个数据库对象
Dim intI As Integer ’声明一个整数变量
Set dbBooks=CurrentDb()
’指定dbBooks对象变量表示当前数据库。currentDb()为当前数据库
For intI=0 To 4 ’循环从O到4(共5次)，在[)ebtlg窗口打印出查询的名称
Debug．Print dbBooks．Quer’yI)efs(intI)．Name
’如果intI未达到4，则继续循环；每次intI增加一个步长；否则退出循环
Next intI
注：Debug对象在运行时将输出发送到立即窗口，其Print方法在立即窗口中显示文本。
| 操作选项: 加精 解精 奖惩 设专题 设公告 解公告 固顶 总固顶 解固顶 结帖 解结帖 锁帖 解锁 移帖 删帖 |
看看评论