Отсортировать слова по алфавиту и вывести в TextBox'ы - VB
Формулировка задачи:
Помогите пожалуйста создать программу.
Нужно составить программу для TextBox12. Нужно при вводе в TextBox1 любых слов, расставить их по алфавиту в TextBox12, Нажав на кнопку ОК (CommandButton1). Например, вводим слово "акула", получится - ааклу.
Private Sub CommandButton1_Click()
.............
End Sub
Решение задачи: «Отсортировать слова по алфавиту и вывести в TextBox'ы»
textual
Листинг программы
Option Compare Text Private Sub Command1_Click() Dim i As Integer, j As Integer Dim k As Integer, s As String, m As String, str As String s = Text1.Text 'Сортировка строки методом выборки For i = 2 To Len(s) + 1 m = Mid(s, i - 1, 1) k = i For j = i To Len(s) + 1 If m > Mid(s, j - 1, 1) Then m = Mid(s, j - 1, 1) k = j End If Next j Mid(s, k - 1, 1) = Mid(s, i - 1, 1) Mid(s, i - 1, 1) = m str = str + m Next i Text12.Text = str End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д