Ввести слово и образовать новое слово, заменив в нем 3-ю букву от конца на букву «ю» - VB

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

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

Есть задание - нужно ввести слово и образовать новое слово, заменив в нем 3-ю букву от конца на букву «ю». Есть примерный код схожего задания с иным условием, но и в нем выбивает ошибку. Заранее благодарен за помощь!

Решение задачи: «Ввести слово и образовать новое слово, заменив в нем 3-ю букву от конца на букву «ю»»

textual
Листинг программы
Sub lab()
    Dim slovo As String
    slovo = InputBox("Vvedite slovo", "", "абрададабра")
    Cells(1, 1) = slovo
    If Len(slovo) - 2 > 0 Then Mid$(slovo, Len(slovo) - 2) = "ю" Else MsgBox "Word too short"
    Cells(2, 1) = slovo
End Sub

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


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

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

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