Как зашифровать строку, выполнив циклическую замену каждой буквы на следующую за ней в алфавите - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
