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