access vba for语句

Access VBA中的For语句用于循环执行一段代码可以按照指定的条件和步长来控制循环的次数和方式。For语句有两种形式：For...Next和For Each...Next。

1. For...Next语句：
For...Next语句用于指定一个循环的起始值、结束值和步长。语法如下：

   For counter = start To end [Step step]
       ' 循环执行的代码
   Next [counter]

其中，counter是一个计数器变量，start是循环的起始值，end是循环的结束值，step是循环的步长（可选，默认为1）。

示例：

   For i = 1 To 10 Step 2
       Debug.Print i
   Next i

上述示例中，循环从1开始，每次增加2，直到达到或超过10为止。

2. For Each...Next语句：
For Each...Next语句用于遍历集合或数组中的每个元素。语法如下：

   For Each element In collection
       ' 循环执行的代码
   Next [element]

其中，element是一个变量，用于存储集合或数组中的每个元素，collection是要遍历的集合或数组。

示例：

   Dim arr() As Variant
   arr = Array("apple", "banana", "orange")
   
   For Each fruit In arr
       Debug.Print fruit
   Next fruit

上述示例中，循环遍历了一个包含三个元素的数组，并打印出每个元素的值。