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