реферат
Главная

Рефераты по сексологии

Рефераты по информатике программированию

Рефераты по биологии

Рефераты по экономике

Рефераты по москвоведению

Рефераты по экологии

Краткое содержание произведений

Рефераты по физкультуре и спорту

Топики по английскому языку

Рефераты по математике

Рефераты по музыке

Остальные рефераты

Рефераты по авиации и космонавтике

Рефераты по административному праву

Рефераты по безопасности жизнедеятельности

Рефераты по арбитражному процессу

Рефераты по архитектуре

Рефераты по астрономии

Рефераты по банковскому делу

Рефераты по биржевому делу

Рефераты по ботанике и сельскому хозяйству

Рефераты по бухгалтерскому учету и аудиту

Рефераты по валютным отношениям

Рефераты по ветеринарии

Рефераты для военной кафедры

Рефераты по географии

Рефераты по геодезии

Рефераты по геологии

Рефераты по геополитике

Рефераты по государству и праву

Рефераты по гражданскому праву и процессу

Рефераты по делопроизводству

Рефераты по кредитованию

Рефераты по естествознанию

Рефераты по истории техники

Рефераты по журналистике

Рефераты по зоологии

Рефераты по инвестициям

Рефераты по информатике

Исторические личности

Рефераты по кибернетике

Рефераты по коммуникации и связи

Научная работа: Создание программного продукта на языке программирования Visual Basic for Applications

Научная работа: Создание программного продукта на языке программирования Visual Basic for Applications

РЕФЕРАТ

Пояснительная записка: 23 с., 2 рис., 4 источника, 5 таблиц

Целью работы является создание программного продукта на языке программирования Visual Basic for Applications согласно заданию, выданному на учебную практику. Данный программный продукт позволяет разместить в Microsoft Word исходный текст, введенный пользователем, на странице, каждая строка которой имеет желаемое пользователем количество символов (причем слова не разрываются на две строки) и в Microsoft Excel найти сумму двух разреженных полиномов, заданных ненулевыми коэффициентами и их номерами. Программный продукт должен обеспечивать удобство и простоту использования, быть функциональным и надежным, эффективным в эксплуатации.

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


ПЕРЕЧЕНЬ ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

1.   Гарнаев А.Ю. Самоучитель VBA 2-е изд., перераб. и доп. - СПб.: БВХ- Петербург 2004, 560с.

2.   Гарнаев А.Ю. «Excel 2002: разработка приложений» - СПб.: БВХ-Петербург 2002, 450с.

3.   С.Браун «VB 6» - СПб.: Москва – Харьков – Минск 2002, 573с.

4.   С.Каммингс «VBA для Чайников» - СПб.: Москва – Санкт-Петербург – Киев 2003, 440с.


ВЫВОДЫ

В процессе работы над заданием по учебной практике была разработана информационная система. В данной системе реализованы следующие возможности:

-           вывод справочной информации по языку программирования Visual Basic for Applications;

-           нахождение в заданной строке слов, которые начинаются и заканчиваются одной и той же буквой; вывод слов на экран в Microsoft Word;

-           с помощью определенных преобразований в исходной матрице изменить элементы четных сток, вывести конечную матрицу на экран в Microsoft Exel.

Впоследствии в ПП возможно увеличить объем теоретического материала по VBA, усовершенствовать интерфейс. Недостатков данной системы разработчиком не обнаружено.


ВВЕДЕНИЕ

Visual Basic for Applications (VBA) – весьма популярная в последние годы среда разработки приложений, которая, являясь мощным программным средством, позволяет реализовать широкий спектр практических задач. Основное её достоинство состоит в оптимальном сочетании простоты использования, доступности и большого набора разнообразных возможностей, позволяющих охватить все основные направления деятельности разработчика прикладных программ.

