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

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

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

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

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы