Цикл с постусловием
Одной из разновидностью циклических алгоритмов является цикл с постусловием.
Цикл
Do ...............Loop
[Операторы] [Bxit Do) [Операторы] Loop [(While | Until} Условие]
Если условие проверяется в начале цикла, то он никогда не выполняется в случае невыполнения условия. Если же проверка происходит в конце, цикл выполняется как минимум один раз, независимо от того, выполнено условие или нет.
Тело цикла выполняется неопределенное число раз, пока условие не вызовет выход из цикла:
Do Until EOF(Файл)
Input #1, SomeData
Loop
Do
X = X + 1 Print "Hello"
Loop While X < 9
Рассмотренные варианты циклов Do... Loop предоставляют разработчику большие возможности организации повторяющихся вычислений.
Цикл
While.......................Wend
В Visual Basic цикл while. .. Wend играет второстепенную роль. Он используется только для совместимости с другими диалектами Basic, а также для совместимости с более ранними версиями Visual Basic, в которых не было оператора Do. . .Loop.
While Условие
[Операторы]
Wend
Принцип его действия такой же, как и цикла Do While.. . Loop. Поэтому вместо него проще использовать
Do.. .Loop. Кроме того, для цикла While. . .Wend нет оператора досрочного выхода типа Exit:
While X = True Print
Time Wend
Задачи, которые можно скачать с комментариями и исходниками
Найти факториал натурального числа N.
Найти количество цифр в числе
@akaVeta