Организация цикла с проверкой условия в конце цикла

Синтаксис операторов:

Do Do

операторы тела цикла операторы тела цикла

Loop While< ЛВ > (ложь) Loop Until <ЛВ> (истина)

(истина) (ложь)

 

Выход из цикла Выход из цикла

Пример 15.2. Составить программу вычисления суммы членов ряда с заданной точностью Е= 0.001 и число его членов, если задан общий член ряда an=1/n². Алгоритм является итерационным, так как неизвестно заранее количество выполняемых циклов (глава 1, рис. 1.6). Процедура отклика командной кнопки с использованием Do While:

Private Sub CommanButton1_Click

Dim e, an, s As Single, n As Integer

e=0.001: n=1: s=0: an=1/n^2

Do While an=>e

s=s+an : n=n+1: an=1/n^2

Loop

MsgBox “ s= “ & s & “n=” & n