太长了,这里拷不下.
用VB Script写个宏.
执行一下,所有26个字母中三个字母的排列都出来了.(顺序不同算不同的排列.
Sub Combo()
tmp = 0
For i = 1 To 26
For j = 1 To 26
For k = 1 To 26
If i j And j k And k i Then
tmp = tmp + 1
Cells(tmp,1) = Chr(97 + k - 1) & Chr(97 + j - 1) & Chr(97 + i - 1)
End If
Next k
Next j
Next i
End Su