методические указания к лабораторным работам

Окончание таблицы 10

Известны данные о числе жителей, проживающих в каждом из 12 домов улицы: Номер дома. Число жителей.

Определить номер дома, в котором проживает больше всего человек, а также общее

14число жителей, проживающих в 12 домах.

Добавить запись еще об одном доме, которая должна быть расположена перед записью, соответствующей дому с наибольшим количеством проживающих в нем человек. Отсортировать полученные данные по полю Число жителей.

Известны данные о стоимости каждой из 12 книг, продаваемых в книжном магазине:

Название книги. Стоимость.

15Определить среднюю стоимость книги, а также название самой доступной по цене книги. Добавить запись о стоимости еще одной книги после записи, соответствующей самой доступной по цене книге.

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

ЛАБОРАТОРНАЯ РАБОТА 7

ДВУМЕРНЫЕ МАССИВЫ

Основные сведения

Двумерный массив представляет собой матрицу, т. е. упорядоченный набор пронумерованных элементов одного типа, которые расположены в несколько строк и столбцов. Обращение к элементу массива происходит путем указания имени массива и двух индексов, заключенных в круглые скобки, например, Х(2, 3). При этомпервый индекс указывает наномер строки, авторой наномер столбца.

Объявление двумерного массива:

Dim Имя_Массива (N, M) As Тип_Элементов

где N и M – целые числа (нумерация элементов в этом случае начинается с нуля).

Пример 1

Известны данные о количестве часов проката каждой из 5 различных марок легковых автомобилей 3 филиалами фирмы:

Необходимо разработать пользовательский интерфейс и составить программу в редакторе VB MS Excel, с помощью которой будет осуществляться:

1.Ввод исходных данных двумерного массива и их вывод в виде таблицы на рабочий лист.

2.Определение:

25

•марки автомобиля, которая по общим часам проката у трех филиалов больше всего уступает другим маркам;

•среднего количества часов проката одного автомобиля в центральном филиале, количества марок автомобилей центрального филиала, для которых количество часов проката не превышало найденного среднего показателя, и марок таких автомобилей.

3.Вывод полученных результатов на тот же рабочий лист.

На первом рабочем листе Excel сформируем таблицу и введем названия пяти марок автомобилей. Ниже таблицы разместим три кнопки с помощью соответствующего инструмента панели инструментов

Элементы управления (рис. 15).

Для обработки событий нажатия кнопок «Ввод и вывод данных», «Определить» и «Очистить» введем в модуле «Лист1» следующий код:

Dim KolHour(1 To 10, 1 To 10) As Integer

Dim KM, KF, i, j As Integer

Private Sub inputOutputData_Click()

KM = Val(InputBox("Введите количество марок легковых автомобилей", "Ввод данных"))

KF = Val(InputBox("Введите число филиалов фирмы", "Ввод данных")) For i = 1 To KM

For j = 1 To KF

KolHour(i, j) = Val(InputBox("Введите количество часов проката " & Cells(i + 2, 1) & " " & Cells(2, j + 1), "Ввод данных"))

Cells(i+2, j+1) = KolHour(i, j) ‘вывод элементов массива на лист Next j

Next i End Sub

26

Next i

MsgBox "Среднее количество часов проката одного автомобиля в централь-

ном филиале составляет " & Str(Round(sH / KM, 2))

‘поиск количества марок авто и их наименований с часами проката, не выше ‘среднего по центральному филиалу

k = 0 stroka = ""

For i = 1 To KM

If KolHour(i, 2) <= sH / KM Then k = k + 1

stroka = stroka + Cells(i + 2, 1) + " " End If

Next i

MsgBox "Количество марок автомобилей центрального филиала, у которых

Проверим работу программы (рис. 16).

27

Рис. 16. Результат нажатия кнопок «Ввод и вывод данных» и «Определить»

Пример 2

Составить программу в редакторе VB MS Excel, с помощью которой будет осуществляться:

