2 Aleksei
В вопрос чессказать тольком не въехал, но по-моему я понял что ты хочешь.
Вот пример, в котором цикл крутится 10 раз пока s не достигнет того числа на котором ты хочешь остановить цикл(I_want) и выводит число на котором закончился цикл:
s = 0
I_want = 5
Do While s < 10
s = s + 1
If s = I_want Then Exit Do
Loop
MsgBox (s)
PS: Если хочешь, чтобы цикл крутился бесконечно - просто убери While s < 10 из примера.
---
Завсегда рад помочь.
|