Цветкова О.Н., Миронова И.В. Программирование на VBA

Подождите немного. Документ загружается.

тивном случае – флажки не видны, и условия не проверяются. В этом

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

Операции выполняются для чисел, сгенерированных случайным

образом. Они выводятся на форме. Количество чисел можно менять.

Диапазон чисел (от –10 до 10) задается в момент инициализации

формы. Результат операции выводится в поле «Результат». Если ни

одно из чисел не удовлетворяет условиям, то выводится «нет эл.».

Проверка условия нам необходима во многих местах, поэтому

она оформлена в виде функции. Функция возвращает значение True,

если условие выполняется, и False – в противном случае. Если вы-

ключатель не нажат, то функция всегда возвращает значение True.

Функция помещается в тот же модуль формы.

Public Function условие(X As Variant) As Boolean

If ToggleButton1.Value Then

условие = (Not (CheckBox1.Value) Or (X < 0)) And _

(Not (CheckBox2.Value) Or (X > 0)) And _

(Not (CheckBox3.Value) Or ((X >= -5) And (X <= 5))) And _

(Not (CheckBox4.Value) Or ((X Mod 2) = 0)) And _

(Not (CheckBox5.Value) Or ((X Mod 2) <> 0))

Else

условие = True

End If

End Function

Чтобы сделать в нужный момент флажки видимыми или неви-

димыми, обрабатывается событие Click для выключателя. Значение

свойства Visible у флажков совпадает со значением свойства Value у

выключателя: если выключатель нажат, то флажки видны, и наобо-

рот. В момент проектирования их также следует установить одинако-

выми.

Private Sub ToggleButton1_Click()

CheckBox1.Visible = ToggleButton1.Value

CheckBox2.Visible = ToggleButton1.Value

CheckBox3.Visible = ToggleButton1.Value

CheckBox4.Visible = ToggleButton1.Value

CheckBox5.Visible = ToggleButton1.Value

End Sub

Процедура ОчередноеЗначение() предназначена для получения

очередного случайного числа. Сгенерированное число присваивается

аргументу, указанному при вызове процедуры, и записывается в

строку, которая выводится в поле TextBox2. Процедуру нужно помес-

тить в том же модуле формы.

Public Sub ОчередноеЗначение(Y As Integer)

Y = Int((A2 - A1 + 1) * Rnd + A1)

TextBox2.Text = TextBox2.Text & " " & Y

End Sub

Основные вычисления запрограммированы в процедуре обра-

ботки события Click для кнопки «Вычислить». Проверка, какой из

переключателей выбран, выполняется с помощью условного операто-

ра IF. Допишите в приведенной процедуре недостающие фрагменты.

Обратите внимание, как выполняется начальное присваивание при

нахождении номера максимального элемента. Для этого потребова-

лось написать дополнительный цикл, чтобы найти первый элемент,

удовлетворяющий условию. Переменная R содержит результат. Во

всех случаях, кроме последнего (подсчет среднего арифметического),

её значение определяется с помощью функции IIf. В последнем слу-

чае это невозможно, т.к. у функции IIf всегда вычисляются все аргу-

менты, и, следовательно, возникнет ошибка в том случае, когда C = 0.

Private Sub CommandButton1_Click()

Dim X As Integer

TextBox2.Text = ""

'Вычисление количества элементов

If OptionButton1.Value Then

C = 0

For i = 1 To TextBox1.Text

ОчередноеЗначение X

If условие(X) Then C = C + 1

R = IIf(C = 0, "нет эл.", C)

'Вычисление номера первого элемента

ElseIf OptionButton2.Value Then

N = 0

P = True

For i = 1 To TextBox1.Text

ОчередноеЗначение X

If (условие(X) And P) Then N = i: P = False

R = IIf(N = 0, "нет эл.", N)

'Вычисление номера последнего элемента

'…

'Вычисление номера максимального элемента

ElseIf OptionButton4.Value Then

N = 0

For i = 1 To TextBox1.Text

ОчередноеЗначение X

If условие(X) Then Max = X: N = i: Exit For

For j = i + 1 To TextBox1.Text

ОчередноеЗначение X

If (условие(X) And X > Max) Then Max = X: N = j

R = IIf(N = 0, "нет эл.", N)

'Вычисление номера минимального элемента

'…

'Вычисление среднего арифметического

ElseIf OptionButton6.Value Then