1)ввод элементов матрицы размерности (3×4) и их вывод в ячейки рабочего листа (с точностью до 2 знаков после запятой);

2)определение наименьшего по модулю элемента каждого столбца матрицы и произведения элементов матрицы, значения которых по модулю не превышают 1,5;

3)вывод полученных результатов на тот же рабочий лист.

Элементы матрицы и результаты вычислений будут выводиться на второй рабочий лист книги MS Excel. Для этого разместим на данном листе две кнопки с помощью соответствующего инструмента панели инструментов Элементы управ-

ления (рис. 17).

Изменим свойства этих кнопок (таблица 12).

Dim i, j, KolStr, KolStolb, im As Integer Dim minElem, proizvElem As Single

KolStr = Val(InputBox("Введите количество строк матрицы", "Ввод данных"))

28

KolStolb = Val(InputBox("Введите количество столбцов матрицы", "Ввод

иих вывод на лист

For i = 1 To KolStr

For j = 1 To KolStolb

matr(i, j) = Round((-1) ^ (i + j) * Rnd * 5, 2) Cells(i + 1, j) = matr(i, j)

Next j Next i

proizvElem = 1

For j = 1 To KolStolb

minElem = Abs(matr(1, j)) For i = 1 To KolStr

‘поиск минимума по столбцу

If Abs(matr(i, j))< minElem Then minElem = Abs(matr(i, j)): im = i ‘вычисление произведения

If Abs(matr(i, j))<= 1.5 Then proizvElem = proizvElem * matr(i, j) Next i

Cells(6, j) = matr(im, j) Next j

Cells(6, KolStolb + 1) = "|Минимум столбца|"

Cells(8, KolStolb + 1) = "Произведение |x(i,j)|<=1,5" Cells(8, KolStolb) = Round(proizvElem, 4)

End Sub

Private Sub clean_Click()

For i = 2 To 12

For j = 1 To 12

Cells(i, j).ClearContents

Next j

Next i

End Sub

Проверим работу программы

(рис. 18).

Рис. 18. Результат нажатия кнопки «Вычислить»

Задания к лабораторной работе 7

Задание 1

В соответствии с вариантом задания (таблица 13) разработать пользовательский интерфейс и составить программу в редакторе VB MS Excel, с помощью которой осуществляется:

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

29

массива вводятся через функцию InputBox) и их вывод в виде таблицы на рабочий лист;

2)обработка массива (нахождение суммы, количества элементов и т. п. в зависимости от варианта задания) и вывод ее результатов на тот же рабочий лист.

Таблица 13

3Определить:

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

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

Известныданныеоколичествежильцов, проживающихвкаждойиз3 квартир5-этажногодома:

4Определить:

•для каждого этажа – квартиру, в которой проживает наибольшее количество жильцов;

•сколько в среднем проживает человек в одной квартире и количество квартир, в которых число проживающих человек меньше найденного среднего показателя.

Известны данные о доходах каждого из 5 магазинов фирмы за последние 3 года:

Продолжение таблицы 13

Известны данные о командировочных расходах 5 отделов предприятия за 3 квартала текущего года:

Определить:

•общую сумму командировочных расходов каждого отделапредприятия за 3 квартала;

•название отдела, у которого наименьшие командировочные расходы за 3 квартала.

Известны данные о количестве дней проката каждого из 5 видов туристического снаряжения 3 филиалами фирмы:

9Определить:

•общий доход магазина, полученный от продажи чая за осень;

•средний размер дохода, полученного магазином за октябрь от продажи одного вида чая; количество видов чая, доход от продажи которых в октябре превысил найденный средний показатель, и название этих видов чая.

Известны данные о доходах каждого из 5 филиалов фирмы за первые 3 квартала текущего года:

Окончание таблицы 13

32

Задание 2

В соответствии с вариантом задания (таблица 14) составить программу в редакторе VB MS Excel, с помощью которой осуществляется:

