максимальное количество итераций цикла For...Next

[Bape}l{ka]

подскажите пожалуйста, есть ли ограничение на количество итераций в цикле For...Next??
что-то мне кажется около 35000?? или это из другого?? в интернете не смогла найти Т_Т

[nerv]

скока нуна, стока мона)

[Hugo121]

Да нет

Sub tt()
    Dim i&, x&
    For i = 1 To 1000000
        x = i
    Next
    MsgBox "x=" & x & ", i=" & i
End Sub

[slan]

ограничено размером счетчика, если счетчик типа byte - будет только до 255 работать

[Казанский]

Цикл For...Next может быть бесконечным, если шаг =0.
Правда, для этого логичнее использовать Do...Loop. И надо предусмотреть выход из цикла по какому-то условию.

Sub bb()
Dim b As Byte, d As Double, t As Single
t = Timer + 1
For b = 1 To 1 Step 0 'бесконечный цикл
    d = d + 1#
    If Timer > t Then Exit For
Next
Debug.Print "За секунду цикл прошел " & d
End Sub

[slan]

более того

цикл for next может быть бесконечным даже при ненулевом шаге :


Dim i&
For i = 1 To 2 Step 0.1
Next

также как бесконечна фантазия пользователей