Контрольная работа МЕСИ Программирование 2 семестр

Содержание

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

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

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

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

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

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

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

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

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

Программный код модуля Globals (файл Task2_TovTable.xls)

Option Explicit

Public TovPosAs Integer

Public TovNaimAs String

Public TovQtyAs Double

Public TovPriceAs Double

Public TovDateAs String

Программный код формы MaxPosForm (файл Task2_TovTable.xls)

Option Explicit

Private Sub cmdExit_Click()

Unload Me

End Sub

Private Sub UserForm_Activate()

If TovPos > 0 Then

lblInfo.Caption = _

"Наименование… : " & TovNaim & vbCrLf & _

"Количество….. : " & Format(TovQ————— _

"Цена……….. : " & Format(TovPrice, "#0.00") & vbCrLf & _

"Дата реализации : " & Left(TovDate, 2) & "." & Right(TovDate, 4)

Else

lblInfo.Caption = "Нереализованных товаров НЕТ!"

End If

End Sub

Программный код обработки нажатия кнопки (файл Task2_TovTable.xls)

Option Explicit

PrivateSubcmdTest_Click()

' определение кол-во заполненных строк

Dim ksAs Integer

Dim s As String

Dim sh As Worksheet

Set sh = ActiveSheet

ks = sh.UsedRange.Rows.Count

' искать нереализованную позицию максимальной стоимости

Dim maxPos As Integer

Dim maxS As Double

Dim tK As Double

Dim tDAs String

Dim k As Integer

Dim tMAs String

Dim tY As String

Программный код модуля NewMacros (файл Task3_MarsList.doc) — Верный код

Sub MarsList()

'

' MarsList Макрос

'

Dim f As ListForm

Set f = New ListForm

f.Show vbModal

End Sub

Выдержка из текста

1. Создание и выполнение экранной формы в программной среде Word.

1.1. Организация создания и выполнения экранной формы.

Для решения задачи используем файл MSWord Task1_Counter45.doc, содержащий начальный текст (пояснения по порядку выполнения задания и фрагмент таблицы умножения), в котором создаем макрос Count_45 для решения поставленной задачи.

1.2. Условие задачи на использование экранной формы.

Требуется создать в текстовом редакторе Word экранную форму, которая обеспечит определение, каких цифровых символов введенной строке больше: четверок или пятерок. Учесть возможность равенства количества данных цифровых символов.

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

Решением задачи является файл MSWord Task1_Count45.doc. Файл содержит начальный текст, содержащий фрагмент таблицы умножения, а также макрос Count_45, выполняющий все необходимые действия.

Список использованной литературы

1. С.Каммингс, VBA для чайников. М: OOO «И.Д.Вильямс», 2003, 448 с.

2. Слепцова Л.Д. Программирование на VBA в MicrosoftOffice 2010. – М.: OOO «И.Д.Вильямс», 2010. –432 с.

Похожие записи