Отсортировать слова по алфавиту и вывести в 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

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


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

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

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