решенный вариант из рк1 по информатике

Решение 2го варианта из РК1 по информатикеVisual Basic
Дан массив, состоящий из n структур, содержащих информацию о пассажирах
О каждом пассажире известно:
Пассажир имеет: Фамилия, Количество мест багажа, Общий вес багажа;
Процедуру ввода;
Функцию вычисления среднего веса одного места багажа функцию формирования строки для вывода.
Разработать модуль, содержащий следующие подпрограммы: Процедуру ввода массива пассажиров;
Процедуру вывода массива пассажиров в Listbox;
Функцию вычисления общего веса багажа всех пассажиров; Процедуру сортировки массива пассажиров по возрастанию среднего веса
одного места багажа;
количество мест багажа, считая, что таких может быть несколько. Процедуру, формирующую массив пассажиров,
В основной программе продемонстрировать работу подпрограмм. Исходный массив массив после сортировки вывести в разные окна списка, полученный массив на вторую форму.

среднее значение вывести на вторую форму.