Строковые переменные - VB
Формулировка задачи:
Добрый день! Помогите решить задачу, очень прошу.
Дан текст, содержащей от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами – не менее одного пробела. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: 1) перенести первую букву в конец слова; 2) перенести последнюю букву в начало слова.
Заранее большое спасибо!
Решение задачи: «Строковые переменные»
textual
Листинг программы
Sub Replace_Symbols() Dim sStr, sStr1, i As Integer sStr = InputBox("Ââîä ñòðîêè:") Do While InStr(sStr, " ") sStr = Replace(sStr, " ", " ") Loop sStr = Split(sStr, " ") sStr1 = sStr iSize = UBound(sStr) For i = 0 To iSize If sStr(i) <> sStr(iSize) Then sStr(i) = Mid(Replace(sStr(i), Left(sStr(i), 1), Right(sStr(i), 1), 1, 1, vbTextCompare), 1, Len(sStr(i)) - 1) sStr(i) = sStr(i) & Left(sStr1(i), 1) End If sMsg = sMsg & " " & sStr(i) Next MsgBox sMsg End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д