Возможности VBA совсем не уступают другим системам программирования Windows и постоянно растут. К тому же многие системы программирования в Windows и используют общие библиотеки объектов, среди которых – объекты Word и Excel. К основным возможностям VBA можно отнести реализацию максимально гибкого и удобного интерфейса для приложения, создание самых разнообразных многоуровневых и всплывающих меню, обработку событий мыши и клавиатуры, работу с графикой. Разработчик может использовать в программе как стандартные, так и встроенные диалоги, применяющиеся для организации обратной связи с пользователем. Приложение может осуществлять работу с таймером, обрабатывать файлы и каталоги на жестком диске, а также предоставлять доступ к базам данных. В VBA имеется возможность внедрения в приложение различных объектов, которые поддерживаются другими программами. Помимо этого, разработчик может реализовать связь одного или нескольких компьютеров, на которых установлено созданное приложение, с сетью Internet.

Также язык программирования VBA есть реализация объектно-ориентированного написания программ в системе MS Office, а в частности в процессе практики исследовалось использование VBA для MS Word и MS Excel. Синтаксис языка – издавна проложенные правила языка Basic – один из самых ранних языков программирования. Процесс написания программы на VBA последовательное заполнение параметров различных объектов. Язык VBA, является мощным программным средством, осуществлена возможность обработки файловой информации. Но самым ярким достоинством языка является возможность занесения результатов вычисления и любых данных в Office приложения, в MS Word и Ms Excel.

То есть можно отметить, что в настоящее время большое внимание уделяется программированию на Visual Basic for Applications. Именно поэтому задание, выданное на учебную практику, разрабатывается на данном языке программирования.


1 ПОСТАНОВКА ЗАДАЧИ

1.1  Формулировка задачи

Для MS WORD:

Исходный текст (слова, пробелы, знаки) задан одной строкой. Нахождение в ней слов, которые начинаются и заканчиваются одинаковой буквой.

Для MS EXCEL:

В матрице найти сумму элементов, которые расположены по главной диагонали. Элементы всех чётных строк разделить на эту сумму.

1.2 Исходные данные

Для WORD:

S1 : строка ; { строка, введенная пользователем }

Для EXCEL:

a : двумерный массив [5,5 ] вещ ; { массив коэффициентов первого полинома }

1.3     Ограничения на исходные данные

Для EXCEL:

0 < = i < 5

0 < = j < 5

1.4     Промежуточные данные

Для WORD:

S3: строка ; {содержит слово, нужное по условию}

k : цел ; { счетчик, определяющий количество символов в каждом слове }

start : цел ; { счетчик перебора символов в строке }

i : цел ; { счетчик, показывающий начиная с какого символа будет

 осуществляться чтение слова }

Для EXCEL:

B: массив [10] вещественных чисел; {содержит элементы главной диагонали}

1.5     Результаты

Для WORD:

S3 : строка ; { содержит искомые слова}

Для EXCEL:

a : массив [5,5 ] вещ ; { конечная матрица чисел}


2 ОПИСАНИЕ ЯЗЫКА VBA И СИСТЕМЫ ПРОГРАММИРОВАНИЯ В OFFICE

Операционная система Windows корпорации Microsoft обладает изумительно удобным интерфейсом и множеством интеллектуальных средств, которые освобождают пользователя от рутинной работы, присущей другим операционным системам. Естественным и незаменимым дополнением этой операционной системы являются программные продукты Microsoft Office, которые даже начинающему пользователю позволяют с легкостью создавать идеальную по своему оформлению документацию, производить финансовые, инженерные и прочие расчеты, создавать и работать с базами данных, конструировать презентации и слайды. Вместе, операционная система Windows и программные продукты Microsoft Office, покорили весь мир. Корпорация Microsoft интегрировала в свои офисные продукты, в саму операционную среду изумительный по простоте и необычайный по своей эффективности язык программирования Visual Basic for Applications или сокращенно VBA. С помощью этого языка теперь каждый пользователь может автоматизировать работу приложения и максимально приспособить его работу для решения текущих задач, не только добавив интерфейсу новую функциональность, но и удалив из него ненужные для данного приложения элементы, тем самым обеспечив ему дополнительную стабильность.

