Объясните пожалуйста такой момент.

i=1
s=1
do while s <42
s=s*i
i=i+1
Debug.print s
loop

Помимо результата < 42 попадает и большее число. 120.
Вроде цикл в начале должен проверять, а потом выполнять тело цикла. Если Debug расположить до счетчика то напечатает правильно.
i=1
s=1
do while s <42
Debug.print s
s=s*i
i=i+1
loop

Если сделать с пост условием, цикл проходит еще раз.
i=1
s=1
do Debug.print s
s=s*i
i=i+1
loop while s <42
Нормальное это явление? Почему после ключевого слова loop происходит ещё один проход? (vb6 sp5)

Извиняюсь.Так и не понял почему цикл не останавливается.

Antonariy`dmitryИзвиняюсь.Так и не понял почему цикл не останавливается.Потому что 120 получается после проверки, а выход из цикла происходит на следующей итерации.
Нужно писать Do ... Loop Until.
Написали б как.
Я пишу
Loop Until s>=42
Выходит тот же результат :(

BelowZero`dmitry,

сорь, я неправильно написал... что у тебя должно получиться в итоге? числа 1, 2, 6, 24? какая стоит задача?
да, задача такая. 1...24 и не больше

я не правильно понял тело цикла. в примере http://msdn.microsoft.com/en-us/library/eked04a7.aspx тсчетчик добавляют после вывода.

EOF