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

Доход от сдачи в аренду одной из четырех квартир за 2006 г. составил 120 тыс. р., доход от сдачи в аренду второй квартиры за этот же год на 2 % превысил доход от сдачи в аренду первой, третьей – на 4 % больше, чем доход от сдачи в аренду второй, а четвер-

14той – на 8 % больше, чем доход от сдачи в аренду третьей квартиры. Известно, что доход от сдачи в аренду каждой из четырех квартир за 2007 г. вырос по сравнению с предыдущим годом на 15 %, а за 2008 – на 30 % по сравнению с 2007 г. Определить доход предприятия в целом, полученный за каждый из трех годов, начиная с 2006 г., и суммарный доход предприятия за три года.

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

15тыс. р., ведущего специалиста – 20 тыс. р., а главного специалиста – 25 тыс. р. и если количество штатных единиц должно быть равно 35 при ежемесячных расходах на зарплату 625 тыс. р.

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

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

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

Массив – это упорядоченная совокупность определенного количества однотипных переменных с общим именем и разными индексами. Каждая такая переменная – элемент массива. Количество элементов в массиве – размер массива.

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

Для объявления массива используется оператор Dim:

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

В этом случае нумерация элементов массива начинается с нуля. Для нумерации элементов массива, например, с единицы используется запись

Dim Имя_Массива (1 To Размерность_Массива) As Тип_Элементов Для изменения границ массива используется оператор ReDim:

ReDim Имя_Массива (Размерность_Массива)

Пример

Известны данные о численности населения (в миллионах жителей) 12 государств: Страна. Численность населения. Необходимо разработать пользовательскую форму и составить программу в редакторе VB MS Excel, с помощью которой будет осуществляться:

1)ввод исходных данных и их вывод в виде таблицы на рабочий лист;

17

2)определение государства, в котором проживает больше всего жителей, а также количество и название стран, в которых численность населения составляет от 10 до 50 миллионов жителей;

3)вставка записи о численности населения еще одного государства, которая должна быть расположена после записи, соответствующей государству с наибольшим числом населения;

4)сортировка полученных данных по полю Страна в алфавитном порядке. Пусть пользовательская форма будет иметь вид, представленный на рис. 12.

Рис. 12. Таблица и форма «Численность населения европейских государств»

Свойства объектов формы представлены в таблице 9.

Значения массива, соответствующего названиям стран, будут считываться с рабочего листа MS Excel. Для этого необходимо данные названия предварительно ввести в ячейки первого листа (рис. 12). А значения массива, отвечающего за численность населения, будем вводить с помощью функции InputBox.

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

18

Private Sub InputOutputData_Click() SizeM = 12

For i = 1 To SizeM ‘ввод элементов массивов

NazvGos(i) = Worksheets("Лист1").Range("A" & i + 1).Value KolNasel(i) = Val(InputBox("Введите численность населения страны " &

NazvGos(i) & " в млн. чел.", "Ввод данных"))

Worksheets("Лист1").Range("A" & i).Font.FontStyle = "полужирный" ‘горизонтальное выравнивание

Worksheets("Лист1").Range("A" & i).HorizontalAlignment = xlCenter Worksheets("Лист1").Range("B" & i).Font.FontStyle = " полужирный" Worksheets("Лист1").Range("B" & i).HorizontalAlignment = xlCenter

End If

‘задание стиля границ ячеек

Worksheets("Лист1").Range("A" & i).Borders.LineStyle = xlContinuous Worksheets("Лист1").Range("B" & i).Borders.LineStyle = xlContinuous

‘числовой формат ячейки

If i>1 Then Worksheets("Лист1").Range("B" & i).NumberFormat = "0.000" Next i

End Sub

При нажатии на кнопку «Рассчитать» на первый лист ниже таблицы будет выводиться название государства, в котором проживает больше всего жителей, а также количество и название стран, в которых численность населения составляет от 10 до 50 млн. жителей. Код для обработки события нажатия кнопки «Рассчитать» имеет вид:

Private Sub calc_Click() Dim maxKN As Single

maxKN = KolNasel(1) k = 0

For i = 1 To SizeM

‘поиск максимального элемента и его номера по массиву «Численность населения»

If KolNasel(i) > maxKN Then maxKN = KolNasel(i): NomerMax = i

End Sub

19

При нажатии на кнопку «Добавить запись» на втором листе будет выводиться таблица, содержащая информацию о численности населения 13 стран, т. е. после записи, соответствующей государству с наибольшим числом населения, еще будет вставлена следующая запись «Болгария 10,392». Для обработки события нажатия кнопки «Добавить запись» введем следующий код:

Private Sub add_Click()

For i = SizeM + 1 To NomerMax + 2 Step -1 ‘раздвигаем элементы массива

If i>1 Then Worksheets("Лист2").Range("B" & i).NumberFormat = "0.000" Next i

End Sub

При нажатии на кнопку «Отсортировать» будет выполняться сортировка массивов по названиям стран в алфавитном порядке, а результат сортировки будет выведен на третий лист. Код для обработки события нажатия кнопки «Отсортировать» имеет вид:

If i>1 Then Worksheets("Лист3").Range("B" & i).NumberFormat = "0.000" Next i

End Sub

На первом рабочем листе разместим кнопку «Форма» для вызова формы «Численность населения европейских государств». Запустим данную форму и проверим работу составленной программы (рис. 13 и 14).

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

Теперь введем код обработки событий нажатия кнопок «Очистить» и «Выход»:

Worksheets("Лист1").Range("A" & i + 14). ClearContents Worksheets("Лист1").Range("B" & i + 1). ClearContents Worksheets("Лист2").Range("A" & i). ClearContents Worksheets("Лист2").Range("B" & i). ClearContents

21