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

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

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

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

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

III. Свойства, методы объектов.

Задание

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

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

3. Результаты работы программы вывести на рабочем Листе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. Сведенья об учащихся

Ф.И.О.

№ школы

Класс

Район расположения школы

Район проживания ученика

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

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

Ф.И.О.

Регистрационный №

Стаж

Пол

Необходимость переобучения

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

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

Название объекта

Организация-сдатчик

Дата сдачи (квартал)

Тип организации сдатчика

Оценка

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

⇐ Предыдущая12345Следующая ⇒

Поделиться:

Популярное:

1. CASE-средства проектирования баз данных
2. I. Краткое изложение данных истории болезни
3. Linux - это операционная система, в основе которой лежит лежит ядро, разработанное Линусом Торвальдсом (Linus Torvalds).
4. SWIFT как система передачи данных.
5. Triangle t; square s; circle c(10); // объекты производных типов
6. Аварии на химико-технологических объектах: характеристика разрушительного воздействия, типовая модель развития аварии, поражающие факторы.
7. Адамс Б. Эффективное управление персоналом: Сделайте так, чтобы ваши служащие работали с максимальной отдачей, - М: АСТ Астрель, 2008. – 367 с.
8. Административная итоговая контрольная работа по окружающему миру за 1 класс
9. Анализ прибыли и рентабельности с использованием международных стандартов
10. АППРОКСИМАЦИЯ ДАННЫХ С ИСПОЛЬЗОВАНИЕМ МЕТОДА НАИМЕНЬШИХ КВАДРАТОВ
11. Артикулирование звуков, работа над дикцией
12. Архитектура производственной базы данных реального времени