Написать программу на Visual BasicВ каждом слове текста замените "а" на букву "е", если "а" стоит начетном месте, и заме

Согласен с Бендер Родригес.
Задача плевая, но стимула нет...

Лень что-то возится. Разве что 50 руб. на телефон смогут меня уговорить....

Dim a(50) As String
Dim str As String
Private Sub Command1_Click()
Text2.Text = " "
str = Trim(Text1.Text)
str = " " + str + " "
dl = Len(str)
s = ""
i = 1
k = 0
For i = 1 To dl - 1 'прокручиваем все символы в тексте
If Mid(str, i, 1) = " " And Mid(str, i + 1, 1) <> " " Then 'ишем начало слова
k = k + 1
j = 1
s = ""
For j = i + 1 To dl 'крутим символы слова
If Mid(str, j, 1) <> " " Then 'ишем конец слова
s = s + Mid(str, j, 1) 'собираем слово по символам
a(j - i) = Mid(str, j, 1) 'создаем массив с символами слова
If a(j - i) = "a" And (j - i) Mod 2 = 0 Then a(j - i) = "e"
If a(j - i) = "b" And (j - i) Mod 2 <> 0 Then a(j - i) = "ak"
If a(j - i) = "A" And (j - i) Mod 2 = 0 Then a(j - i) = "E"
If a(j - i) = "B" And (j - i) Mod 2 <> 0 Then a(j - i) = "AK"
If a(j - i) = "а" And (j - i) Mod 2 = 0 Then a(j - i) = "е"
If a(j - i) = "А" And (j - i) Mod 2 = 0 Then a(j - i) = "Е"
If a(j - i) = "б" And (j - i) Mod 2 <> 0 Then a(j - i) = "ак"
If a(j - i) = "Б" And (j - i) Mod 2 <> 0 Then a(j - i) = "АК"
Else 'если нашли
j = dl + 1

End If
Next j
g = 1
For g = 1 To Len(s) 'собираем измененное слово и выводим его
Text2.Text = Text2.Text + a(g)
Next g
Text2.Text = Text2.Text + " "
End If
Next i
Text2.Text = Trim(Text2.Text)
End Sub

Надеюсь сам формы поставишь. Удачи)