ПРИМЕР ВЫПОЛНЕНИЯ КОНТРОЛЬНОЙ РАБОТЫ

Задание 3.

Создать макрос с помощью макрорекордера в MicroSoft Word, который бы выбирал бы из текста лишние знаки пробела и знаки мягкого переноса.

Sub Пример()

'

' Пример Макрос

' Макрос записан 03.01.2007 Андрей

'

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace: = wdReplaceAll

Selection.Find.Execute Replace: = wdReplaceAll

Selection.Find.Execute Replace: = wdReplaceAll

Selection.Find.Execute Replace: = wdReplaceAll

Selection.Find.Execute Replace: = wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

ActiveWindow.ActivePane.VerticalPercentScrolled = 88

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

ActiveWindow.ActivePane.VerticalPercentScrolled = 88

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^-"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace: = wdReplaceAll

End Sub

Задание 5.

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

Математическая модель.

Для решения задачи необходимо на лист Excel вести все значения ряда xi на текущий момент.

Исследовать каждое значение ряда на соответствие условию – значение ряда < 0 или значения ряда >= 0 – и в зависимости от условия прибавить значение к сумме отрицательных Sum1 или положительных чисел Sum.