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

Оператор цикла For... Next. Синтаксис оператора следующий:

For K = начальное значение То конечное значение [Step шаг]

[блок операторов]

[Exit For]

[блок операторов]

Next K

Где К – переменная, используемая как счетчик циклов.

По умолчанию шаг изменения переменной К равен 1.

Пример.

For I=1 TO 20

X=x+1

Next I

Для досрочного выхода из цикла предназначена команда Exit For.

Пример. Выдать на экран четные числа от 0 до 100.

For k=0 To 100 Step 2

Text1.text=Text1.text + STR(k) & “ ”

Next k

Пример. Сгенерировать 5 случайных целых чисел в диапазоне от 1 до 36.

For I=1 To 5

X=INT(36*RND +1)

Text1.text=Text1.text+STR(X) + “ ”

Next I

Оператор цикла While... Wend. Синтаксис оператора следующий:

While условие

Операторы

Wend

Цикл выполняется, пока заданное условие выполняется.

Пример. Бросок игральной кости.

Dim N, ochki as integer

Randomize

Ochki=Int(6*RND + 1)

N=1

While ochki<6

N=N+1

Ochki= Int(6*RND + 1)

Wend

MsgBox “Шестерка выпала на ” & N & “броске”

Оператор цикла Do... Loop Until. Синтаксис оператора следующий:

Do

Операторы

Loop Until условие

Сначала выполняется цикл, а затем проверяется условие. Если условие выполнилось, цикл завершается.

Пример.

Do

X=InputBox (“Введите пароль”)

Loop Until X = ”АИС”

Для досрочного выхода из цикла – команда Exit Do.

Дата добавления: 2015-08-27