Возможности VBA совсем не уступают другим системам программирования Windows и постоянно растут. К тому же многие системы программирования в Windows и VBA используют общие библиотеки объектов, среди которых объекты Excel, Word и т.д.


2.1       Типы данных

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

-        Byte (байтовый);

-        Boolean (логический);

-        Integer (целый);

-        Long (длинный целый);

-        Single (с плавающей точкой обычной точности);

-        Double (с плавающей точкой двойной точности);

-        Currency (денежный);

-        Decimal (масштабируемый целый);

-        Date (даты и время);

-        Object (объектный);

-        String (строковый);

-        Variant (произвольный);

-        тип данных, определяемый пользователем;

-        специфические типы объектов.

Для хранения целочисленных данных предназначены типы Integer (диапазон значений от –32768 до 32767, в оперативной памяти занимает два байта) и Long (диапазон значений от –2147483648 до 21447483648 и в оперативной памяти занимает четыре байта). Аналогично, для хранения десятичных чисел с плавающей точкой представлены типы данных Single (диапазон от –3,4Е38 до –1,4Е-45 для отрицательных чисел и от 1,4Е-45 до 3,4Е38 для положительных чисел, в оперативной памяти занимает четыре байта) и Double (диапазон от –1,7Е-308 до –4,9Е-324 для отрицательных чисел и от 4,9Е-324 до 1,7Е308 для положительных чисел, в оперативной памяти занимает 8 байтов). Для хранения чисел с фиксированной точкой служит тип Currency. Переменная данного типа занимает в оперативной памяти 8 байт. Целая часть числа может содержать до 15 цифр, а дробная – до 4.

Используя переменные строкового типа, можно хранить строки как фиксированной, так и переменной длины. Для переменной, имеющей тип строки с фиксированной длинной, указывается максимальная длина строки. Если длина строки, присваиваемая этой переменной, меньше заданной длины строки, то оставшиеся свободные места заполняются пробелами. При присвоении переменной строки, количество символов которой превышает максимальное значение, все лишние символы отбрасываются. Количество символов, хранящихся в строке с переменной длиной, определяется длинной присваиваемых ей данных. При использовании ASCCII кодировки для каждого символа строки выделяется один байт, а при использовании кодировки Unicode – два байта. Кроме этого выделяется 10 байт для строки в целом.

Для хранения двоичных данных рекомендуется использовать массив переменных типа Byte. Каждый элемент массива данного типа занимает один байт оперативной памяти.

Логический тип данных Boolean используется для хранения данных, принимающих одно из двух значений: True или False. По умолчанию переменной данного типа присваивается значение False. В оперативной памяти она занимает два байта.

Тип данных Date используется для хранения даты и времени. Переменная этого типа требует 8 байт в оперативной памяти.

Тип данных Variant является универсальным. Переменная этого типа может хранить любой из выше перечисленных типов данных. Все необходимые преобразования выполняются при присвоении переменной значения. Выделяемый переменной объем оперативной памяти зависит от типа присвоенного значения, но не может быть менее 16 байт.

Для хранения ссылок на объекты используется тип данных Object. Каждая переменная данного типа требует 4 байта.

При разработке программ в среде VBA в зависимости от типа данных переменных рекомендуется использовать префиксы, приведенные в таблице 2.1

Таблица 2.1 – Префиксы, используемые в наименованиях переменных


Тип данных

Префикс Пример
Boolean bin binSuc
Byte byt bytImege
Currency cur curPrn
Date dtm dtmFinish
Double dbl dblSum
Integer int intKol
Long Ing IngLoop
Single sng sngTotal
String str strLast
Variant vnt vntValui

2.2       Описание переменных

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

Область видимости переменной определяет часть кода, которая «знает» о существовании данной переменной. При определении переменной в процедуре получить или изменить ее значение можно только из кода этой процедуры. Иногда, однако, необходимо использовать переменную с более обширной областью видимости. Например, переменную, значения которой доступны для всех процедур модуля или проекта. Существуют три типа области видимости переменной:

-        переменные уровня процедуры распознаются только в процедуре, в которой они описаны. Они описываются при помощи инструкций Dim или Static. Такие переменные называются локальными;

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

