Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по указанному правилу - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д