Оператори циклів.

Синтаксис оператора For (для):

For x=x₀ To x_n [Step h]

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

[Exit For]

Next x

Де x – змінна циклу; x₀ x_n – початкове і кінцеве значення змінної; h – крок з яким змінюється значення змінної. Якщо h=1, то Step не пишеться. Exit For використовується у разі дострокового виходу з цикла.. При виході з циклу значення змінної дорівнює останньому значенню, і відповідно результати розрахунків. Дозволяється використовувати вкладені цикли, тобто цикли, які містять всередині інші цикли.

Синтаксис оператору цикла While:

While < умова>

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

Wend

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

Синтаксис оператору циклу Do (ітераційний цикл) має два варіанти:

1. Do

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

[ Exit Do ]

Loop While / Until < умова >

2. Do While / Until < умова >

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

[ Exit Do ]

Loop

Де < умова > - логічний вираз, який може приймати два значення: істина, або хибність; While – виконання циклу, поки умова істина; Until - виконання циклу, поки умова хибна; Exit Do - достроковий вихід із циклу. Ітераційний цикл ПОКИ: Do While ... Loop - цикл, що задається цією конструкцією, виконується доти, поки умова, що задається в циклі істина (дотримується).

Ітераційний цикл ДО: Do Until ... Loop. Тут цикл виконується доти, поки умова хибна (не дотримується), а не істинна. У такій конструкції можлива ситуація, за якої тіло циклу не виконається жодного разу, якщо при першій перевірці умова не дотримується. Оператор циклу Do... Loop Until. У даному операторі циклу, як і у попередньому, цикл виконується доти, поки умова хибна (не дотримується). За такого варіанту конструкції оператора циклу тіло циклу виконається принаймні один раз, після чого здійсниться перевірка умови виконання циклу, навіть якщо умова дотримувалася.

Нехай, наприклад, треба розрахувати значення Y за­лежно від введеного значення X. Тоді фрагмент програ­ми матиме такий вигляд:

Приклад 1.

(Алгоритм дивись приклад 4 у розділі “Основи алгоритмізації”)

Private Sub Command1_Click ()

Dim x!, a! , y!

a = Input Box (“a=”, “приклад 1”)

For x = 0.1 To 3 Step 0.2

y = Tan (x ^3) + (a ^2 + Exp (x)) ^ (1/5)

Print “x=”; x ; “y=”; y

Next x

End Sub

Приклад 2.

(Алгоритм дивись приклад 3 у розділі “Основи алгоритмізації”)

Private Sub Form_Load ()

Dim k%, x!

Dim s As Variant

x = Input Box (“x=”, “приклад 2”)

If x <> 3 Then

s = 0 : k = 2

While k < 9

s = s + ( x + k )/ ( 3 - x )

k = k + 1

Wend

Else

s = “Рішення не існує”

End If

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

End Sub

Приклад 3

У даному прикладі цикл виконується тоді, коли введені значення Х задовольняють умову Х>0:

X = Input ("Значення X", Х) Do While Х> 0 Y=sqr(3*Х+7) Print X;Y Loop

Приклад 4

У наведеному нижче прикладі цикл виконується тоді, коли X <5: X = InputBox ("Значення X") Do Until X>5 Y=sqr(15-3*Х) Print X;Y Loop