Лабораторная работа: Отчет по циклу лабораторных работ

End Select

Result = Result + Sim

Next Sim1

Selection.LanguageID = wdRussian

Selection.TypeText Result

End Sub

На рисунке представлена дешифровка

2. Проверили работу макросов.

Эффективность применения экономических информационных систем для управления экономических объектами зависит от широты охвата и интегрированности на основе функций управления.

эЖЖГЩЕАРЙУМЕЫ ЪБАДГЙГЙАЮ ЭЩУЙУДАХГМЩАЯ АЙЖУБДВНАУЙЙКЯ МАМЕГД ЛСЮ ФЪБВРСГЙАЮ ЭЩУЙУДАХГМЩАЯ УЗЧГЩЕВДА ОВРАМАЕ УЕ ИАБУЕК УЯРВЕВ А АЙЕГЬБАБУРВЙЙУМЕА ЙВ УМЙУРГ ЖФЙЩНАШ ФЪБВРСГЙАЮ.

(Шифрованный текст)

3. Создаем макрос для ЭЦП

Public Sub ЭЦП()

'проверить ЭЦП

Const ALU = "зждиуетбчщалгхнпфыцмршъоэякьюсйв"

Const AL = "ЗЖДИУЕТБЧЩАЛГХНПФЫЦМРШЪОЭЯКЬЮСЙВ"

Dim Sim As String, Sym1 As Variant

Dim Index As Integer

Dim Result As Double

Result = 0

For Each Sym1 In Selection.Characters

Sym = Sym1

Select Case Sym

Case "А" To "Я"

Index = Asc(Sym) - Asc("А") + 1

Case "а" To "я"

Index = Asc(Sym) - Asc("а") + 1

End Select