Условие задачи на использование экранной формы в таблице Excel

В таблице Excel имеется документ, «справка о не реализованной товарной продукции». В справке имеются следующие реквизиты:

Во-первых, наименование товарной продукции. Реквизит представлен в виде символьной строки длиной в 40 символов.

Во-вторых, количество продукции. Реквизит представлен в виде числа, не имеющего дробной части.

В-третьих, цена продукции. Реквизит представлен в виде числа, имеющего дробную часть.

В-четвертых, плановая дата реализации товарной продукции. Информация представлена в виде символьной строки размером в шесть символов. Первые два символа обозначают месяц. Символы с третьего по шестой обозначают год.

Первая строка содержит наименование реквизитов. Начиная со второй строки, располагаются значения реквизитов. Количество заполненных строк таблицы не фиксируется

Требуется, создать в текстовом редакторе Excel экранную форму, которая обеспечит определение наименования самой дорогой, не реализованной, товарной продукции.

Распечатка программного кода

'Раздел общих описаний

' GENERAL DECLARATIONS

Private Type TTTN

Naim As String * 40

Kolich As Integer

Cena As Single

Data As Date

End Type

Private Sub CmdProcess_Click()

Dim TTN(40) As TTTN

Dim MAX As Single

L = 2

Do While Cells(L, 1) <> ""

TTN(L - 1).Naim = Cells(L, 1)

TTN(L - 1).Kolich = Cells(L, 2)

TTN(L - 1).Cena = Cells(L, 3)

TTN(L - 1).Data = Cells(L, 4)

L = L + 1

Loop

N = L - 2

Sum = 0

For I = 1 To N

If TTN(I).Kolich * TTN(I).Cena > MAX Then

MAX = TTN(I).Kolich * TTN(I).Cena: Znach = TTN(I).Naim

End If

LbRez.Caption = Znach

Next I

End Sub

Private Sub CmdExit_Click()

Unload Me

End Sub

Распечатка результатов выполнения

Наименование	Количество	Цена	Плановая дата реализации
медведь		210р.	21.12.2012
черепаха		150р.	13.12.2012
заяц		83р.	07.12.2012
снеговик		35р.	01.12.2012
снегурочка		200р.	18.12.2012
кит		230р.	29.12.2012