Пример. Пример 1. Найти сумму первых 50 чисел натурального ряда. Dim i, s As Integer s = 0 For I = 1 To 50 s = s + I Next

Пример.

Пример 2.

Пример 1.

Найти сумму первых 50 чисел натурального ряда.

Dim i, s As Integer s = 0 For I = 1 To 50 s = s + I Next

В массив M2 внесена информация. Обработать N элементов и найти сумму значений четных элементов массива. При достижении заданного число SK выйти из цикла досрочно.

Dim i, S,N As Integer Dim M2(200) As Integer … S = 0 For I = 2 To N Step 2 S=S+M2(i) If S >=SK Then Exit For Next

Особый интерес представляют комбинированные алгоритмы, в которых одновременно используются алгоритмы цикла и ветвления.

В ячейки А1:А33 внесена информация. В какой строке содержится максимальное значение и чему оно равно.

N = 1: mx = Cells(1, 1) For k = 2 To 33 If Cells(k, 1) > mx Then N = k: mx = Cells(k, 1) End If Next k Cells(1, 2) = N: Cells(2, 2) = mx

'Значение первой строки – условный Max. 'Цикл начинается со 2 строки. 'Если элемент превышает условный 'Max, он принимается как новый Max. 'Конец проверки. ' Конец цикла. 'Вывод результатов.

Отступы слева при наборе операторов применены для улучшения восприятия логики программы. VBA их не требует, ни и не опротестовывает.

При организации вложенных циклов For...Next (один цикл For...Next располагается внутри другого). Счетчик каждого цикла должен иметь уникальное имя. Допускаются следующие конструкции:

For I = 1 To 10

For J = 1 To 10

For K = 1 To 10

...

Next K

Next J

Next I

Выполнить сортировку элементов массива М1(N) методом пузырька.

Суть метода: при поочередном сравнении каждой пары элементов массива они меняются местами, если стоят в неправильном (несортированном) виде (рис. 11.12). В результате одного цикла прохода по массиву самый маленький элемент оказывается в конце массива (для остальных элементов сортировка может выполниться лишь частично. Далее указанный процесс повторяется вновь и вновь, пока все данные не упорядочатся.

Рис. 11.12. Схема проведения сортировки.

N = 10 … For j = 1 To N – 1 For i = 1 To N - j If M1(i) > M1(i + 1) Then X = M1(i) M1(i) = M1(i + 1) M1(i + 1) = X End If Next i Next j

' Кол-во прогонов на 1 меньше числа элементов. ' Уже отсортированные элементы не берутся. 'Неправильная последовательность. 'Обмен через дополнительную переменную.   'Конец обмена. 'Конец прогона.

Теперь Вы сможете оценить, какие удобства предоставляет пользователям MS Excel, в котором для проведения сортировки Вам было достаточно нажать кнопку .

Команда While – предназначена для организации циклов, в которых ведется повторение набора команд, пока соблюдается некоторое условие.

Синтаксис команды допускает варианта ее применения.

1 вариант	2 вариант
Do While <условие> <набор команд> [Exit Do] Loop	While <условие> <набор команд> [Exit Do] Wend

В любом варианте набор команд, определяющих тело цикла, повторяется до тех пор, пока выполняется заданное в первой строке цикла условие.

Инструкции [ Exit Do ] не обязательны и применяются для экстренного выхода из цикла до достижения его конца (число таких альтернативных способов выхода из цикла не ограничено). Инструкция Exit Do часто применяется вместе с проверкой некоторого условия (например, If...Then). Эта инструкция передает управление команде, непосредственно следующей за командой Loop ( или Wend).

Обратите внимание, что циклы While берут на себя труд проверять ЛЮБОЕ сложное условие выхода из цикла, чего не было в циклах For, но не заботятся ни о каких счетчиках, а значит, об изменении номера текущего элемента массива или строки электронной таблицы должны позаботиться Вы!

Дата добавления: 2015-04-24