Оператор цикла for next VBA языка используется для выполнения блока операторов фиксированное количество раз, чаще всего данный цикл применяется при обработке массивов. Цикл for next является в своей сфере самым простым, тут задается начальное и конечное значение, а также, можно задать шаг счетчика.
Давайте рассмотрим общий синтаксис:
For счетчик = начало To конец
Операторы
Next счетчик
Счетчик – тут мы указываем имя переменной, которая будет хранить информацию о количестве итераций (количество выполненных походов цикла).
Начало – начальное значение счетчика, является числовым выражением
Конец – конечное значение счетчика, числовое выражение, которое задает количество проходов.
Шаг – необязательный параметр, который позволяет задавать шаг выполнения. Если данный параметр отсутствует, то увеличение счетчика при каждом проходе равно единице. Использование шага актуально в том случае, если нужно методом перебора решить уравнение, так, можно задать начальное значение 1, конечное 3 и шаг в 0,2.
В самом конце цикла можно и не указывать имя переменной (счетчик), но это актуально, если используется вложенный цикл for, это позволит сделать код более читабельным.
Для примера, создайте форму с двумя текстовыми метками и одной кнопкой, в редакторе кода пропишите:
| Private Sub CommandButton1_Click() Dim i, j, a, b For i = 1 To 10 Step 2 a = a & i & " " Next i For j = 1 To 10 Step 3 b = b & j & " " Next j Label1.Caption = a Label2.Caption = b End Sub Private Sub UserForm_Initialize() Label1.Caption = "" Label1.FontSize = 14 Label1.ForeColor = vbBlue Label2.Caption = "" Label2.FontSize = 14 Label2.ForeColor = vbRed CommandButton1.Caption = "Значения" End Sub |
В данном примере, у нас есть два параметра цикла , в каждом заданы одинаковые начальные и конечные значения, но, в первом задан шаг 2, а во втором – 3.
В параметре Шаг можно указать и отрицательное значение, в этом случае будет происходить прирост счетчика в обратном порядке, например:
| Private Sub CommandButton1_Click() Dim i, j, SummA, SummB For i = 1 To 10 SummA = SummA + i Next For j = 10 To 1 Step -1 SummB = SummB + j Next Label1.Caption = "Прямой порядок: " & SummA Label2.Caption = "Обратный порядок: " & SummB End Sub |
Тут мы вычисляем сумму чисел от 1 до 10 при прямом и обратном порядке.
Довольно часто при использовании оператора цикла for next VBA языка может возникнуть ситуация, когда при заданном условии надо прекратить перебор данных, в этом случае используется выражение Exit For , например:
В данном примере используется вложенный цикл VBA for next. В первом случае происходит суммирование чисел от 1 до 100, при этом суммирование повторяется 100 раз. Во втором случае мы прописали условие с помощью условного оператора if – если сумма больше 10 тысяч, то произвести выход из цикла.
Хорошо, теперь попробуем написать более практичный пример – решение квадратного уравнения методом перебора:
| Private Sub CommandButton1_Click() Const a = -2, b = 6, c = 20 Dim x, result, res For x = -10 To 10 Step 0.5 result = a * (x * x) + b * x + c If result = 0 Then res = res & " " & x End If Next x Label1.Caption = "х ровно: " & res End Sub |
В данном примере мы объявили три константы a, b и с, со значениями -2, 6 и 20, это параметры квадратного уравнения (a*x*x + b*x + c = 0). В цикле происходит изменение переменной х в диапазоне от -10 до 10 с шагом в 0,5. При каждой итерации происходит проверка условия на равенство нулю, если условие выполняется, в переменную res записывается значение переменной x. В итоге, уравнение будет иметь два решения: -2 и 5.
И так, в этой статье мы рассмотрели цикл for next языка VBA, который применяется для обработки заданного количества раз одних и тех же действий, в следующей статье мы рассмотрим , который используется для обработки коллекций, там же мы рассмотрим и сами коллекции.
Операторы цикла
В VBA существуют два основных типа циклов циклы со счетчиком (параметрические) и циклы с условием (итерационные).
Циклы со счетчиком используют в тех случаях, когда необходимо выполнить некоторые действия определенное число раз
Циклы с условием применяются тогда, когда некоторые действия в программе должны повторяться до тех пор, пока выполняется определенное условие.
Циклы с параметром For … Next
Структура цикла:
For Параметр_Цикла = Начальное_Значение To Конечное_Значение
[ Step Шаг]
Операторы
[ Exit For ]
Next [Параметр_Цикла]
где For ключевое слово VBA (от), обозначающее начало цикла;
Параметр_цикла переменная, определенная в качестве счетчика цикла;
Начальное_Значение число, задающее начальное значение параметра цикла;
To ключевое слово VBA (до), разделяющее
Начальное_значение и Конечное_Знаение;
Конечное_Значение число, задающее значение параметра цикла,
При котором цикл завершается;
Step ключевое слово VBA (шаг), используемое для
Задания шага цикла, необязательный аргумент;
Шаг число, задающее шаг цикла, т.е. значение, на которое
Увеличивается (или уменьшается) значение параметра
Цикла на каждом шаге. Это число может быть
Отрицательным;
Exit For оператор досрочного выхода из цикла (необязательный);
Next ключевое слово VBA (следующий), обозначающее
Конец цикла.
Работа цикла:
Шаг 1 Сначала определяется параметр цикла, а также вычисляются и запоминаются начальное и конечное значения этой переменной.
Шаг 2 Параметру цикла присваивается начальное значение.
Шаг 3 Начальное значение параметра цикла сравнивается с конечным значением.
Если параметр цикла больше конечного значения, программа сразу выходит из цикла и переходит к той строке кода, которая следует за циклом.
Шаг 4 Выполняется тело цикла.
Шаг 5 После выполнения тела цикла происходит присваивание параметру цикла следующего значения. Переход к шагу 3.
Примечание.
1. Если используется ключевое слово Step , то параметр цикла изменяется в соответствии с числом, указанным после этого слова. Если слово Step отсутствует, то значение шага равно единице.
Пример 1.
For I = 0 To 10 Step 2 (Значение I будет увеличиваться на 2)
2. Цикл For … Next может быть прерван досрочно при достижении какого либо условия. Для этого в нужном месте цикла нужно поместить оператор Exit For .
Пример 2.
Dim S As Integer
Dim j As Integer
S = 2
For j = 1 To 10
S = S + j
If S > 6 Then
Exit For (Выход из цикла, если значение S > 6)
End If
Next j
MsgBox (S)
Циклы с условием (итерационные)
Если какое-то действие (несколько действий) необходимо выполнить много раз, но заранее неизвестно сколько раз и это зависит от какого-то условия, то тогда следует воспользоваться циклом с предусловием или с постусловием.
В VBA есть два основных цикла DO … LOOP с условием, вводимым ключевым словом While , и с условием, вводимым ключевым словом Until . Оба они могут быть с предусловием или с постусловием.
Синтаксис:
где Do ключевое слово (делать);
While ключевое слово (пока);
Until ключевое слово (до тех пор пока);
Loop ключевое слово, указывающее на окончание цикла;
<условие> логическое выражение, истинность которого проверяется
В начале каждого выполнения тела цикла;
<тело_цикла> произвольная последовательность операторов;
Конструкция Do … While читается: делать пока выполняется условие. В конструкции Do … While For
Конструкция Do … Until читается: делать до тех пор, пока не будет выполнено условие. В конструкции Do … Until для увеличения шага следует писать специальный оператор, т.к. в ней в отличие от конструкции For , не делается это автоматически.
Условие, записанное после ключевого слова Until , проверяется в конце каждой итерации (после выполнения тела цикла). Обратить внимание, что оно работает здесь не совсем так, как в цикле While . Если условие является истинным (True ), то выполнение цикла завершается. Если условие не выполняется (является ложным False ), то вновь выполняется тело цикла.
Пример 1.
Постановка задачи. Вычислить сумму конечного ряда с помощью подпрограммы-процедуры.
Технология выполнения задания:
1. Исходные данные: i Z
Результат: S R .
2.Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с предусловием While :
Sub summa()
Dim S As Integer
Dim i As Integer
S = 0
i = 1
Do While i <= 10
S = S + i ^ 2
i = i + 1
Loop
MsgBox (S)
End Sub
3.Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с предусловием Until :
Sub summa()
Dim S As Integer
Dim i As Integer
S = 0
i = 1
Do Until i > 10
S = S + i ^ 2
i = i + 1
Loop
MsgBox (S)
End Sub
4 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с постусловием While :
Sub summa()
Dim S As Integer
Dim i As Integer
S = 0
i = 1
S = S + i ^ 2
i = i + 1
Loop While i <= 10
MsgBox (S)
End Sub
5 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с постусловием Until :
Sub summa()
Dim S As Integer
Dim i As Integer
S = 0
i = 1
S = S + i ^ 2
i = i + 1
Loop Until i > 10
MsgBox (S )
End Sub
Последнее обновление: 30.10.2015
Еще одним видом управляющих конструкций являются циклы. В VB.NET используется несколько видов циклов.
Цикл For...Next
В этом цикл выполняется определенное число раз, причем это число задается счетчиком:
For i As Integer = 1 To 9 Console.WriteLine("Квадрат числа {0} равен {1}", i, i * i) Next
Здесь переменная i выполняет роль счетчика. После слова To мы помещаем максимальное значение счетчика. При каждом цикле значение счетчика увеличивается на единицу. И это значение сравнивается со значением после To . Если эти два значения равны, то цикла прекращает свою работу.
При работе с циклами мы можем увеличивать значение счетчика при каждом проходе не только на единицу, но и вообще на любое число. Для этого нужно либо использовать ключевое слово Step и после него указать шаг цикла, на который будет увеличиваться значение счетчика, либо можно увеличивать счетчик непосредственно в цикле:
For i As Integer = 1 To -9 Step -1 For j As Integer = 1 To 9 Console.WriteLine("Произведение чисел i и j равно {0}", i * j) j += 1 Next Next
Обратите внимание, что в качестве шага в первом цикле выбрано отрицательное значение и значение счетчика с каждым проходом уменьшается на единицу. Во внутреннем цикле счетчик j при каждом проходе увеличивается на 2, так как он по умолчанию увеличивается на единицу, и еще мы явным образом увеличиваем его в цикле на единицу. В итоге внутренний цикл отрабатывает пять раз, а внешний девять, то есть фактически получается 45 циклов.
Цикл For Each...Next
Цикл For Each осуществляет перебор элементов в определенной группе, например, в массиве или в коллекции. Предположим у нас есть некоторый массив типа Integer и нам надо инициализировать этот массив случайными значениями и затем вывести все его элементы на экран:
"Создаем массив из пяти чисел Dim nums(4) As Integer Dim r As New Random() "инициализируем массив For i As Integer = 0 To nums.Length - 1 nums(i) = r.Next(100) Next "Выводим элементы массива For Each i As Integer In nums Console.Write("{0} ", i) Next
В выражении For Each мы сначала указываем переменную, которая будет принимать значения элементов массива. А после ключевого слова In указываем группу, в которой надо перебрать все элементы.
Цикл While
В цикл While выполняется до тех пор, пока соблюдается определенное условие, указанное после слова While:
Dim j As Integer = 10 While j > 0 Console.WriteLine(j) j -= 1 End While
Цикл Do
Цикл Do, также как и цикл While, выполняется, пока соблюдается определенное условие. Однако он имеет разные формы. Так, в следующем примере сначала проверяется условие, а затем выполняется блок кода, определенный в цикле:
Dim j As Integer = 10 Do While j > 0 Console.WriteLine(j) j -= 1 Loop
В данном случае цикл выполняется, пока значение j больше нуля. Но есть еще одна запись, где вместо слова While используется слово Until , а цикл выполняется пока не соблюдено определенное условие, то есть пока значение j не станет меньше нуля:
Dim j As Integer = 10 Do Until j < 0 Console.WriteLine(j) j -= 1 Loop
Если изначально условие, заданное в цикле, неверно, то цикл не будет работать. Но мы можем определить проверку в конце цикла, и таким образом, наш цикл как минимум один раз отработает:
Dim j As Integer = -1 Do Console.WriteLine(j) j -= 1 Loop Until j < 0 "либо Do Console.WriteLine(j) j -= 1 Loop While j > 0
Операторы Continue и Exit
Нередко возникает необходимость не дожидаться окончания цикла, а сразу же выйти из цикла, в случае соблюдения определенного условия. Для этого используют оператор Exit , после которого указывают тип цикла, из которого осуществляется выход, например, Exit Do (Exit While) :
Dim r As New Random() Dim num As Integer = r.Next(100) For i As Integer = 0 To 100 num -= 1 If num < 50 Then Exit For Next Console.WriteLine(num)
Существует и другая задача - осуществить выход не из цикла, а из текущего прохода или итерации и перейти к следующему. Для этого используют оператор Continue , после которого указывают тип цикла, из которого осуществляется выход, например, Continue While:
Dim r As New Random() Dim num As Integer = r.Next(100) For i As Integer = 0 To 10 num -= 7 If num < 50 AndAlso num > 25 Then Continue For End If Console.WriteLine(num) Next
В данном случае мы в каждом проходе цикла вычитаем из num число 7 и затем смотрим, не принадлежит ли число num интервалу от 25 до 50. И если принадлежит, переходим к новой итерации цикла, а если нет, то выводим его на экран.
Инструкция цикла представляет собой указание, из которого ясно, какой набор инструкций (этот набор инструкций называется телом цикла) нужно выполнять многократно и каково правило окончания выполнения цикла.
7.2.1. Параметрический цикл For… Next
Этот цикл управляется параметром, который при повторении выполнения тела цикла изменяет с заданным шагом свое значение от заданного начального значения до заданного конечного значения. Такой цикл используют в случае, когда заранее известно, сколько необходимо совершить повторений выполнения тела.
Синтаксис цикла: For ИПЦ=НЗПЦTo КЗПЦ[Step ШИПЦ] Тело цикла (одна или несколько инструкций) Next [ИПЦ]
Слова For (для), To (до), Step (шаг), Next (затем) являются зарезервированными.
Применены обозначения:
ИПЦ – имя параметра цикла (переменная любого числового типа);
НЗПЦ – начальное значение параметра цикла (выражение любого числового типа), которое параметр цикла будет иметь при первом выполнении тела цикла;
КЗПЦ – конечное значение параметра цикла (выражение любого числового типа), с которым сравнивается текущее значение параметра цикла;
ШИПЦ – шаг изменения параметра цикла (выражение любого числового типа) – необязательная часть инструкции цикла.
Числовые значенияНЗПЦ и КЗПЦ задают интервал, в котором будет изменяться параметр цикла. Необязательный параметр ШИПЦ задает шаг изменения счетчика цикла на каждом проходе. По умолчанию, если он отсут–ствует, то принимается равным 1. Наконец, после инструкций, составляющих тело цикла, следует команда, обозначающая границу действия цикла. В случае вложенных циклов (в тело цикла входит инструкция цикла) полезно указывать, к какому из них относится команда Next . Это достигается добавлением после слова Next имени параметра цикла.
Процесс выполнения инструкции For … Next для положительного шага иллюстрирует рисунок 7.4.
Рассмотрим примеры.
В первом примере запишем инструкции для вычисления суммы всех целых нечетных чисел от 1 до 100.
Dim I As Integer, Сумма As Integer
For i = 1 To 100 Step 2
Сумма = Сумма +i
В следующем примере будут продемонстрированы две возможности: явно заданный шаг цикла и отсчет в обратном направлении. Последнее достигается заданием отрицательного шага и тем, что начальное значение параметра цикла больше, чем конечное.
Dim N As Integer
For N = 100 To 60 Step –10
Этот код выведет на текущей форме:
Следующая инструкция заставляет компьютер подавать звуковой сигнал 50 раз. Инструкция For определяет, что параметром цикла является переменная x , ее начальное и конечное значения. Команда Next изменяет счетчик с шагом.
Dim x As Integer
Инструкцию For...Next можно завершить досрочно с помощью инструкции Exit For. Выполнение этой инструкции приводит к немедленному выходу из цикла.
7.2.2. Инструкция цикла Do While...Loop или Do...Loop While
Здесь While (пока) и Loop (цикл) зарезервированные слова. Циклы типа While предназначены для ситуаций, когда количество повторений тела цикла (итераций) заранее не известно. Вот синтаксис двух разновидностей цикла While :
Do While УсловиеПовторения Группа инструкций Loop
Do Группа инструкций Loop While УсловиеПовторения
Различие между ними заключается в том, что УсловиеПовторения (условие повторения выполнения тела цикла) проверяется в первом случае до выполнения тела цикла (цикл – пока), а во втором случае – после выполнения тела цикла (цикл – до).
Перейдем к примерам.
Рассмотрим действие следующего участка программы.
Счетчик = 0
Do While Номер > 10
Номер = Номер - 1
Счетчик = Счетчик + 1
MsgBox ("Выполнено " & Счетчик & _
" итераций цикла.")
При выполнении этого участка программы в окне функции MsgBox будет выведено:
Выполнено 10 итераций цикла.
В этой программе условие проверяется до входа в цикл. Если переменной Номер задать значение, равное 9 вместо 20, инструкции внутри цикла выполняться не будут.
В следующей программе инструкции внутри цикла выполняются только один раз до того, как условие не будет выполнено.
Счетчик = 0
Номер = Номер - 1
Счетчик = Счетчик + 1
Loop While Номер > 10
MsgBox ("В цикле выполнено " & Счетчик & _
" итераций.")
Инструкцию Do...Loop можно завершить досрочно с помощью инструкции Exit Do .
Синтаксис оператора:
For Счетчик = Начало Т o Конец [Step Шаг ]
Блок_Операторов
Next Счетчик
Здесь обозначено:
For – для (обязательное ключевое словоVB);
To – до (обязательное ключевое словоVB);
Блок_Операторов – один или несколько операторов, называемыхтелом цикла;
Счетчик – целая переменная, которая считает количество выполняемых циклов;
Начало, Конец – начальное и конечное значения счетчика;
Step – шаг (ключевое словоVB);
Шаг – шаг изменения счетчика; может быть и отрицательным; параметр необязательный, так как если шаг равен 1, можноStepШаг опустить;
Next– следующий (обязательное ключевое словоVB, конец записи оператора цикла).
Значение счетчика (Начало, Конец) могут быть численными константами или переменными целого или вещественного типа, могут быть отрицательными или положительными числами. Чтобы тело цикла выполнилось хотя бы один раз, должно бытьНачало ≤ Конец, еслиШаг > 0, иНачало ≥ Конец, еслиШаг < 0. Как только окажется, чтоСчетчик >Конец (если Начало < Конец), выполнение цикла заканчивается. ЕслиНачало = Конец, цикл выполнится один раз;
Пример 9.1 .Вычисление функции Y = 2 – 1.5 Sinx при изменении Х с шагом 0.2 в диапазоне .
Фрагмент программы по вычислению Yи вывода аргумента Х и функцииY:
For X = 0 To 2.4 Step 0.2
Y = 2 – 1.5*Sin(X)
Чтобы понять, как работает этот цикл, приведем программу подобного цикла, созданного с помощью оператора GoTo , меток, оператора If … Then .
M1: X = X + 0.2
If X <= 2.4 Then
Y = 2 – 1.5*Sin(X)
Разберем работу этой программы. Первый расчет Yнестандартный, как бы выпадает из цикла. Цикл начинается после первой передачи управленияGoToM1 на метку М1. В строке с меткой М1 аргумент Х увеличивается на шаг 0.2 и сразу идет проверка, не превышает ли новое значение Х конечного значения 2.4. Если не превышает, то расчетYповторяется с этим новым Х. Потом снова выполняется операторGoToM1 – передача управление в строку с меткой М1. Эти повторы (циклы) расчетаYзакончатся, как только Х превысит 2.4.
Теперь программу с Ifсравним с цикломFor…Next.
For X = 0 To 2.4 Step 0.2
заменяет собой две строки
M1: X = X + 0.2
If X <= 2.4 Then
Именно две последние строки кода выполняются в цикле For, но мы этого не видим. Мы закодировали их строкой сFor… Строка кодаGoTo M1 закодирована словомNext X (буквально: следующий Х). Получается компактная конструкция.
При использовании цикла For…Nextнадо научиться использовать счетчик цикла при решении различных задач. Чтобы сообразить, как можно использовать счетчик для решения задачи, надопровести анализ постановки задачи, найти закономерности изменения некоторых параметров задачи.
Пример 9.2 . Определение суммы элементов ряда: .
Фрагмент программы:
S = 0 ‘ S – сумма ряда
For i = 1 To 16 ‘ счетчик i – это знаменатель дроби
S = S + 1/i ‘ накопление суммы
Print “ S = “; S ‘ вывод суммы S на форму
При каждом значении счетчика iвыражение 1/iпоследовательно формирует элементы ряда, начиная с 1.
Пример 9.3
.
Вычисление суммы ряда элементов
.
Фрагмент программы:
S = 0 ‘ S – сумма ряда
For i = 1 To 18 ‘ счетчик i – числитель
S = S + i/(i + 1) ‘ знаменатель больше числителя на 1
Print “ S = “; S ‘ вывод суммы S на форму
Пример 9.4 . Вычисление суммы: 5 + 8 + 11 + … + 32 + 35
Фрагмент программы:
S = 0 ‘ S – сумма ряда
For i = 5 To 35 Step 3 ‘ получаем арифметическую _
прогрессию со знаменателем 3
Print “ S = “; S
Пример 9.5. Вычисление суммы для заданного х:
Анализ задачи показывает, что степень при Х изменяется от 1 до 10. При этом числитель в коэффициенте при Х больше степени на 1, а знаменатель – на 2. Значение степени будем формировать с помощью счетчика i. Тогда можно составить такую программу (фрагмент):
S = 1 ‘ S – сумма ряда
For i = 1 To 10 ‘ как счетчик i, изменяется степень при Х
S = S + (-1)^i*(i + 1)*x^i / (i + 2)
Print “ S = “; S
Циклы For … Next используются при вводе, выводе и обработке массивов .
Пример 9.6. Ввод и вывод значений элементов массива В(N ).
Фрагмент программы:
‘ Опускаем присваивание переменной N значения, _
введенного на форме в текстовое поле txtN:
B(i) = InputBox("Введите элемент B(" & i & ")", _
"Ввод массива B(" & N & “)”)
Print " "; B(i);
Функция InputBox () выводит на экран диалоговое окно с кнопкой закрытия, заданным сообщением, полем ввода, кнопкамиОК ,Отмена, заданным заголовком (или без него). Если будет введено число 12 – размер массиваN, то в нашем примере при первом появлении это окно будет иметь вид:
Как видим, сообщение Введите элемент В(1) предлагает ввести значение 1-го элемента в текстовое окно. Появится это окно 12 раз, так как массив содержит 12 элементов. Это следует из заголовка формы. Индекс элемента В(i) в приглашении будет меняться от 1 до 12.
Если требуется вывести на форму только значения элементов массива В(N), то тело цикла будет состоять из одного оператора:
Просмотр элементов массива для совершения над ними каких-то действий также происходит с помощью оператора цикла For…Next.
Приведем примеры обработки одномерных массивов.
Пример 9.7 . Определение максимального элемента в массиве В(M ).
Исключая ввод начальных данных и вывод результатов, кратко опишем алгоритм:
Объявим переменную Вmaх, в которую занесем значение первого элемента массива, и переменнуюImax, которой присвоим 1 – индекс первого элемента массива.
В цикле с помощью оператора For…Nextпросматриваем все элементы массива, начиная со 2-го. Используя операторIf…Then, сравниваем их значения со значением, которое хранится в переменнойBmax.
Если окажется, что значение элемента массива больше величины Bmax, тоBmaxприсваиваем значение этого элемента, а значениюImax– индекс этого элемента массива.
После окончания цикла в переменной Bmaxокажется значение максимального элемента, а вImax– его индекс (номер).
Программа этой части алгоритма.
Bmax = B(1): Imax = 1
If B(i) > Bmax Then Bmax = B(i): Imax = i
Пример 9.8. Определение суммы, произведения и количества положительных элементов массива D (M ).
Переменные: S,P,K– соответственно сумма, произведение и количество положительных элементов.
Алгоритм такого определения:
Присваиваем ноль переменной Sи К, переменнойPприсваиваем 1. Как правило, всегда переменные, где накапливается сумма, здесь этоSиk, перед циклом обнуляются, а переменным, в которых вычисляется произведение, присваивается 1.
С помощью цикла For…Nextперебираем все элементы массива и проверяем положительные ли они (D(i) > 0).
Если окажется, что элемент – положительный, то прибавляем его значение к значению суммы Sи сохраняем новую сумму в этой же переменной. ПеременнуюPумножаем на положительное значение элемента и сохраняем также в переменнойP. А к переменнойKприбавляем 1 и сохраняем новое значение в этой же переменной
Программа этой части алгоритма имеет вид:
S = 0: P = 1: K = 0
If D(i) > 0 Then
S = S + D(i) ‘ так происходит накопление суммы _
положительных значений элементов массива D(i)
P = P*D(i) ‘ определение произведения положительных
‘ элементов массива
K = K + 1 ‘ этот оператор называют СЧЕТЧИКОМ, здесь он
‘ определяет количество положительных элементов массива
Пример 9.9. Определение суммы, произведения, количества и среднего значения нечетных элементов массива D (M ).
Приведем фрагмент программы такого определения.
S = 0: P = 1: K = 0
If D(i) Mod 2 <> 0 Then
Ssr = S/k ‘ вычисление среднего значения нечетных элементов
Сравните этот фрагмент программы с программой Примера 9.8. Эта программа почти полностью повторяет предыдущую. Изменено только условие в операторе If. УсловиеD(i) Mod 2 <> 0 означает, что мы ищем элементы массиваD(i), которые не делятся нацело на 2, т. е. нечетные элементы. Если будем проверять условиеD(i) Mod 2 = 0, то мы будем отбирать четные элементы массива.
Как известно, деление по Mod даетв результате остаток от деления в целых числах. Например, после выполнения оператораd= 34Mod4 переменнаяdбудет равна 2. Поэтому для отбора элементов массива, которые кратны 4, надо проверять условиеD(i) Mod 4 = 0. Аналогичным будет условие, если будем искать элементы, кратные другим числам. Вместо 4 будут записаны эти другие числа.
Пример 9.10. Запись элементов массива R (N ), кратных 5, в другой массив и вывод нового массива на форму.
Другой массив обозначим, например, R5(N). Размер этого нового массива следует принять таким же, как исходный, т. к. в предельном случае все элементы могут быть кратными 5.
Алгоритм задачи:
Обнуляем счетчик k. С помощью оператора циклаFor…Nextпросматриваем все элементы массиваR(N).
Каждый элемент проверяем на кратность 5, используя оператор If…Thenи деление элемента массива поMod.
Если элемент кратен 5, то с помощью счетчика типа k=k+ 1 формируем индексы массиваR5(N), начиная с 1, и записываем его в этот другой массив –R5(N).
Если kотлично от нуля, выводим массивR5() на форму.
Если же kравно нулю выводим: «Нет элементов, кратных 5».
Фрагмент программы:
If R(i) Mod 5 Then k = k + 1: R5(k) = R(i)
If k <> 0 Then
Print “Нет элементов, кратных 5”
Циклы могут быть вложенными в другие циклы.
Продемонстрируем работу вложенных циклов . Ниже в программе организован вывод значений счетчиков цикловi,jиk. Из результатов выводаi,j,kстановится понятно, как выполняются вложенные циклы.
Private Sub frmCycle_DblClick()
ScaleMode = 4 ‘единицы измерения – символы
For i = 1 To 3 ‘внешний цикл
Print "i = "; i;
For j = 1 To 4 ‘1-й вложенный цикл
CurrentX = TextWidth("i = 1 ") + 5
Print "j = "; j;
CurrentX = TextWidth("i = 1 j = 1 ") + 7
For k = 1 To 5 ‘2-й вложенный цикл
На изображенной форме (рис. 1) приведены результаты вывода счетчиков всех трех циклов: внешнего цикла – счетчик i, первого вложенного цикла – счетчикjи второго, самого внутреннего цикла – счетчикk. Как видим,самый «медленный» счетчик у внешнего цикла (поi), асамый «быстрый» – счетчик самого внутреннего цикла (по k ).
Программа выполняется после двойного щелчка левой кнопкой мыши по форме frmCicli.
CurrentX, CurrentY – свойства формы, задающие координатыX,Yточки начала вывода информации методомPrint(см. на рис.1 расположение осейXиYна форме).
TextWidth() – функция, возвращающая ширину текста, заданного в функции как аргумент в двойных кавычках.
Вложенные циклы используются при обработке двумерных массивов (матриц). Но в некоторых задачах, исключая ввод и вывод элементов двумерного массива, можно ограничиться и одним циклом. Рассмотрим некоторые примеры программирования матриц.
Пример 9.11. Ввод и вывод матрицы (двумерного массива) целых чисел intA (N ).
Вводить матрицу можно по строкам и по столбцам . Проще – по строкам, если будет программироваться вывод элементов массива на форму сразу после их ввода.
Ввод и вывод матрицы по строкам – фрагмент 1 .
Dim M As Integer, N As Integer, i As Integer, j As Integer
Dim intA() As Integer ‘ объявляем динамический массив
M = Val(txtN.Text) ‘ M – количество строк
N = Val(txtN.Text) ‘ N – количество столбцов
ReDim intA(M, N) As Integer ‘ переопределяем массив
For i = 1 To M ‘ i будет сохранять свое значение, пока полностью
‘не выполнится вложенный цикл по j
Print " "; intA(i, j); ‘ вывод по строкам
Print ‘ переход в начало новой строки
Чтобы вводить матрицу по столбцам, следует внешним сделать цикл по j(задает номера столбцов), а внутренним – цикл поi(задает номера строк).
Ввод и вывод матрицы по столбцам – фрагмент 2 .
PrY = 2500: CurrentY = PrY ‘ PrY задает координату Y начала
‘ вывода первого элемента каждого столбца на форме
For j = 1 To N ‘ j будет сохранять свое значение, пока полностью
‘не выполнится вложенный цикл по i
intA (i, j) = InputBox("Введите элемент intA(" & i & “,” & j & ")", _
"Ввод матрицы intA(" & M & “,” & N & ")")
Print Tab(6 * j); intA(i, j) ‘ вывод по столбцам
CurrentY = PrY ‘ для вывода первого элемента
‘ следующего столбца
В этом втором фрагменте программы не повторяются 5 первых строк из первого фрагмента. Функция Tab(6 * j) устанавливает начало вывода в строке (в символах), начиная от левого края формы. КоординатаPrYздесь равна 2500 твипов, но можно подобрать и другое значение.
Пример 9.12 . Упорядочивание значений элементов массива V (N ) по возрастанию.
Существуют несколько алгоритмов по упорядочиванию массивов. Приведем один из них: с помощью вложенных циклов For … Next выбираем элементы, начиная с первого и до предпоследнего, и сравниваем каждый из них с последующими элементами; если окажется, что последующий элемент меньше выбранного, меняем их местами.
Фрагмент программы, реализующей этот алгоритм:
For i = 1 To N – 1
For j = i + 1 To N
If V(j) < V(i) Then P = V(i): V(i) = V(j): V(j) = P
Поясним этот фрагмент программы.
С помощью внешнего цикла со счетчиком iвыбираем элементV(i) для сравнения с последующими элементами. Внутренний цикл со счетчикомjвыбирает для сравнения последующие элементыV(j). Начальное значениеjравноi+ 1. Это первый элемент из последующих.
Для обмена значений элементов V(i) иV(j) вводим некоторую переменнуюP, в которую временно «прячем» значение одного из элементов массива (в программе – этоV(i)). Затем элементу V(i) присваиваем значение элементаV(j), а элементуV(j) присваиваем значениеV(i), которое хранится в переменнойP. Если «спрячем» вPзначениеV(j), то код по обмену значениями будет таким:P = V(j): V(j) = V(i): V(i) = P. Результат не изменится.
Чтобы упорядочить массив по убыванию , достаточно условие для проверки написать в видеV(j) > V(i), т. е. изменить знак неравенства на другой.
Если массив будет не числовой, а строковый, и в элементы массива будут введены фамилии, то по программе примера 9.12, можно упорядочить список фамилий по алфавиту. Дело в том, что для букв алфавита, используемых в компьютере, справедливы неравенства: А < Б < В < Г….< Я и т. д., поскольку числовые коды букв алфавита последовательно увеличиваются, начиная с А и до конца алфавита. Это же справедливо и для букв английского алфавита.
Пример 9.13 . Вычисление суммы положительных элементов для нечетных столбцов матрицы F (M , N ) и вывод сумм на форму.
Алгоритм программы:
Используя внешний цикл с шагом 2, формируем индекс нечетных столбцов матрицы, начиная с первого столбца.
Обнуляем сумму S, в которой будет накапливаться сумма положительных элементов.
Во внутреннем цикле проверяем знак элемента массива.
Если элемент массива положителен (> 0), вычисляем сумму S.
После окончания внутреннего цикла выводим сумму Sна форму.
Фрагмент программы :
For j = 1 To N Step 2
If F(i, j) > 0 Then S = S + F(i, j)
Print “Сумма столбца “; j; “:”; S ‘ j – номер столбца!
Вложенные циклы позволяют организовать перебор вариантов и решать задачи, которые невозможно решить аналитически. В результате перебора получаются варианты решений, среди которых выбрается один или несколько, которые отвечают условию задачи.
Пример 9.14. Имеется 1801 руб. Сколько можно купить шоколадок по 31 руб. и булок по 18 руб., чтобы полностью потратить все деньги.
Программа:
Сумма = 1801
ВсеШоколадки = Сумма \ 31: ВсеБулки = Сумма \ 18
For i = 1 To ВсеШоколадки
For j = 1 To ВсеБулки
Цена = i * 31 + j * 18 ‘общая цена покупки
If Цена = 1801 Then
Print "Шоколадок: "; i; Tab(19); "Булок: "; j
Поясним программу, в которой используем переменные, названные по-русски.
Сначала определяем, какое максимальное количество только шоколадок или только булок можно купить на всю сумму. Полученные значения ВсеШоколадки и ВсеБулки используем для ограничения количеств переборов по количеству шоколадок и булок. Для каждых значений количества шоколадок (i) и количество булок (j) определяем общую Цену для их покупки. Если рассчитанная Цена равна 1801, то подобранный вариант есть одно из решений задачи.
Функция Tab() указывает, с какой позиции от края формы будет вывод информации, следующий за этой функцией. ЕслиTab(19), то с 19-ой позиции.
Программа выводит 3 возможных вариантов покупки:
Шоколадок 7, булок 88
Шоколадок 25, булок 57
Шоколадок 43, булок 26
Если требуется дать однозначный ответ, надо сформулировать дополнительное условие. Например, «булок было куплено меньше, чем шоколадок». Тогда единственным решением будет 3-й вариант.
Существует много математических задач, которые просто решаются методом перебора с помощью программирования вложенных циклов.