Строковые переменные - 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

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


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

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

7   голосов , оценка 4.429 из 5
Похожие ответы