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

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

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

                    Листинг программы
                
 
                        
                          
                    
Sub lab()
Dim slovo$, i&, j&, L%
L = Len(slovo)
slovo = Val(InputBox("Vvedite slovo"))
Cells(i, 1) = slovo
For i = 1 To L
If i Mod 2 = 0 Then
Cells(i + 1, 2) = slovo(i)
i = i + 1
Next
End Sub

Решение задачи: «Ввести слово и образовать новое слово, заменив в нем 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы