На форме два текст бокса и одна кнопка, в ТехтBox1 вводим набор букв или слово, по нажатию на кнопку, в ТехтBох2 выводятся все варианты слов с заданным количеством символов без повтора (по одному слову). 
Как сделать так, чтобы в ТехтBох2 слова выводились не по одному, а сразу весь список? Всем заранее спасибо.   
Код: 
Private Sub Command1_Click()
sWord = Text1.Text
x = Len(sWord)
For i = 1 To x
num = Int(x * Rnd) + 1
temp = Mid(sWord, i, 1)
Mid(sWord, i, 1) = Mid(sWord, num, 1)
Mid(sWord, num, 1) = temp
Next i
Text2.Text = sWord

End Sub


Это сообщение отредактировал(а) Denn2011 - 8.7.2011, 08:54

Пример 1. Вывод в столбик.
1) установите свойство MultiLine = True у элемента Text2
2) установите свойство ScrollBars = Vertical у элемента Text2.
3) для вывода слов на разных строках нужно изменить код таким образом что-бы между словами выводились символы перевода строки (константа vbCrLf)
Вывод столбика чисел от 1 до 10 в Text2:


Пример 2. Вывод через запятую с переводом строки.
1) см. Пример 1
2) см. Пример 1
3) для вывода слов через запятую нужно изменить код таким образом что-бы между словами выводились символы запятой и пробела
Вывод через запятую чисел от 1 до 10 в Text2:

iff, 
Спасибо за пример, первый вариант мне подходит, но выводится не весь список слов. А как конкретно в моём коде вывести весь список слов? Например, я ввожу в ТехтBox1, "ABC", по нажатию кнопки мне нужно получить:
ABC
BCA
BAC
ACB
CAB
CBA
Как это сделать?   

Вам ещё нужно отредактировать сам алгоритм. В вашем случае программа выводит одну случайную перестановку.

iff
Огромное спасибо за помощь, проблема решена!  
Коллеги с соседнего форума помогли переписать код.

Это сообщение отредактировал(а) Denn2011 - 9.7.2011, 12:08