如何在循环中为每个第500个元素增加循环中的变量？

Question

让我说我有一个循环：

for foo = 0 to ubound(bar)

     if foo = 500 then
         foobar = foobar +1
     end if

next foo

实际上，bar的范围可以是1到152023个元素。

因此，通过检查是否foo = 500我只会增加foobar一次。

通过检查下面的每个静态500号码，我觉得这是极端的弊端：

for foo = 0 to ubound(bar)

     if foo = 500 then
         foobar = foobar +1
     elseif foo  = 1000 then
         foobar = foobar +1
     elseif foo = 1500 then
         foobar = foobar +1
         ' Et cetera.
     end if

next foo

该问题与我们的遗留系统中的函数有关，当传递整个Out of string space作为输入参数时，该函数会获得Out of memory - 和bar个异常。所以我认为我每次使用500个元素而不是12010230123个元素循环遍历该函数。

所以基本上。

如何在循环中为每500个元素增加循环中的变量？

Answer 1

您可以使用modulo来确定foo的值是否可以被500整除，并且增加foobar的值。

if（foo mod 500）= 0然后......

Answer 2

如果我正确理解了这个问题，你想循环使用500步？

您可以按照以下方式执行此操作：

For foo = 0 To UBound(bar) Step 500
  'do your thing
Next foo