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