Расстановка слов в предложении в алфавитном порядке - VB

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

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

Составить программу расстановки слов в предложении в алфавитном порядке. Помогите решить задачу

Решение задачи: «Расстановка слов в предложении в алфавитном порядке»

textual
Листинг программы 
Private Sub Command1_Click()
'в свойствах List1.Sorted = True
Dim st() As String
 
List1.Clear
 
st = Split(Trim(Text1.Text), " ")
 
For i = 0 To UBound(st)
List1.AddItem st(i)
Next i
 
Text2.Text = ""
For i = 0 To List1.ListCount
Text2.Text = Text2.Text & List1.List(i) & " "
Next i
 
End Sub

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

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

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

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