C = 0

S = 0

For i = 1 To TextBox1.Text

ОчередноеЗначение X

If условие(X) Then C = C + 1: S = S + X

If C = 0 Then R = "нет эл." Else R = Format(S / C, "fixed")

End If

TextBox3.Text = R

End Sub

6. Использование структурированных типов дан-

ных на примере массивов

Понятие массива. Работа с массивами

Для работы с набором значений одного типа обычно использу-

ется массив. Все элементы массива имеют одно и то же имя. Для дос-

тупа к конкретному элементу нужно указать индекс (номер) элемента

в массиве. Индексов может быть несколько, тогда они перечисляются

через запятую.

Инструкция объявления массива имеет вид:

Dim ИмяМассива ( [Размер] ) [As ИмяТипа]

Вместо Dim можно использовать Private или Public. Если тип не

указан, по умолчанию будет принят тип Variant.

Если в объявлении массива размер не указан, то будет создан

динамический массив, т. е. массив, размер которого определяется при

выполнении программы. Определить размер динамического массива

нужно до первого обращения к его элементу с помощью инструкции

ReDim [Preserve] ИмяМассива (Размер)

Далее, в процессе выполнения программы размер массива мож-

но многократно переопределять, используя ту же инструкцию ReDim.

При переопределении содержимое элементов массива будет теряться.

Чтобы при переопределении размера массива сохранить значения тех

его элементов, присутствие которых не противоречит новому разме-

ру, следует использовать ключевое слово Preserve.

Размер определяет количество индексов массива и их возмож-

ные значения. Он представляет собой список

[НомПерв1 То] НомПосл1, [НомПерв2 То] НомПосл2, ...

Выражение НомПерв То НомПосл устанавливает границы изме-

нения индекса массива. Ими должны быть целые числа, в том числе и

отрицательные. Если нижняя граница индекса не указана, она прини-

мается равной нулю. С помощью инстукции Option Base 1 можно

принудительно перевести VB в режим, когда нижняя граница индекса

массива по умолчанию будет приниматься равной 1.

Верхнюю и нижнюю границы индекса массива в процессе вы-

полнения программы можно узнать, используя функции Lbound и

Ubound:

Lbound (ИмяМассива, НомерИндекса)

Ubound (ИмяМассива, НомерИндекса)

Параметр НомерИндекса используют в случае многомерного

массива, когда речь идет не о первом индексе.

Полезна также функция Array, которая создает массив типа

Variant с одновременным присваиванием им значений. Например,

Dim X As Variant

X = Array("июнь", "июль", "август")

Практические задания

Задание 6.1

Создайте приведенную форму и реализуйте указанные опера-

ции. Данные для выполнения операции находятся в массиве. Запол-

нение массива выполняется с помощью датчика случайных чисел. Ре-

зультат помещается в другой массив такого же размера.

В приведенных процедурах обратите внимание на то, как осу-

ществляется работа с элементами массива. При упорядочении масси-

ва реализован следующий алгоритм: находим номер минимального

элемента, меняем местами первый и минимальный элементы, потом

повторяем то же самое для оставшейся части массива (начиная со

второго, третьего и т.д. элементов).

Dim A() As Integer

Dim B() As Integer

Dim N As Integer

Const A1 As Integer = -10

Const A2 As Integer = 10

Private Sub CommandButton2_Click()

k = N

'Увеличение элементов в 2 раза

If OptionButton1.Value Then

For i = 1 To N

B(i) = A(i) * 2

'Удаление отрицательных

ElseIf OptionButton2.Value Then

k = 0

For i = 1 To N

If A(i) >= 0 Then k = k + 1: B(k) = A(i)

'Обратный порядок элементов

ElseIf OptionButton3.Value Then

For i = 1 To N

B(N - i + 1) = A(i)

'Упорядочение массива

ElseIf OptionButton4.Value Then

For i = 1 To N

B(i) = A(i)

For i = 1 To N - 1

m = i

For j = i + 1 To N

If B(j) < B(m) Then m = j

R = B(i): B(i) = B(m): B(m) = R

End If

'Вывод результата

TextBox3.Text = ""

For i = 1 To k

TextBox3.Text = TextBox3.Text & " " & B(i)

End Sub

Private Sub CommandButton1_Click()

'Определение размерности массивов

N = TextBox1.Text

ReDim A(1 To N)

ReDim B(1 To N)