-        переменные уровня модуля, описанные при помощи инструкции Public, являются доступными для всех процедур проекта. Такие переменные называются открытыми.

Закрытая (Private) переменная сохраняет свое значение, только пока выполняется процедура, в которой эта переменная описана. При завершении процедуры значение переменной теряется, и при повторном запуске процедуры его надо заново инициализировать. Переменные, описанные оператором Static, сохраняют свое значение по выходу из процедуры, пока работает программа.

Для обязательного объявления всех переменных в начале модуля, в так называемой области модуля General Declarations, надо поместить директиву Option Explicit. Использование этой директивы не допускает возможности неправильного ввода имени переменной, которая применяется в одной или не - скольких процедурах модуля. Например, если переменная была объявлена как Ставка, а в коде при наборе вместо русской буквы с была использована латинская буква с, то это приведет к ошибке. В отсутствие директивы Option Explicit подобную ошибку было бы трудно отследить.

2.3       Описание массивов

Как и в других языках программирования, в VBA можно использовать массивы. Массив, как и любую переменную, надо объявлять, используя операторы Dim, Static, Private и Public, которые также задают область видимости переменной. В массиве допускается описание до 60 размерностей. При определении размерности надо указывать верхнюю, а также нижнюю границу. Если нижний индекс не задан явно, нижняя граница массива определяется директивой Option Base. Если отсутствует директива Option Base, нижняя граница массива равняется нулю. Например, в следующем операторе объявляется одномерный массив (вектор) из 12 целых чисел, причем по умолчанию первый элемент массива – А (0), а последний – А (11). В этом случае говоря, что 0 – базовый индекс.

Dim А (11) As Integer

Данный же оператор объявляет двухмерный массив 3´3 (матрицу), состоящий из действительных чисел.

Dim B (2, 2) As Single

Можно изменить базовый индекс, написав в области объявлений модуля директиву Option Base 1. После этого индексы массивов А и В будут начинаться с единицы. Например, в следующем операторе объявляется вектор, состоящий из 11 элементов.

Option Base 1

Dim A (11) As Integer

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

Dim B (1 To 3, 1 To 3) As Single

Dim A (1 To 12) As Integer

Инициализацию элементов массива можно производить по-разному:

-        последовательностью операторов:

Dim B (1, 1) As Single

B (0, 0) = 2 : B (0, 1) = 4

B (1, 0) = 1 : B (1, 1) = 6

-        оператором цикла:

Dim M (1 To 9, 1 To 9) As Integer

Dim i As Integer

Dim j As Integer

For i = 1 To 9

For j = 1 To 9

M (i, j) = i * j

Next

Next

Иногда в процессе выполнения программы требуется изменять размер массива. В этом случае первоначально массив объявляют как динамический. Для этого при объявлении массива не надо указывать размерность, например:

Dim R () As Single

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

Dim R () As Double

ReDim R (1 To 10)

2.4       Операторы языка и управляющие конструкции

Математические операторы позволяют выполнять в программе действия над числами. В таблице 2.2 приведены арифметические операторы и выполняемые ими функции.

Таблица 2.1 – Префиксы, используемые в наименованиях переменных

Операция Знак Запись  Типы данных  Действие
Сложение + a + b Byte, Short, Integer, Long, Single, Double, Decimal Складывает два числа
Вычитание - a - b Byte, Short, Integer, Long, Single, Double, Decimal

Вычитает из одного

числа другое

Деление / a/b Byte, Short, Integer, Long, Single, Double, Decimal

Делит два числа и

возвращает результат

с плавающей точкой

Деление

 нацело

\ a\b Byte, Short, Integer, Long, Single, Double, Decimal

Делит два числа и

возвращает целый результат (остаток отбрасывается)

Остаток Mod a Mod b Byte, Short, Integer, Long, Single, Double, Decimal

Вычисляется остаток

от деления одного числа на другое

Умножение * а * b Byte, Short, Integer, Long, Single, Double, Decimal Умножает два числа

