Лабораторная работа №6 Программирование с использованием составных пользовательских типов данных.

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

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

1. Пользовательский тип данных.

2. Работа с объектами Microsoft Excel .

Задание к работе

Варианты заданий указаны в приложении 7, с. 31.

Требуется выполнить следующее:

1. создать на рабочем Листе1 таблицу, содержащую не менее 10 записей

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

результаты работы программы вывести на рабочем Листе2

Пример

Заказы

Получить список клиентов (с указанием количества заказа), заказавших телевизоры в количестве более 30.

На рабочем листе1 в ячейках А1:Е11 содержится таблица заказов.

Текст программы

Type zakaz

Tovar As String

Klient As String

Price As Single

Kol_vo As Integer

Sum As Single

End Type

Sub lr6()

Dim Vedom(10) As zakaz, i, j As Integer

For i=1 to 10

Vedom(i). Tovar=WorkSheets(“Лист1”).Cells(i+1,1).Value

Vedom(i). Klient=WorkSheets(“Лист1”).Cells(i+1,2).Value

Vedom(i). Price=WorkSheets(“Лист1”).Cells(i+1,3).Value

Vedom(i). Kol_vo=WorkSheets(“Лист1”).Cells(i+1,4).Value

Vedom(i). Sum=WorkSheets(“Лист1”).Cells(i+1,5).Value

Next i

WorkSheets(“Лист2”).Range(“A1”).Value =”Клиент”

WorkSheets(“Лист2”).Range(“B1”).Value =”Количество”

WorkSheets(“Лист2”).Range(“C1”).Value =”Товар”

j=2

For i=1 to 10

If Vedom(i).Tovar=”телевизор” and Vedom(i).Kol_vo>30 Then

WorkSheets(“Лист2”).Cells(j,1).Value = Vedom(i).Klient

WorkSheets(“Лист2”).Cells(j,2).Value = Vedom(i).Kol_vo

WorkSheets(“Лист2”).Cells(j,3).Value = Vedom(i).Tovar

j=j+1

End If

Next i

End Sub

Контрольные вопросы

1. Описание пользовательских типов данных.

2. Формат инструкции Type.

3. Отбор записей, удовлетворяющих условию.

4. Доступ к рабочему листу.

5. Доступ к ячейкам рабочего листа.

6. Работа с объектами WorkSheet, Range, Cells.

Приложение 7. Варианты заданий лабораторной работы №6.

1. Регистрация пациентов

Получить полный список пациентов с указанием имени пациента, даты операции с успешным результатом лечения для диагноза «Язва желудка»

2. Статистика по хирургическому отделению

Получить список хирургов старше 30 лет (с указанием № и имени хирурга) выполнивших операции с диагнозом «Аппендицит»

3. Учебное заведение

Получить список учебных заведений (с указанием названия) расположенных в Харькове и имеющих кол-во студентов дневной формы более 2000 человек, а числом профессоров более 40 человек.

4. Результаты экзаменов

В какие дни и в каких аудиториях лектор Зайцев А.И. принимает экзамен по линейной алгебре у групп, кол-во студентов в которых меньше 25.

5. Студенческая группа

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

6. Движение поездов

Получить список городов, в которые прибывают поезда, проходящие расстояние более 1000 км., с кол-вом проданных билетов > 60%

7. Аэропорт

Получить список всех типов самолётов для рейсов, пунктом назначения которых является Львов с кол-вом проданных билетов > 30

8. Театральная афиша

Получить список театров и количество мест в залах, в которых идут спектакли А.П. Чехова

9. Киноафиша

Получить список кинотеатров (с указанием района, в котором он расположен), в котором идут полнометражные фильмы Одесской киностудии.

10. Библиотечная карточка

Получить список абонентов, которые читают произведения А.С. Пушкина, изданные до 1910г.

11. Выпуск продукции

Получить список наименований продукции (с указанием фирмы и типа предприятия) заказанных в количестве более 100 штук.

12. Учёт машинного времени

Получить список кафедр, использующих ПЭВМ IBM Pentium в дисплейном классе 521 свыше 20 часов.

13. Накладная

Получить список клиентов (с указанием даты выписки счетов) из Донецка, получивших количество товара > 10 шт.

14. Учёт служащих

Получить список служащих (с № удостоверения) старше 30 лет работающих в должности ведущих специалистов.

15. Центр занятости

Получить список зарегистрированных мужчин со стажем работы < 10 лет без необходимости переквалификации.

16. Сведенья об учащихся

Получить список учеников 10 класса не проживающих в районе расположения школы.

17. Спортивные соревнования

Получить список участников соревнования по плаванью, принимавших участие от Коммунарского района.

18. Транспортные услуги

Получить сведения о поставках (поставляемое изделие, дату, наличие претензий) выполненных воздушным транспортом на расстояние. >1500 км

19. Сведения о проживающих

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

20. Сведения об отлаженных программах

Получить список программистов получивших за составление программы из более чем 1000 операторов на языке Visual Basic.

21. Сданные объекты

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

22. Склад

Получить список товаров черного цвета с объёмом поставки>100 отпущенных во II Квартале текущего года.

23. Сальдовая ведомость

Получить список в остатке продукта и его стоимость для мяса свинины I Категории, полученного с животноводческого комплекса №1 и отпущенного в ресторан “Динар”.

24. Платежная ведомость

Получить список сотрудников получивших премию > 100гр. при отсутствии нарушений.

25. Деканат

Получить список лекторов, у которых по предмету высшая математика средний бал > 3,5

26. Учёт машинного времени

Получить список кафедр, использующих ПЭВМ IBM Pentium в дисплейном классе 521 свыше 20 часов.

27. Сведения о проживающих

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

28. Сведенья об учащихся

Получить список учеников 10 класса не проживающих в районе расположения школы.

29. Центр занятости

Получить список зарегистрированных мужчин со стажем работы < 10 лет без необходимости переквалификации.

30. Сданные объекты

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

CC-BY-CA Анатольев А.Г., 31.01.2012