[高0]求最短的代码.

lwwvb

要求用户输入一个字串,电脑输出这个字串的全排序,如:

当用户输入"ABC"时,电脑输出:

ABC

ACB

BAC

BCA

CAB

CBA

当用户输入"ABCD"时,电脑输出:

ABCD

ABDC

ACBD

ACDB

...

最短代码者胜出![em03]

GOODWIN

向高手学习

kevindeng

这个题目用递归最好的办法

liaoliao

学习[:45] [:45] [:45]

jgh2008

在几位面前,我现在只能当看客了!

quanli

我不懂，，，，学习学习。。。。

lwwvb

TRYNEW的方法相当于嵌套N层FOR语句.而我的方法是使用递归.有空的时候,我再出更有趣的题目...[em05]

情比金坚

果然精妙！不过TRYNEW的方法让我领略到查询的精深，下回生成大量随机文本数据的时候，我会用他的代码。

lwwvb

插入一个模块,再运行RunMe就可以了.

Dim InPutString As String

Sub GetData(s As String, temp As String)

  Dim i As Integer

  If Len(temp) = Len(InPutString) Then

    MsgBox temp

  Else

    For i = 1 To Len(s)

      GetData Left(s, i - 1) & Right(s, Len(s) - i), temp + Mid(s, i, 1)

    Next i

  End If

End Sub

Sub RunMe()

  InPutString = InputBox("请输入一个字串:", , "ABC")

  GetData InPutString, ""

End Sub





[em05]呵呵,经过代码优化,我只用了11句代码哩!!(不含过程首尾)

[此贴子已经被作者于2005-3-20 23:49:42编辑过]

情比金坚

可是我连计算也不会，只会瞎猫抓耗子的方法，李老师给个提示看看[em02]