[高0]求最短的代码.

情比金坚

Dim a, x, y, z As String

Dim i, s, n, k As Integera = InputBox("请输入一个字附串")

i = Len(a)

   's 为完全排列的总数量

s = i

For n = 1 To i - 1

s = s * (i - n)

NextDo

   Do

     x = Mid(a, Int(Rnd * i + 1), 1)

     If InStr(y, x) = 0 Then y = y & x

   Loop Until Len(y) = i

   

   If InStr(z, y) = 0 Then

     z = z & y & ";"

     y = ""

     k = k + 1

   End If

Loop Until k = s

MsgBox z

情比金坚

我也知道，还在想，你认为错在哪了？（用for...next,多试几次就行）



请李老师指点一下：我的想法那么单纯，为啥实现不了呢？

[此贴子已经被作者于2005-3-19 22:35:57编辑过]

情比金坚

可以完成，但我想有点犯规：







只有我们在玩，他们都不来~~~~~~[em04]

[此贴子已经被作者于2005-3-20 13:33:30编辑过]

情比金坚

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

情比金坚

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