VBA Array 中的 FOR j = 1 To xx 是啥意思？

Posted 2023-03-16

有一道题是这样的：
Private Sub btnPrint_Click()
Call PrintArray
End Sub
Private Sub PrintArray()
Dim j As Integer 'for loop control
lstAnswer.Clear
For j = 1 To lastNdx （如果将这个改成 For j = 1 To 12）
lstAnswer.AddItem (CStr(j) & ": " & CStr(numArray(j)))
Next j
End Sub
结果会有什么变化？
For j = 1 To 12 这个是起什么作用的？
求大神们指教阿！

For j = 1 To 12 ：
从字面上理解，就是j的取值从1到12，for是循环结构的关键字，也就是循环12次
For语句还有一个参数，上面的语句写全了应该是 For j = 1 To 12 Step 1
也就是j取值从1到12，步进为1，如果Step后面跟的数是2，j就会每次+2，也就是循环只有6次了 参考技术A For j = 1 To 12
lstAnswer.AddItem (CStr(j) & ": " & CStr(numArray(j)))
Next j
让j=1时候
执行lstAnswer.AddItem (CStr(j) & ": " & CStr(numArray(j)))
执行完后下一个，意思是
让j=2时候
执行lstAnswer.AddItem (CStr(j) & ": " & CStr(numArray(j)))

执行完后再下一个，一直到J=12
下面是语句的具体意思：
以指定次数来重复执行一组语句。
语法
For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next [counter]
For…Next 语句的语法具有以下几个部分：
部分 描述
counter 必要参数。用做循环计数器的数值变量。这个变量不能是布尔或数组元素。
start 必要参数。counter 的初值。
End 必要参数，counter 的终值。
Step 可选参数。counter 的步长。如果没有指定，则 step 的缺省值为 1。
Statements 可选参数。放在 For 和 Next 之间的一条或多条语句，它们将被执行指定的次数。

说明
step 参数可以是正数或负数。step 参数值决定循环的执行情况，如下所示：
值 循环执行，如果
正数或 0 counter <= end
负数 counter >= end

当所有循环中的语句都执行后，step 的值会加到 counter 中。此时，循环中的语句可能会再次执行（基于循环开始执行时同样的测试），也可能是退出循环并从 Next 语句之后的语句继续执行。
提示 在循环中改变 counter 的值，将会使程序代码的阅读和调试变得更加困难。
循环中可以在任何位置放置任意个 Exit For 语句，随时退出循环。 Exit For经常在条件判断之后使用，例如 If...Then，并将控制权转移到紧接在 Next 之后的语句。
可以将一个 For...Next 循环放置在另一个 For...Next 循环中，组成嵌套循环。不过在每个循环中的 counter 要使用不同的变量名。下面的体系结构是正确的：
For I = 1 To 10
For J = 1 To 10
For K = 1 To 10
...
Next K
Next J
Next I

注意 如果省略 Next 语句中的 counter，就像 counter 存在时一样执行。但如果 Next 语句在它相对应的 For 语句之前出现，则会产生错误。 参考技术B 作用是设立循环