[Vovchick1]

Для начала создайш массив и помещаеш в него все буквы из введённого слова

Код:

Dim Mas 
Dim T 
Dim L, I
T=Form1.Text1.Text 'заполняем переменную
L = Len(T) 'узнаём длинну слова
ReDim Mas(1 To L) 'объявляем переменную Mas как массив из L элементов
For I = 1 To L
 Mas(I) = Mid(T, I, 1) 'Заполняем масив
Next I

и вывода всех возможных вариантов сочетаний букв из этого слова

Затрудняюсь ответить потом гляну отвечу

[ivank]

BoingS
Аогоритм примитивен. Объяснять своими словами лень, благо в интернете на эту тему много: http://rain.ifmo.ru/cat/view.php/vis...2003/algorithm . Адаптировать к VB и буквам, я думаю, труда не составит.

[z01]

благадарю камрады