Вопрос по информатике:
Создайте макрос который будет кодировать текст заменяя буквы "а" в тексте указанной ячейки на произвольный символ и выводить закодированный текст в новой ячейке.
- 15.09.2018 20:55
- Информатика
- remove_red_eye 11627
- thumb_up 8
Ответы и объяснения 1
Исходный текст поместить в ячейку A1, результат будет в А2
Sub Rep()
n1 = Asc(" ")
n = Asc("я") - n1 + 1
Randomize Timer
s = Cells(1, 1).Value
For i = 1 To Len(s)
If Mid(s, i, 1) = "а" Then
Mid(s, i, 1) = Chr(Int(n * Rnd + n1))
End If
Next i
Cells(2, 1).Value = s
End Sub
Тестовое решение:
Наша Маша - растеряша!
Н3шЮ МHш# - рястеряшМ!
- 16.09.2018 08:09
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.