Возведение

в степень

^ a ^ b Byte, Short, Integer, Long, Single, Double, Decimal Возводит число в степень

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

-        возведение в степень;

-        умножение и деление;

-        деление нацело;

-        взятие остатка от деления;

-        сложение и вычитание.

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

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

- If

- Select..Case

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

В свою очередь, управляющие операторы if бывают двух видов:

- If...Then

- If...Then...Else

Конструкция If...Then применяется, когда необходимо выполнить определенные действия в зависимости от некоторого условия. Управляющая конструкция If...Then...Else используется в том случае, когда необходимо выполнить разные действия в зависимости от условия. Конструкция If.. .Then.. .Else аналогична конструкции If...Then, но позволяет задать действия, исполняемые как при выполнении условий, так и в случае их невыполнения.

Основанием для принятия решений в управляющих конструкциях являются условные выражения, поэтому предварительно необходимо сказать несколько слов об этих выражениях и работе с ними.

Условные выражения – это такие выражения, которые возвращают одно из двух значений: Истина или Ложь. В условных выражениях используют операторы сравнения, приведенные в таблице 2.3.

Таблица 2.3 – Операторы сравнения для условных выражений

Операция Знак
Меньше
Меньше или равно <=
Больше
Операция Знак
Больше или равно >=
Равно =
Не равно <> 

Над условными выражениями можно выполнять действия логической математики (логические операции). К логическим побитовым операциям относятся операции And, Or, And Also, Or Else, Xor, Not.Операция Not имеет один операнд, остальные по два операнда.

Ключевые слова IF и End If имеют тот же смысл, что и в конструкции If...Then. Если заданное в конструкции условие не выполняется (результат проверки равен False), и конструкция содержит ключевое слово Else, Visual Basic выполнит последовательность конструкций, расположенных следом за Else. После чего управление перейдет к конструкции, следующей после End If.

2.5       Стандартные функции работы с файлами, строками, диалоговыми окнами

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

Таблица 2.4 – Функции и операторы для работы с файлами

Функция, оператор  Назначение
Open Открывает файл
Close Закрывает все файлы
Close # Закрывает файл по идентификатору
Reset Закрывает все открытые файлы, записывает содержимое буферов.
Print tt Записывает данные в файл
FileCopy Копирует файл
EOF Определяет метку конца файла
FileAttr Возвращает режим доступа открытого файла
FileDateTime Возвращает дату и время создания файла
FileLen Возвращает размер файла в байтах
FreeFile Возвращает номер свободного идентификатора
GetAttr Получает атрибуты файла
SetAttr Устанавливает атрибуты файла
Loc Возвращает номер текущей позиции в файле
LOF Возвращает размер открытого файла в байтах
Seek Устанавливает на заданную номером позицию или запись в файле
Dir Возвращает содержимое текущей папки
Kill Удаляет файл
Lock Блокирует файл при работе в многопользовательской среде
Unlock Снимает блокировку файла в многопользовательской среде
Name Задает имя файла
Get # Читает данные из файла
Input Читает данные из файла
Input # Читает данные из файла
Line Input # Читает строку из файла
Put # Записывает данные в файл
Write # Записывает данные в файл

В таблице 2.5 представлены функции обработки строковых выражений, которые позволяют произвести широкий спектр операций: от нахождения длины строки, до замены в строке подстрок.

Таблица 2.5 – Функции для работы со строками

Функция Назначение
Asc Возвращает ASCII- код символа
Chr Преобразовывает ASCII-код в символ
InStr, InStrRev Осуществляет поиск одной строки в другой
Lcase Изменяет регистр букв исходной строки на нижний
Left Возвращает указанное количество символов с начала строки
Len Возвращает количество символов в строке
Ltrim, RTrim, Trim Удаляют пробелы, расположенные соответственно в начале, в конце и с обеих сторон символьной строки
Функция Назначение
Mid Возвращает заданное количество символов из произвольного места строки
Right Возвращает указанное количество символов с конца строки
Str, CStr Преобразовывают числовое выражение в строку
StrReverse Изменяет порядок следования символов в строке на обратный
StrConv Изменяет регистр букв символьной строки
Продолжение таблицы 2.5
Val Преобразовывают строку в числовое выражение
UCase Изменяет регистр букв исходной строки на нижний

