- •Московский государственный университет экономики, статистики и информатики
- •1. Создание и выполнение экранной формы в программной среде Word
- •Шаг 4: установка или изменение параметров элементов управления содержимым
- •Шаг 5: добавление в форму пояснительного текста
- •1.2 Условие задачи на использование экранной формы
- •1.3 Распечатка программного кода
- •1.4 Распечатка результатов выполнения
- •2.2 Условие задачи на использование экранной формы в таблице Excel
- •2.3 Распечатка программного кода
- •2.4 Распечатка результатов выполнения
2.2 Условие задачи на использование экранной формы в таблице Excel
В таблице Excel имеется документ, «справка о не реализованной товарной продукции». В справке имеются следующие реквизиты:
Во-первых, наименование товарной продукции. Реквизит представлен в виде символьной строки длиной в 40 символов.
Во-вторых, количество продукции. Реквизит представлен в виде числа, не имеющего дробной части.
В-третьих, цена продукции. Реквизит представлен в виде числа, имеющего дробную часть.
В-четвертых, плановая дата реализации товарной продукции. Информация представлена в виде символьной строки размером в шесть символов. Первые два символа обозначают месяц. Символы с третьего по шестой обозначают год.
Первая строка содержит наименование реквизитов. Начиная со второй строки, располагаются значения реквизитов. Количество заполненных строк таблицы не фиксируется
Требуется, создать в текстовом редакторе Excel экранную форму, которая обеспечит определение наименования самой дорогой, не реализованной, товарной продукции.
2.3 Распечатка программного кода
'Раздел общих описаний
' 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
2.4 Распечатка результатов выполнения
Наименование |
Количество |
Цена |
Плановая дата реализации |
медведь |
5 |
210р. |
21.12.2012 |
черепаха |
16 |
150р. |
13.12.2012 |
заяц |
3 |
83р. |
07.12.2012 |
снеговик |
10 |
35р. |
01.12.2012 |
снегурочка |
9 |
200р. |
18.12.2012 |
кит |
13 |
230р. |
29.12.2012 |
Нажимаем на кнопку: Отобразить самый дорогой товар
Результат: кит
3. Постановка задачи на обработку информации с использованием экранной формы
3.1 Описание условия задачи
Требуется создать в текстовом редакторе Word экранную форму, которая обеспечит подсчет суммы цифровых символов, находящихся во введенной строке.
3.2 Распечатка программного кода
Private Sub CmdProcess_Click()
Dim St As String
Dim Sum As Integer
St = TextSt.Text
Sum = 0
For I = 1 To Len(St)
If Mid(St, I, 1) >= "0" And Mid(St, I, 1) <= "9" Then
Sum = Sum + Val(Mid(St, I, 1))
End If
Next I
LbRez.Caption = LbRez.Caption + Str(Sum)
End Sub
Private Sub CmdExit_Click()
Unload Me
End Sub
3.3 Распечатка результатов выполнения
Вводимый текст: А=4; Б=7; В=3
Результат: 14
4. Литература и Internet-ресурсы
1. http://wintech.net.ru/microsoft-office/office-2007/399-sozdanie-formy-v-word-2007.html
2.http://copy.yandex.net/?text=%D0%98%D1%81%D0%BF%D0%BE%D0%BB%D1%8C%D0%B7%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5%20%D1%8D%D0%BA%D1%80%D0%B0%D0%BD%D0%BD%D0%BE%D0%B9%20%D1%84%D0%BE%D1%80%D0%BC%D1%8B%20%D0%B2%20Excel&url=http%3A%2F%2Fwww.fem-sut.spb.ru%2Fdownloads%2Fdoc_download%2F13---excel&fmode=envelope&lr=213&mime=doc&l10n=ru&sign=aa063df4931ce7e7312af4dea47391a2&keyno=0