Поменять местами буквы слова - VB

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

В общем мне дали задание на паре, при помощи VB сделать программу для того чтоб текст менялся. Чтоб пишешь в окошечке например :Привет. он должен мне выводить такое:Рпвите. т.е. В слове должны меняться буквы друг с другом...1 буква меняется со 2, 3 с 4, 5 с 6 и т.д. все перепробовал не получается, последняя лаба и у меня будет допуск, помогите пожалуйста, заранее спасибо.желательно в ближайшее время.

Решение задачи: «Поменять местами буквы слова»

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

                            Module Module1
    Dim str As String
    Dim s() As String
    Dim r As String
    Sub Main()
        str = Console.ReadLine()
        ReDim s(0 To str.Length - 1)
        For i = 0 To str.Length - 1 Step 1
            s(i) = Mid(str, i + 1, 1)
        Next
        For i = 0 To str.Length - 2 Step 2
            r = s(i)
            s(i) = s(i + 1)
            s(i + 1) = r
        Next
    End Sub
End Module
                        

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

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

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