Dim N As Integer
N = 4
For i = 1 To N
List1.AddItem "i = " & i & "; N = " & N
If i = 2 Then N = N + 1
Next
i=1; n=4
i=2; n=4
i=3; n=5
i=4; n=5
Итераций то - 4

RayShade писал(а):И что? В чем вопрос то? Результат работы соответствует тому, что в коде запрограммировано.
Dim i As Integer
Dim N As Integer
N = 4
i = 1
While i <= N
Debug.Print "i = " & i & "; N = " & N
If i = 2 Then N = N + 1
i = i + 1
Wend
kif писал(а):Dim i As Integer
Dim N As Integer
N = 4
For i = 1 To N
List1.AddItem "i = " & i & "; N = " & N
If i = 2 Then N = N + 1
Next
i=1; n=4
i=2; n=4
i=3; n=5
i=4; n=5
Итераций то - 4блин!!!!!!!!!!!
Сейчас этот форум просматривают: AhrefsBot и гости: 1