Расстановка слов в предложении в алфавитном порядке - 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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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