Составить программу циклической перестановки букв в словах - VB

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

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

Пожалуйста, помогите решить задачу в visual basic. вот задача: Составить программу циклической перестановки букв в словах текста так, что i-я буква слова становится i+1-ой, а последняя - первой. я без понятия как ее делать =(

Решение задачи: «Составить программу циклической перестановки букв в словах»

textual
Листинг программы
  1. Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Dst As Any, Src As Any, ByVal Length As Long)
  2. Const L2& = 2
  3.  
  4. Sub RRS(s$)
  5.     'RotateRightString - последний символ на место первого
  6. Dim i%, ptrS&, lenS&
  7. ptrS = StrPtr(s)                          'адрес первого символа строки
  8. lenS = LenB(s) - L2                       'длина копируемого блока в байтах
  9. CopyMem i, ByVal ptrS + lenS, L2          'сохраняем последний символ в переменной i
  10. CopyMem ByVal ptrS + L2, ByVal ptrS, lenS 'копируем блок
  11. CopyMem ByVal ptrS, i, L2                 'вставляем сохраненный символ на место первого
  12. End Sub
  13.  
  14. Sub RLS(s$)
  15.     'RotateLeftString - первый символ на место последнего
  16. Dim i%, ptrS&, lenS&
  17. ptrS = StrPtr(s)                          'адрес первого символа строки
  18. lenS = LenB(s) - L2                       'длина копируемого блока в байтах
  19. CopyMem i, ByVal ptrS, L2                 'сохраняем первый символ в переменной i
  20. CopyMem ByVal ptrS, ByVal ptrS + L2, lenS 'копируем блок
  21. CopyMem ByVal ptrS + lenS, i, L2          'вставляем сохраненный символ на место последнего
  22. End Sub
  23.  
  24. '-------------------------------------------------------
  25.  
  26. Sub test()
  27. Dim s$, i&
  28.  
  29. s = "0123456789"
  30. For i = 1 To Len(s) 'полный оборот
  31.    RRS s
  32. '    RLS s
  33.    Debug.Print s
  34. Next
  35. End Sub

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


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

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

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

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы