出一个思考题

[lou_df]

如何将一个字符串中固定数量的字符做一个全排列，写出程序。举一个例子：abcd 的2个字符的排列是 ab ac ad ba bc bd ca cb cd da db dc 。

[pctommy]

非常抱歉，我肯定有问题：

这回保证没有错：
Dim nRange As Integer
Dim nDeep As Integer
Dim stString As String
Dim st1 As String
Dim st2 As String



Private Sub Command1_Click()
nRange = 3
stString = "abcd"

st2 = ""
Start (st2)


End Sub

Sub Start(stPrv As String)
Dim i
Dim stPrivate As String

nDeep = nDeep + 1

If nDeep = nRange + 1 Then nDeep = nDeep - 1: GoTo SkipThisLayer
For i = 1 To Len(stString)
stPrivate = Mid(stString, i, 1)
If InStr(stPrv, stPrivate) = 0 Then
st1 = stPrv + stPrivate
If nDeep = nRange Then MsgBox st1
Start (st1)

End If
Next i
nDeep = nDeep - 1
SkipThisLayer:
End Sub

[ColderRain]

《数据结构》里有这样的例题！好象不是这么简单哟！

[pctommy]

《数据结构》是什么书？

[lou_df]

我测试一下。

[lou_df]

无法得出正确结果。

[ozw]

是不是想做黑客程序啊！？

[lou_df]

pctommy(pctommy)和homqom(操作者)答案一样，如果是同一人，我就给一个人分数。该不会抄袭吧？

[pctommy]

up

[homqom]

Dim nRange As Integer
Dim nDeep As Integer
Dim stString As String
Dim st1 As String
Dim st2 As String



Private Sub Command1_Click()
nRange = 3
stString = "abcd"

st2 = ""
Start (st2)


End Sub

Sub Start(stPrv As String)
Dim i
Dim stPrivate As String

nDeep = nDeep + 1

If nDeep = nRange + 1 Then nDeep = nDeep - 1: GoTo SkipThisLayer
For i = 1 To Len(stString)
stPrivate = Mid(stString, i, 1)
If InStr(stPrv, stPrivate) = 0 Then
st1 = stPrv + stPrivate
If nDeep = nRange Then MsgBox st1
Start (st1)

End If
Next i
nDeep = nDeep - 1
SkipThisLayer:
End Sub

[pctommy]

up

[pctommy]

如果仅仅完成叙述的功能，回朔就是这么简单

[pctommy]

up

[pctommy]

是我先答的，你不信我就给你vbp文件看。

[pctommy]

还有，我写程序的时候，string变量我一直都用st前缀，这也算独一无二了
homqom(操作者)我根本就不认识！

我的代码可是写了整整一个下午了啊…………！！

[pctommy]

不过，给谁分倒不重要，编程是为了快乐，所以才编程

[小乖]

不了解什么意思。

[pctommy]

不了解什么？如果是程序方面的我可以尽力解释

[pctommy]

up

[pctommy]

好！大家都来研究一些关于算法的东东！

[lou_df]

感谢pctommy(pctommy)。分给你了。思考题是帮助大家开拓思路，活跃气氛。这次的题目比较基础一些，相信很多人都感兴趣。