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

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

Sim = Mid(ALU, Index, 1)

Case "а" To "я"

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

Sim = Mid(AL, Index, 1)

End Select

Result = Result + Sim

Next Sim1

Selection.LanguageID = wdRussian

Selection.TypeText Result

End Sub

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

- для дешифровки. В итоге получили:

Public Sub М2()

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

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

Dim Sim As String, Sim1 As Variant

Dim Index As Integer

Dim Result As String

Result = ""

For Each Sim1 In Selection.Characters

Sim = Sim1

Select Case Sim

Case "А" To "Я"

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

Sim = Mid(ALU, Index, 1)

Case "а" To "я"

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