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

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


textual

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

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



Похожие ответы
  1. Должна быть память оперативки в Мб

  1. После нажатия на форме появляется время работы компьютера

  1. Должно работать после нажатия command)Добавлено через 5 часов 49 минут Неужели никто не может этого в VB?(

  1. Все элементы главной диагонали заменить наибольшим элементом всего массива! не пойму как делать

  1. Здравствуйте! Не понимаю как прописать выделение четных чисел и обведение рамкой. Буду благодарна за помощь. Заполнить 3-й столбец 10 целыми числами. Выделить все четные положительные красным цветом и обвести рамкой, максимальный элемент увеличить в 10 раз и обвести рамкой.

  1. visual basic 6.0, подскажите как сделать в правке "Выделить все"

  1. Вводится два числа а и б, надо вывести все натуральные числа, квадраты которых находятся в интервале от а до б (иными словами натуральные корни чисел из этого диапазона) пример: вводится диапазон от 15 до 50 программа должна вывести 4, 5,6,7 Пользоваться можно циклом for или do loop

  1. В массиве A[N] найти второе по значению число (т.е. вывести на печать число, которое меньше максимального элемента массива, но больше всех других его элементов)