Вывести на экран все возможные "слова" (сочетания букв), получаемые из букв слова - VB
Формулировка задачи:
пользователь вводит слово. Вывести на экран все возможные "слова"(сочетания букв), получаемые из букв этого слова(число букв не меняется).
Помоги,буду очень благодарен!!!!!!
Решение задачи: «Вывести на экран все возможные "слова" (сочетания букв), получаемые из букв слова»
textual
Листинг программы
Option Explicit
Dim S_Msg As String
Sub main()
S_Msg = ""
Pn InputBox("Введите слово:", , "1234")
MsgBox S_Msg
End Sub
Public Sub Pn(S As String, Optional SS As String = "")
Dim i As Integer
If Len(S) = 1 Then
S_Msg = S_Msg & SS & S & vbLf
Else
For i = 1 To Len(S)
Pn Left$(S, i - 1) & Mid$(S, i + 1), SS & Mid$(S, i, 1)
Next
End If
End Sub