Задача 24. Подсчитать количество символов, не являющихся цифрами, в произвольной строке.
Решение поставленной задачи сводится к проверке каждого символа строки. Известна функция Asc(Строка), которая возвращает ASCII-код начальной буквы строки. Если код лежит в интервале [49,57], то это цифра.
Sub количество_цифр()
Dim s As String Dim i As Byte, nd As Byte
s = InputBox(''введите произвольную строку'')
nd = 0
For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) > 57 Оr Asc(Mid(s, i, 1)) < 49 Then
nd = nd + 1
End If
Next
MsgBox (nd)
End Sub
Задача 25. Создать программный код зашифровывающий, а затем расшифровывающий предложение, записанное на русском языке. Использовать шифр простой замены, в котором каждая буква русского алфавита заменяется другой буквой этого же алфавита. При этом замена осуществляется по правилу: первая буква заменяется последней, вторая – предпоследней и т.д. Так, А заменяется на Я, Б – на Ю, В - на Э и т. д.
Решение поставленной задачи сводится к замене букв исходного текста (алфавит по порядку) буквами алфавита записанного в обратном порядке. Исходные данные: Буквы русского алфавита, записанные в алфавитном порядке за исключением буквы Л, буквы русского алфавита, выписанные в обратном порядке. Шифруемое сообщение: «Простая замена один из самых древних шифров». Выходные данные: сообщение после шифровки. Для решения поставленной задачи определяем количество символов преобразуемой строки. Образуем новую строку по длине равную исходной строке. Далее организуем цикл, в котором просматриваем все символы преобразуемой строки, определяем позицию номер kэтого символа в исходном алфавите. Если в исходном алфавите символ не найден, то в данную позицию новой строки заносим этот символ без изменений, в противном случае в данную позицию новой строки заносим символ из нового алфавита, позиция которого совпадает с позицией номер k исходного алфавита.
При решении задачи используем следующие функции:
1. len(Строка)–возвращает число символов строки, например, Len(“мама”)=4.
2. LCase(Строка) – все прописные символы строки преобразует в строчные, например, b=Lcase(“Мир”). b = “мир”.