Преобразовать все прописные латинские буквы в строчные, а цифры заменить символом "?" - VB

Формулировка задачи:

1. Создать проект, который позволяет преобразовать все прописные латинские буквы в строчные, а цифры заменить символом ?. 2. Дана строка, состоящая из русских слов, разделенных одним пробелом. Определить количество слов, которые содержат ровно три буквы «А».

Создать проект, который

Тема не может и не должна так называться

Решение задачи: «Преобразовать все прописные латинские буквы в строчные, а цифры заменить символом "?"»

textual
                            Листинг программы 
                        

                            Sub ТриА()
s = InputBox("Введите текст", "ПРОЕКТ")
a = Split(s)
For i = 0 To UBound(a)
  c = c - ((Len(a(i)) - Len(Replace(a(i), "А", "", , , vbTextCompare))) = 3)
Next
End Sub
                        

Оцени полезность:

7 голосов , оценка 4 из 5

Похожие ответы