Зашифровать предложение заменив каждую букву на следующую за ней букву алфавите, сохраняя регистр букв - VB
Формулировка задачи:
зашифровать предложение заменив каждую букву ,на следующую за ней букву алфавите, сохраняя регистр букв
Решение задачи: «Зашифровать предложение заменив каждую букву на следующую за ней букву алфавите, сохраняя регистр букв»
textual
Листинг программы
Option Explicit Option Compare Text Private Sub Command1_Click() Dim s As String s = InputBox("Введите фразу", , "Наша Маша громко плачет. Уронила в речку мячик") Print s s = Encrypt(s) Print s MsgBox s, 64, "" End Sub Function Encrypt(sString As String) As String Dim i As Integer, sTemp As String For i = 1 To Len(sString) Select Case Asc(Mid(sString, i, 1)) Case 255: sTemp = sTemp + "а" '224-a 192-А 255-я 223-Я Case 223: sTemp = sTemp + "А" Case 184: sTemp = sTemp + "ж" Case 168: sTemp = sTemp + "Ж" '184-ё 168-Ё 230-ж 198-Ж Case 229: sTemp = sTemp + "ё" '229-е 197-Е Case 197: sTemp = sTemp + "Ё" Case 224 To 255, 192 To 223: sTemp = sTemp + Chr(Asc(Mid(sString, i, 1)) + 1) Case Else: sTemp = sTemp + Mid(sString, i, 1) End Select Next Encrypt = sTemp End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д