Оператор циклу While…Wend

Синтаксис:

While<умова>

<Група операторів>

Wend

де умова – логічний вираз, який оцінюється як істина (1), або хибність (0).

Дія: Оператор призначений для організації циклу з передумовою, у якому вказана група операторів виконується циклічно до того часу, поки вказана умова не стане хибною. Змінна, що входить в умову, змінюється в тілі циклу. Для дострокового виходу із циклу в разі виконання деякої додаткової умови вживається оператор Exit While.

Допускається використання вкладених циклів. При цьому кількість операторів While і відповідних їм Wend повинна збігатись.

Приклад. Обчислити:

Створимо форму без жодного постійного елемента керування. Подія для програмування – завантаження форми.

Private Sub Form_Load()

Dim I%, n%, S!

N=InputBox(“n=”)

I=1: S=0

While I <=n

S=S+cos(i)/(I+1)^3

I=I+1

Wend

MsgBox (“S=”+Str(S))

End

End Sub

Дата добавления: 2014-01-04