Циклом Циклом называется операция, в которой одни и те же действия повторяются многократно. Цикл состоит из оператора цикла и тела цикла. Оператор цикла - это его управляющая конструкция. Она определяет, сколько раз должны выполниться операторы, записанные в тело цикла

Существуют два основных типа циклов: циклы со счетчиком (с известным числом повторений); циклы с условием, в которых действия повторяются до тех пор, пока выполняется определенное условие или пока не будет выполнено определенное условие.

В языке Visual Basic для организации циклов с определенным количеством повторений используется цикл со счетчиком - оператор For … Next. Формат оператора For … Next : For Счетчик=Начало To Конец [Step Шаг] [операторы цикла] [ExitFor] Next [Счетчик] Счетчик – числовая переменная, используемая как счетчик цикла; Начало – начальное значение счетчика; Конец – конечное значение счетчика; Шаг – шаг изменения значения счетчика, по умолчания 1; Exit For – используется для немедленной остановки цикла For … Next.

Блок – схема цикла со счетчиком

Пример 2 : Dim i As Integer Dim A As Integer A=3 For i=1 To 3 A=A*i Next i Print A Тело цикла выполнится 3 раза, на форме будет напечатано 18 Пример 1 : Dim I As Integer For I = 1 To 10 Step 1 Print Visual Basic Next I End Sub Тело цикла выполнится 10 раз На форме 10 раз распечаталась фраза Visual Basic.

Можно выделить два типа циклов с условием: проверка условия осуществляется в начале цикла (предусловие); проверка условия осуществляется в конце цикла (постусловие).

Оператор цикла WHILE...WEND используется для организации циклов с предусловием и имеет следующий формат: While Wend

Дано натуральное число. Подсчитать количество цифр в числе. Подсчет количества цифр начнем с последней цифры числа. Увеличим счетчик цифр на единицу. Число уменьшим в 10 раз (тем самым мы избавляемся от последней цифры числа). Далее с получившимся числом проделаем ту же последовательность действий и т.д., пока число не станет равным нулю. Dim N As Integer Dim K As Integer Dim M As Integer N = Val (Text1.Text) Вводим целое число K = 0 Счетчику цифр присваиваем начальное значение M = N Запоминаем число Do While M <> 0 Пока М<>0 делать цикл K = K + 1 Увеличим счетчик цифр на единицу M = M/10 Уменьшаем число на последнюю цифру WEND Print "В числе "; N, " – цифр"; K Вывод количества цифр

Оператор цикла DO...LOOP используется для организации циклов с неопределенным числом повторений с предусловием и с постусловием). а) Do While Loop б) Do Until Loop

Для организации цикла с постусловием оператор Do Loop также может быть использован в двух модификациях: а) Do Loop While б) Do Loop Until Условие выполнения или прекращения цикла здесь проверяется в конце. Поэтому этот цикл обязательно выполняется хотя бы один раз.

Пример 4: A = 1 Do A = A + 1 Print Visual Basic Loop While A < 11 Условие выхода можно трактовать следующим образом: пока A меньше 11. Фраза Visual Basic будет печататься, пока значение переменной A меньше одиннадцати (т. е. десять раз). Пример 5: A = 1 Do A = A + 1 Print Visual Basic Loop Until A > 10 Условие выхода можно трактовать так: пока значение переменной A не стало больше десяти. И в том, и в другом случае фраза Visual Basic будет распечатываться 10 раз.

1. Что называют циклом? 2. Из чего состоит цикл? 3. Какие виды циклов Вы знаете? а. Дайте им определения; б. Запишите формат их описания; в. Нарисуйте блок схему каждого вида; г. Приведите примеры задач.

Задание 1: Напечатать фразу: Изучаем циклы! 15 раз и использованием оператора For … Next (в условии четко определено количество повторений). Дополнительные задания: а) Сменить значение шага на 2. Запустить проект на выполнение и проанализировать результат. б) Заменить строку For i=1 To 15 Step 2 на строку For i=2 To 10 Step 1 в) Заменить строку For i=2 To 10 Step 1 на строку For i=10 To 1 Step 1 Сохранить изменения в проекте.

Задание 2: Вычислить сумму N натуральных чисел. Дополнительные задания: а) Изменить программу таким образом, чтобы она вычисляла сумму только натуральных четных чисел в интервале до N. б) Изменить программу таким образом, чтобы она вычисляла сумму только натуральных нечетных чисел в интервале до N.

Домашняя работа: Напечатать таблицу перевода 1, 2, …, 20 $ США в рубли по текущему курсу. А) Значения курса заданы в программе; Б) Значения курса вводятся с клавиатуры.