1)ввод элементов матрицы размерности (3×4), осуществляемый с помощью генератора случайных чисел (значения элементов матрицы должны быть вещественными числами, не превышающими по абсолютной величине 5), и их вывод в ячейки рабочего листа (с точностью до 2 знаков после запятой);

2)обработка элементов матрицы (нахождение суммы, количества элементов и т. п. в зависимости от варианта задания) и вывод ее результатов на тот же рабочий лист.

Таблица 14

1Определить среднее геометрическое каждого столбца матрицы и максимальный по модулю элемент матрицы.

2Для каждого столбца матрицы найти наименьший элемент, а также количество неотрицательных элементов всей матрицы.

3Определить количество и сумму отрицательных элементов каждого столбца матрицы.

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

5Определить количество и сумму отрицательных элементов каждой строки матрицы.

6Определить наибольший по модулю элемент матрицы, номер строки и столбца, на пересечении которых он расположен.

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

8Для каждой строки матрицы найти сумму максимального и минимального элементов соответствующей строки.

9Определить среднее арифметическое каждого столбца матрицы и наибольший по модулю элемент матрицы.

Определить наименьший по модулю элемент матрицы и получить новую матрицу путём

10замены на нулевые всех элементов строки и столбца, на пересечении которых расположен элемент с наименьшим по модулю значением.

11Получить новую матрицу путем умножения элементов каждой строки исходной матрицы на наименьший по значению элемент соответствующей строки.

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

13Получить новую матрицу путем умножения элементов каждого столбца исходной матрицы на наименьший по модулю элемент соответствующего столбца.

14Получить новую матрицу путем прибавления к элементам каждого столбца исходной матрицы наименьшего по значению элемента соответствующего столбца.

15Определить количество и произведение элементов матрицы, значения которых по модулю не превышают 2.

33

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

1.Ананьев А. И. Самоучитель Visual Basic 6.0 / А. И. Ананьев, А. Ф. Федоров.

–СПб. : БХВ-Петербург, 2005. – 624 с.

2.Гарнаев А. Ю. Использование MS Excel и VBA в экономике и финансах / А. Ю. Гарнаев. – СПб. : БХВ-Петербург, 2000. – 336 с.

3.Гарнаев А. Ю. Самоучитель VBA / А. Ю. Гарнаев. – СПб. : БХВ-Петербург, 2007. – 512 с.

4.Демидова Л. А. Программирование в среде Visual Basic for Applications :

практикум / Л. А. Демидова, А. Н. Пылькин. – М. : Горячая линия – Теле-

ком, 2004. – 175 с.

5.Златопольский Д. М. Сборник задач по программированию / Д. М. Златопольский. – СПб. : БХВ-Петербург, 2007. – 240 с.

6.Каммингс С. VBA для «чайников» : пер. с англ. / С. Каммингс. – М. : Виль-

ямс, 2001. – 448 с.

7.Кузьменко В. Г. Программирование на VBA 2002 / В. Г. Кузьменко. – М. :

Бином-Пресс, 2003. – 880 с.

8.Панфилова Т. И. MS EXCEL и VBA. Примеры и задания / Т. И. Панфилова.

–М. : Интеллект-Центр, 2006. – 96 с.

9.Сафронов И. К. Visual Basic в задачах и примерах / И. К. Сафронов. – СПб.

:БХВ-Петербург, 2007. – 400 с.

10.Слепцова Л. Д. Программирование на VBA в Microsoft Office 2007 : само-

учитель / Л. Д. Слепцова. – М. : Вильямс, 2007. – 432 с.

11.Туркин О. В. VBA. Практическое программирование / О. В. Туркин. – М. :

СОЛОН-ПРЕСС, 2007. – 128 с.

12.Уокенбах Д. Профессиональное программирование на VBA в Excel 2002 : пер. с англ. / Д. Уокенбах. – М. : Вильямс, 2003. – 784 с.

34