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