Как из текста удалить все буквы, стоящие на нечетных местах после буквы "а" - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д