2. Преобразование информации, расположенной в таблице Excel, в тип данных, определенный пользователем"

2.1 Описание организации экономической информации в виде типа данных, определенного пользователем

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

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

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

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

В-третьих, название товара. Реквизит представлен в виде символьной строки длиной в 20 символов;

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

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

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

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

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

3. Постановка задачи на обработку экономической информации с использованием типа данных, определенного пользователем

3.1 Описание условия задачи

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

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

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

В-третьих, название товара. Реквизит представлен в виде символьной строки длиной в 20 символов;

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

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

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

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

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

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

' GENERAL DECLARATIONS

Type T_TTN

Post As String * 20

Pynktn As String * 20

NazvTov As String * 20

Kolich As Integer

Cena As Single

End Type

Dim TTN(40) As T_TTN

Sub pr50()

Dim C_Pynktn As String * 20

Dim Sum As Single

L = 2

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

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

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

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

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

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

L = L + 1

Loop

N = L - 2

C_Pynktn = InputBox("Введите анализируемый пункт назначения", _

"Ввод контрольного значения")

Sum = 0

For I = 1 To N

If TTN(I).Pynktn = C_Pynktn Then

Sum = Sum + TTN(I).Kolich * TTN(I).Cena

End If

Next I

MsgBox Sum, , "Результат"

End Sub