Информатика и выч. техника \ Информатика

Изучение VBA. Обработка записей (Лабораторная работа № 5), страница 3

 str_nazv = str_nazv + Диск(i).Название + Chr(13)

End If

Next i

MsgBox str_nazv, vbOKOnly, "Диски, цена партии который больше 1000 р."

'поиск самого нового диска (это нахождение максимального года выпуска)

Max = 0

For i = 1 To n

If Диск(i).Год_выпуска > Max Then

Max = Диск(i).Год_выпуска

‘в str_nazv2 запоминаем название того диска для которого нашли максимальный год выпуска

str_nazv2 = Диск(i).Название

End If

Next i

MsgBox str_nazv2 & Chr(13) & Max, vbOKOnly, "Самыйновыйдиск"

End Sub

III Самостоятельное задание

«Тип, определенный пользователем – запись»

Примечание: ввод данных осуществлять через форму с текстовыми полями, а запрос на количество записей – через InpurBox

№ вар.

Задание

1

Создать список учета продуктовых товаров.

  1. Описать и ввести массив, содержащий 5 записей следующей структуры:

Название, дата (изготовления и срок годности), изготовитель.

  1. Вывести массив в табличном виде.
  2. Вывести списки товара, годного до июня 2002 года, затем изготовленного в Германии.
  3. Найти средний срок годности.

2

Создать список спортсменов.

  1. Описать и ввести массив, содержащий 5 записей следующей структуры:

Фамилия (отдельно Ф., И., О.), возраст, вес, рост, город.

  1. Вывести массив в табличном виде.
  2. Вывести списки спортсменов 1986 года рождения, чей вес превышает 50 кг
  3. Найти самого высокого и самого низкого спортсменов.

3

Создать список домашних книг.

  1. Описать и ввести массив, содержащий 5 записей следующей структуры:

Название, автор, № учета, дата издания, издательство.

  1. Вывести массив в табличном виде.
  2. Вывести списки книг издательства «Санкт-Петербург», затем книг, изданных раньше 1990г.
  3. Найти самую старую книгу из списка.

4

Создать список призывников.

  1. Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, возраст, рост, адрес, место работы (учебы).

  1. Вывести массив в табличном виде.
  2. Вывести списки учащихся в ОГТИ, затем моложе 18 лет.
  3. Найти средний рост призывников.

5

Создать список жильцов дома.

  1. Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, № счета за квартплату, адрес (улица, номер дома, квартира), квартплата в руб.

  1. Вывести массив в табличном виде.
  2. Вывести списки не внесших плату за квартиру, затем жильцов из 3 дома.
  3. Найти общую сумму внесенной квартплаты.

6

Создать список работников предприятия.

  1. Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, возраст, адрес, название отдела.

  1. Вывести массив в табличном виде.
  2. Вывести все сведения об Ивановых, затем списки работников старше 25 лет.
  3. Найти количество Ивановых на предприятии.

7

Создать список учета школьников.

1.   Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, фамилия родителя, возраст, вес, рост.

  1. Вывести массив в табличном виде.
  2. Вывести списки школьников 12 лет, затем самых высоких детей.
  3. Вывести сведения о школьниках, чьи фамилии совпадают с фамилиями родителей.

8

Создать список студентов группы.

       1. Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, возраст, № студ. билета, оценки по 3-м предметам.

  1. Вывести массив в табличном виде.
  2. Вывести списки тех, у кого средний балл>4, затем студентов моложе 20 лет.
  3. Найти средний возраст студентов.

9

Создать список клиентов банка.

      1.  Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, возраст, № счета, сумма на счету.

  1. Вывести массив в табличном виде.
  2. Вывести все сведения клиентах со счетом > 10 тыс. руб., затем клиентов старше 45 лет.
  3. Найти среднюю сумму вкладов.

10

Создать список пенсионеров Ленинского района.

  1. Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, возраст, адрес, сумма пенсии.

  1. Вывести массив в табличном виде.
  2. Вывести все сведения о пенсионерах старше 75 лет.
  3. Найти среднюю сумму пенсии.

11

Создать список сотрудников фирмы.

      1.  Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, возраст, отдел, зарплата.

  1. Вывести массив в табличном виде.
  2. Вывести все сведения о сотрудниках, чья зарплата более чем в два раза превышает минимальный размер оплаты труда (450 руб.).
  3. Найти самого высокооплачиваемого сотрудника.

12

Создать список льготников.

      1. Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, возраст, льгота (например, школьные обеды, проезд в транспорте, льгота на квартплату и т.д.), процент льготы.

  1. Вывести массив в табличном виде.
  2. Вывести все сведения о людях, пользующихся льготами для проезда в транспорте.
  3. Найти всех людей, чья льгота составляет 100% и вывести их фамилии.

13

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

      1.  Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, возраст, процент скидки, кол-во покупок в этом магазине.

  1. Вывести массив в табличном виде.
  2. Вывести все сведения о клиентах, пользующихся скидкой более чем 5%, затем клиентов, сделавших в этом магазине 1 или 2 покупки (т.е. меньше 3).
  3. Найти среднее значение скидок.

14

Создать список спортсменов олимпийского резерва.

      1.  Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, возраст, вид спорта, год участия в олимпиаде.

  1. Вывести массив в табличном виде.
  2. Вывести фамилии спортсменов-футболистов, а затем спортсменов старше 30 лет.
  3. Найти и вывести на экран сведения о спортсменах, которые будут принимать участие в соревнованиях 2006 года.

15

Создать список участников научной конференции ОГТИ.

      1.  Описать и вывести массив, содержащий 5 записей следующей структуры:

Фамилия, возраст, группа, специальность (название), форма представления доклада (реферат или программа).

  1. Вывести массив в табличном виде.
  2. Вывести фамилии участников специальности ЭУП.
  3. Найти самого младшего участника конференции.
Скачать файл