4. Добавляем модуль и вводим код:
Sub SortMas(a() As Single, n As Integer, f As Byte)
Dim i As Integer, j As Integer
If f = 1 Then
For i = 1 To n - 1
For j = i + 1 To n
If a(i) < a(j) Then
a(i) = a(i) + a(j)
a(j) = a(i) - a(j)
a(i) = a(i) - a(j)
End If
Next j
Next i
Else
For i = 1 To n - 1
For j = i + 1 To n
If a(i) > a(j) Then
a(i) = a(i) + a(j)
a(j) = a(i) - a(j)
a(i) = a(i) - a(j)
End If
Next j
Next i
End If
End Sub
Запускаем приложение.
Отчет по лабораторной работе должен содержать краткие теоретические сведения, диалоговые окна созданных приложений и тексты программ.
Лабораторная работа № 10
Создание шаблона Word со встроенным меню
В современном делопроизводстве наблюдается тенденция к стандартизации документов. Большую часть документооборота составляют формы, то есть типовые документы, в которых меняются только некоторые поля, а основная часть остается неизменной. Для наших целей необходимы печатные формы (называемые также электронными формами), которые заполняются и используются с помощью текстового процессора и, в конечном счете, подразумевают создание твердой копии формы т.е., ее печать.
Для подготовки с помощью компьютера печатных форм используются три основных способа.
-
Можно использовать обычный документ, который представляет собой уже заполненную форму, в качестве образца для новой формы. Соответствующие части образца заменяются новой информацией, и получается новый экземпляр, который и печатается.
-
Можно заранее отпечатать типографским способом бланки формы, а затем заполнять их от руки или впечатывать информацию в заготовленные пустые места бланка.
-
Можно подготовить особый документ, который позволяет только вводить информацию определенным образом и является защищенным от других изменений.
Первый способ не требует никаких специальных средств, но неудобен и чреват ошибками. Второй способ был характерен для ручного делопроизводства. Третий способ, который основан на использовании документов особого типа будет рассматриваться в дальнейшем.
Для создания полноценного приложения необходимо в уже разработанный шаблон добавить возможность отображения пользовательского меню вместо основного меню приложения Word. Команды этого нового меню будут реализовывать всю необходимую функциональность приложения.
Содержание работы
Задание №1. Создание электронной формы и шаблона договора.
-
Создать в приложении Word образец договора с авторами.
-
Преобразовать образец договора в электронную форму.
-
Сохранить форму как шаблон ContractWithAuthor.dot
Основные сведения Поля формы
Допустим, что у нас есть образец незаполненного типового договора, который мы хотим превратить в интерактивную форму.
В этом документе поля, подлежащие заполнению, отмечены подчеркиванием. Чтобы создать печатную форму, следует вместо них вставить в документ специальные объекты, называемые полями формы. Работа с полями формы производится с помощью панели инструментов Формы.
Для преобразования образца договора в электронную форму следует сначала создать его в приложении Word, а потом расставить в открытом документе в необходимых местах поля формы.
Рис. 10.1. Диалоговое окно Формы