Поменять местами первый и последний символы строки, а так же третий и десятый символы - VB

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

Завтра экзамен по информатике, для допуска нужно сдать последнюю задачу, помогите пожалуйста ее решить "Дана строка длиной N символов. Поменять местами первый и последний символы строки, а так же третий и десятый символы. Выдать на экран исходную и измененную строки." Microsoft Visual Basic.

Решение задачи: «Поменять местами первый и последний символы строки, а так же третий и десятый символы»

textual
                            Листинг программы 
                        

                            st = "Г„Г*Г*Г* Г±ГІГ°Г®ГЄГ* Г¤Г«ГЁГ*Г®Г© N Г±ГЁГ¬ГўГ®Г«Г®Гў."
n = Len(st)
t = Mid(st, 1, 1)
Mid(st, 1, 1) = Mid(st, n, 1)
Mid(st, n, 1) = t
 
If n > 9 Then
    t = Mid(st, 3, 1)
    Mid(st, 3, 1) = Mid(st, 10, 1)
    Mid(st, 10, 1) = t
Else
    MsgBox "Г‘ГІГ°Г®ГЄГ* Г¬ГҐГ*ГјГёГҐ 10 Г±ГЁГ¬ГўГ®Г«Г®Гў"
End If
MsgBox = st
                        

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

9 голосов , оценка 3.778 из 5

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