一個演算法的問題

[天下第一怪才]

1.變位子

請你寫一個程式來產生某一集合的字母的所有可能的字。輸入的字母也可能重複，
Dim Mm(26) '共有 a~z 26種字元

而你的程式只能輸出相同的字組一次。輸出的字中，必須以字母漸升的次序輸出
Dim Out(256) '從 0 開始放最多有256個

(也即字母愈小的字組愈先輸出)。最後並輸出該字共有幾個變位子。
Dim Ma '記錄字串的長度為多少！

輸入範例一： 輸入範例二：
abcd abc
輸出範例一： 輸出範例二：
aabc abc
aacb acb
abac bac
abca bca
acab cab
acba cba
baac 6
baca
bcaa
caab
caba
cbaa
12

--
[m [1;37m◢ [32m◣◢ [0;32m◣ [1;37m松山高中松江水綠 [0;37m◆作者 [1;37mXMAN [m
[1;32m◢█ [0;32m█◣ [0;37mbbs.sssh.tp.edu.tw (203.72.64.8) ◆來自 [32mu12-204.user.giga.net.tw [m