Составить программу циклической перестановки букв в словах - VB
Формулировка задачи:
Пожалуйста, помогите решить задачу в visual basic. вот задача: Составить программу циклической перестановки букв в словах
текста так, что i-я буква слова становится i+1-ой, а последняя - первой.
я без понятия как ее делать =(
Решение задачи: «Составить программу циклической перестановки букв в словах»
textual
Листинг программы
- Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Dst As Any, Src As Any, ByVal Length As Long)
- Const L2& = 2
- Sub RRS(s$)
- 'RotateRightString - последний символ на место первого
- Dim i%, ptrS&, lenS&
- ptrS = StrPtr(s) 'адрес первого символа строки
- lenS = LenB(s) - L2 'длина копируемого блока в байтах
- CopyMem i, ByVal ptrS + lenS, L2 'сохраняем последний символ в переменной i
- CopyMem ByVal ptrS + L2, ByVal ptrS, lenS 'копируем блок
- CopyMem ByVal ptrS, i, L2 'вставляем сохраненный символ на место первого
- End Sub
- Sub RLS(s$)
- 'RotateLeftString - первый символ на место последнего
- Dim i%, ptrS&, lenS&
- ptrS = StrPtr(s) 'адрес первого символа строки
- lenS = LenB(s) - L2 'длина копируемого блока в байтах
- CopyMem i, ByVal ptrS, L2 'сохраняем первый символ в переменной i
- CopyMem ByVal ptrS, ByVal ptrS + L2, lenS 'копируем блок
- CopyMem ByVal ptrS + lenS, i, L2 'вставляем сохраненный символ на место последнего
- End Sub
- '-------------------------------------------------------
- Sub test()
- Dim s$, i&
- s = "0123456789"
- For i = 1 To Len(s) 'полный оборот
- RRS s
- ' RLS s
- Debug.Print s
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д