Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по указанному правилу - VB

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

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

Дан текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: перенести первую букву в конец слова. visual basic
еще перенести последнюю букву в начало слова

Решение задачи: «Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по указанному правилу»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Load()
    Dim Text As String, Word As String, Words() As String, Letter As String
    Dim O As Long, C As Long, Idx As Long
    Me.AutoRedraw = True
    Text = "      Quantum superposition      refers to the quantum mechanical property" & _
    "of a particle to occupy all of its possible quantum states simultaneously refers             "
    O = 0
    Do
        C = InStr(O + 1, Text, Chr$(32))
        If C = 0 Then C = Len(Text) + 1
        If C > O + 1 Then
            Word = Mid$(Text, O + 1, C - O - 1)
            If Not Not Words() Then Idx = UBound(Words) + 1 Else Idx = 0
            ReDim Preserve Words(Idx)
            Words(Idx) = Word
        End If
        O = C
    Loop While C < Len(Text)
    For Idx = 0 To UBound(Words)
        If Words(Idx) <> Words(UBound(Words)) Then
            Letter = Left(Words(Idx), 1)
            Mid(Words(Idx), 1, 1) = Right(Words(Idx), 1)
            Mid(Words(Idx), Len(Words(Idx))) = Letter
            Me.Print Words(Idx)
        End If
    Next
End Sub

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


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

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

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