Вывести все возможные перестановки из трех букв - VB

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

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

Здравствуйте. В школе задали написать программу в Visual basic. Она должна выводить в Textbox все варианты ABC т.е. (AAA,AAC,ABC, BCA и т.д.). Помогите пожалуйста.(напишите исходник) Зарание благодарю(+1)

Решение задачи: «Вывести все возможные перестановки из трех букв»

textual
Листинг программы
Private Sub Command1_Click()
For I = 1 To Len(Text1.Text)
TXT = Mid$(Text1.Text, I, 1)
For I1 = 1 To Len(Text1.Text)
If I1 <> I Or Len(TXT) > Len(Text1.Text) Then
   TXT = TXT & Mid$(Text1.Text, I1, 1)
End If
Next I1
List1.AddItem TXT
Next I
For I = Len(Text1.Text) To 1 Step -1
TXT = Mid$(Text1.Text, I, 1)
For I1 = Len(Text1.Text) To 1 Step -1
If I1 <> I Or Len(TXT) > Len(Text1.Text) Then
   TXT = TXT & Mid$(Text1.Text, I1, 1)
End If
Next I1
List1.AddItem TXT
Next I
For i = 1 To Len(Text1.Text)
List1.AddItem (String(Len(Text1.Text), Mid$(Text1.Text, i, 1)))
Next i
End Sub

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


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

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

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