Оператор цикла Do – Loop. В VBA для организации циклов с неизвестным заранее числом повторений используются и другие операторы циклов:

 

В VBA для организации циклов с неизвестным заранее числом повторений используются и другие операторы циклов:

 

1.

Do While Условие

Блок операторов

Loop

2.

Do Until Условие

Блок операторов

Loop

3.

Do

Блок операторов

Loop While Условие

4.

Do

Блок операторов

Loop Until Условие

 

Оператор Do While – Loop обеспечивает многократное выполнение блока операторов до тех пор, пока условие истинно, а оператор Do Until – Loop – пока условие ложно.

Операторы Do – Loop While и Do – Loop Until отличаются от первых двух операторов тем, что сначала выполняется блок операторов, а затем проверяется условие. Таким образом, в этих циклах блок операторов, составляющих тело цикла, выполнится по крайней мере один раз.

Приведем пример использования цикла Do – Loop While при нахождении корня уравнения f(x) = 0 методом Ньютона.

Для нахождения приближенного значения корня уравнения методом Ньютона необходимо задать начальное приближение х0, а затем определить последующие приближения к корню методом итерации по формуле

 

f(xn–1)

 
 

xn = xn –1 – , где n = 1, 2,…

f’(xn–1)

 

Процесс останавливается при выполнении неравенства |xn–xn–1| £ e, где e – точность определения корня.

Уравнение x2 = 2, начальное приближение к корню – число 3, точность вычисления 0,00001.

Ответ: х = 1,414207.

 

Программный код

 

Option Explicit

Sub PR12()

Const eps = 0.00001

Dim x0 As Double, x As Double

x = 3

Do

x0 = x

x = x – (x ^ 2 – 2) / (2 * x)

Loop While Abs(x – x0) > eps

MsgBox ("корень уравнения=" & x)

End Sub

 

Примером использования цикла Do – Loop Until может служить программа нахождения корня уравнения f(x) = 0 методом деления отрезка пополам.

Вычислим корень уравнения x2 = 2 с точностью до e = 0,00001. За отрезок начальной локализации корня берется отрезок [0; 2].

Ответ: х = 1,414207.

 

Программный код

 

Option Explicit

Sub PR13()

Dim c As Double, f As Double

Dim fa As Double, fb As Double, fc As Double

Dim a As Double, b As Double, eps As Double, bh As Double

a = 0: b = 2: eps = 0.00001

fa = a ^ 2 - 2

fb = b ^ 2 - 2

If fa * fb >= 0 Then

MsgBox ("Функция не меняет знак на концах отрезка")

Exit Sub ‘ выход из процедуры

End If

Do

c = (a + b) / 2

fc = c ^ 2 - 2

fa = a ^ 2 - 2

f = fc * fa

If f < 0 Then b = c Else a = c

Loop Until b - a < eps

bh = c

MsgBox ("значение корня=" & bh)

End Sub

Массивы

 

Часто бывает необходимо работать с некоторым набором однотипных данных как с единым целым. В таких случаях используются массивы – структурированные боксы для хранения множеств элементов данных одинакового типа.

Массивы могут быть одномерными и многомерными.

 

Одномерные массивы

 

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

 

Пример

1 –34 8 2 6

или

-5

 

Каждый элемент массива обозначается при помощи имени массива и индекса, заключенного в круглые скобки.

Индекс может быть:

· константой

Пример

P(1), C(5)

· переменной целого типа

Пример

A(i), B(j)

· арифметическим выражением (значение арифметического выражения должно быть целым)

Пример

A(i*2), Q(i^j)

 

Объявление массива

 

Как и обычные переменные, массивы должны быть объявлены. Для описания массива используется оператор Dim.

 

Dim Имя массива (Размерность массива) As Тип элементов

 

Пример

Dim A (100) As Integer

Dim B (50) As Byte

Dim С (40) As Double

 

При таком описании массива его элементы индексируются (т.е. нумеруются), начиная с нуля.

Если оператор описания будет выглядеть следующим образом:

Dim A (1 To 100) As Integer,

то элементы массива индексируются с единицы.

 

Ввод массива

 

Перед обработкой массива его необходимо заполнить (ввести).

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

 

1 способ. На рабочем листе введем числа в ячейки электронной таблицы (рис. 4), откроем окно программного кода и запишем в него программу, которая считывает данный массив чисел.

 
 

Рис. 4. Исходный массив

Программный код

 

Option Explicit

Sub PR14()

Dim A(20) As Integer

Dim i As Integer

For i = 1 To 6

A(i) = Cells(1, i) ‘ массив заполняется

Next i ‘ числами с рабочего листа Excel

End Sub

 

2 способ. Массив можно заполнить при помощи счетчика случайных чисел. Для этого в программе после объявления переменных следует написать следующее:

 

Randomize

For i = 1 To 10

Cells(1, i) = Int(Rnd * 100 – 50)

A(i) = Cells(1, i) ‘ заполнение массива

Next i

 

Функция Rnd возвращает значение от 0 до 1. Перед вызовом функции Rnd используется инструкция Randomize без аргумента для инициализации генератора случайных чисел значением, возвращаемым системным таймером.

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

Вообще оператор Cells(i, j) служит для вывода информации в ячейку электронной таблицы или считывания информации из ячейки электронной таблицы Excel. В скобках через запятую указываются номер строки – i и номер столбца – j ячейки электронной таблицы.

 

Пример

Cells(1, 2) = x ‘в ячейку B1 записывается информация из переменной х

х = Cells(1, 2) ‘из ячейки В1 считывают информацию в переменную х

 

Вывод массива

 

Для распечатки полученного массива на рабочий лист Excel используется следующая конструкция:

 

For i = 1 To n

Cells(k, i) = A(i) ‘ вывод массива в ячейки электронной таблицы

Next i ‘ k – номер строки для заполнения ячеек.

 

Вместо переменной k можно использовать конкретное значение, например 3, тогда массив распечатается в третьей строке рабочего листа.

После заполнения ячеек их содержимое можно посмотреть, свернув окно программного кода при помощи кнопки “Свернуть” или переключившись в окно Excel с помощью соответствующей кнопки на панели задач.

В VBA удобно пользоваться различными рабочими листами в одной программе. Для установки нужного рабочего листа используется следующая команда:

 








Дата добавления: 2015-11-20; просмотров: 1089;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.018 сек.