Как зашифровать строку, выполнив циклическую замену каждой буквы на следующую за ней в алфавите - VB
Формулировка задачи:
Помогите пожалуйста решить задачу, очень нужно на завтра.
String62. Дана строка-предложение на русском языке. Зашифровать ее, выпол-
нив циклическую замену каждой буквы на следующую за ней в алфавите
и сохранив при этом регистр букв («А» перейдет в «Б», «а» — в «б», «Б»
— в «В», «я» — в «а» и т. д.). Букву «ё» в алфавите не учитывать («е»
должна переходить в «ж»). Знаки препинания и пробелы не изменять.
Решение задачи: «Как зашифровать строку, выполнив циклическую замену каждой буквы на следующую за ней в алфавите»
textual
Листинг программы
Option Explicit
'''Option Compare Text'''
Private Sub Form_Load()
Dim i As Long, s As String
s = InputBox("Введите строку")
For i = 1 To Len(s)
Select Case Mid$(s, i, 1)
Case "А"to"Ю","а" To "ю": Mid$(s, i, 1) = Chr$(Asc(Mid$(s, i, 1)) + 1)
Case "я": Mid$(s, i, 1) = "а"
Case "Я": Mid$(s, i, 1) = "А"
End Select
Next
MsgBox s
End Sub