В проектах VBA часто встречаются две разновидности диалоговых окон: окна сообщений и окна ввода. Они встроены в VBA, и если их возможностей достаточно, то можно обойтись без проектирования диалоговых окон. Окно сообщений выводит простейшие сообщения для пользователя, а окно ввода обеспечивает ввод информации.

Функция InputBox выводит на экран диалоговое окно, содержащее сообщение, поле ввода, и две кнопки OK и Cancel. Она устанавливает режим ожидания ввода текста пользователем и нажатия кнопки, а затем, при нажатии на кнопку OK, возвращает значение типа String, содержащее текст, введенный в поле ввода. При нажатии кнопки Cancel возвращается пустая строка.

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


3 АЛГОРИТМ РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ В MS WORD


           S1


Для i=1 до len(s1)-1

                                                               

            Если mid(s1, i,1)=” ”

                      Если mid(s2,1,1)=mid(s2,len(s2),1)       

                                 S3=s3+s2+” ”


                       s2 = ""

                Иначе


                                      s2 = s2 + Mid(s1, i, 1)

                                 


                                                               

          

            s3

 



4 АЛГОРИТМ РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ В MS EXCEL

Для i=1 до 5

          Для j= 1 до 5

      

                a(i,j)

sum = 0

Для i=1 до 5

        b[i]=a[i,i]

        sum=sum+b[i]

                                                  

                          

Для i=1 до 5

Для j=1 до 5

 
            

i=i+2

a[i,j]=a[i,j]/sum

 
         

       

     

                                                               

Для  i=1 до 5

        Для j=1 до 5

                         a(i,j)


5 ТЕСТОВЫЕ ПРИМЕРЫ

MS WORD

№1

Дед Мороз - красный нос, ты подарки нам принёс?

Дед

№2

Трактат о несчастной любви.

Трактат

MS EXCEL

№1

1 2 3 4 5
6 7 8 9 10
7 9 11 13 15
2 4 4 6 7
3 6 4 0 8

Результат

1 2 3 4 5
0,18 0,21 0,24 0,27 0,3
7 9 11 13 15
0,06 0,121 0,121 0,18 0,21
3 6 4 0 8

Приложение А

ЭКРАННЫЕ ФОРМЫ

Рисунок А.1 – Работа программы в MS Word

Рисунок А.2 – Пример работы программы в MS Word


Приложение Б

ЛИСТИНГ ПРОГРАММЫ В MS EXCEL

Sub Laba1()

Dim m, i, j, k As Integer

Dim sum As Double

Dim a(5, 5), b(10) As Long

For i = 1 To 5

For j = 1 To 5

a(i, j) = Cells(i, j)

Next j

Next i

sum = 0

For i = 1 To 5

k = i

j = i

b(k) = a(i, j)

sum = sum + b(k)

Next i

For i = 2 To 5 Step 2

For j = 1 To 5

a(i, j) = a(i, j) / sum

Next j

Next i

Cells(7, 1) = "Конечная"

Cells(7, 2) = "матрица:"

For i = 1 To 5

For j = 1 To 5

Cells(i + 8, j) = a(i, j)

Next j

Next i

End Sub


Приложение В

ЛИСТИНГ ПРОГРАММЫ В MS WORD

Sub Laba2()

Dim s1, s2, s3 As String

Dim i, j As Integer

Selection.WholeStory

s1 = Selection.Text

For i = 1 To Len(s1) - 1

If Mid(s1, i, 1) = " " Then

If Mid(s2, 1, 1) = Mid(s2, Len(s2), 1) Then

s3 = s3 + s2 + " "

End If

s2 = ""

Else

s2 = s2 + Mid(s1, i, 1)

End If

Next i

Selection.Text = s1 + s3

End Sub





© 2010 Интернет База Рефератов