'Заполнение массива А и вывод значений на экран

TextBox2.Text = ""

For i = 1 To N

A(i) = Int((A2 - A1 + 1) * Rnd + A1)

TextBox2.Text = TextBox2.Text & " " & A(i)

TextBox3.Text = ""

End Sub

Задание 6.2

Переделайте задание 5.1 с использованием массива.

Добавьте в это задание следующую операцию:

 проверить, образуют ли заданные числа возрастающую по-

следовательность.

Задание 6.3

Добавьте в задание 6.1 следующие операции:

 изменение знака элементов массива на противоположный;

 сформировать массив, в котором сначала идут все отрица-

тельные элементы, затем нули, а потом положительные элементы

исходного массива в том же порядке, в каком они были в исходном

массиве.

7. Создание функций пользователя в MS Excel

Создание функций пользователя

Функцией называется последовательность инструкций, в ре-

зультате выполнения которой вычисляется некоторое значение. Фор-

мальный синтаксис функций был описан в лабораторной работе 5.

Для создания функции пользователя, которую можно вызвать в

Excel на рабочем листе с помощью мастера функций, выполните сле-

дующие действия:

• добавьте к проекту новый модуль, используя команду

Вставка\ Модуль, или перейдите в существующий модуль;

• наберите в этом модуле необходимые инструкции, для ус-

корения процесса можно воспользоваться командой Встав-

ка\ Процедура, обратите внимание, что перед Function должно сто-

ять ключевое слово Public;

• вызовите окно Просмотр объектов (кнопка F2 или команда

Вид\ Просмотр объектов), в списке проектов (верхний левый спи-

сок) выберите VBA Project, в списке Классы – нужный модуль, а в

списке Компоненты – имя вашей функции;

• откройте окно Параметры компонента (команда Свойст-

ва контекстного меню для выбранной функции) и введите в поле

Описание текст с описанием функции.

Вызвать на рабочем листе созданную вами функцию можно как

обычно. Она находится в категории Определенные пользователем.

Практические задания

Задание 7.1

Напишите функцию, которая вычисляет коэффициент обеспе-

ченности собственными оборотными средствами по формуле:

occ

активыТекущие

пассивыТекущиеактивыТекущие

−

Добавьте к проекту новый модуль. Введите текст функции при-

веденный ниже. Протестируйте функцию, вызвав её с различными

значениями аргументов.

Public Function KOCC(ТАктивы As String, ТПассивы As String) As Variant

If IsNumeric(ТАктивы) And IsNumeric(ТПассивы) Then

KOCC = (ТАктивы - ТПассивы) / ТПассивы

Else

KOCC = "Ошибка"

End If

End Function

Задание 7.2

Напишите функцию, которая определяет номер первого вхож-

дения элемента в заданном массиве. Если элемент отсутствует в мас-

сиве, функция равна –1.

Пример показывает, как можно передать значение массива в ка-

честве аргумента функции. Для определения размерности массива

можно использовать свойство Count. Если массив Значения двумер-

ный, то размерность определяют через свойства

Значения.Rows.Count и

Значения.Columns.Count.

Public Function НОМЕР(Значения As Variant, _

Элемент As Variant) As Integer

n = Значения.Count

НОМЕР = -1

For i = 1 To n

If Значения(i) = Элемент Then НОМЕР = i: Exit For

Next i

End Function

Задание 7.3

Напишем функцию, которая находит решение системы линей-

ных уравнений. Это функция массива, поэтому при вызове она долж-

на заканчиваться Ctrl+Shift+Enter. При написании функции восполь-

зуемся функциями рабочего листа Mmult (вычисляет произведение

двух матриц) и MInverse (вычисляет обратную матрицу).

Public Function РешЛинСист(ЛевЧасть As Variant, _

ПрЧасть As Variant) As Variant

РешЛинСист = Application.WorksheetFunction.MMult( _

Application.WorksheetFunction.MInverse(ЛевЧасть), ПрЧасть)

End Function

Задание 7.4

Напишите функцию, которая вычисляет коэффициент текущей

ликвидности по формуле:

лик

периодовбудущихДоходыпассивыТекущие

периодовбудущи

РасходыактивыТекущи

−

Задание 7.5

Напишите функцию для расчета комиссионных:

• если продукции продано меньше, чем на 10000 руб., то комис-

сионные составляют 1% от стоимости реализованной продукции;