标准模块的编辑

 用For…Next语句可以将一段程序重复执行指定的次数。在循环中使用一个计数变量，每执行一次循环，其值都会增加(或减少)。语法形式如下：
    For’计数器=初值T0末值[Step步长]
    [<语句>]
    Exit For
    [<语句>]
    Next[计数器]
其中，“计数器”是一个数值变量。若未指定“步长”，则默认为1。如果“步长”是正数或O， 则“初值”应大于等于“末值”，否则，“初值”应小于等于“末值”。 中国自学编程网整理发布 www.zxbc.cn
    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方法在立即窗口中显示文本。