Как из текста удалить все буквы, стоящие на нечетных местах после буквы "а" - VB

Узнай цену своей работы

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

Составить программу для вычеркивания из слов текста всех букв, стоящих на нечетных местах после буквы "а"

Решение задачи: «Как из текста удалить все буквы, стоящие на нечетных местах после буквы "а"»

textual
Листинг программы
Function Task(Stri as string) As String
   Task=Left$(Stri,2)
   for i%=3 to Len(Stri) Step 2
       if mid$(Stri$,(i%-1),1)="a" then Task=Task & mid$(Stri,i%,1)
   next i%
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 4 из 5
Похожие ответы