wps函数自动组成不同数字组合
比如12345是母数字。我想知道在这5个数学可以组合成多少个组合。组成13245或者35421组成更多个组合的排位
这是数学中的排列问题。
A(5,5)=5!/(5-5)!=5!=5×4×3×2×1=120(种)
Sub 排列()
Dim cm(1 To 120, 1 To 5)
ST = Timer
For a1 = 1 To 5
For a2 = 1 To 5
If a2 = a1 Then GoTo 100
For a3 = 1 To 5
If a3 = a2 Or a3 = a1 Then GoTo 200
For a4 = 1 To 5
If a4 = a3 Or a4 = a2 Or a4 = a1 Then GoTo 300
For a5 = 1 To 5
If a5 = a4 Or a5 = a3 Or a5 = a2 Or a5 = a1 Then GoTo 400
n = n + 1
For i = 1 To 5
If a1 = i Then cm(n, 1) = i
If a2 = i Then cm(n, 2) = i
If a3 = i Then cm(n, 3) = i
If a4 = i Then cm(n, 4) = i
If a5 = i Then cm(n, 5) = i
Next i
400 Next
300 Next
200 Next
100 Next
Next
Range("A1:E120") = cm
Cells(1, 8) = "排列数"
Cells(1, 9) = n
Cells(2, 8) = "运行时间(秒)"
Cells(2, 9) = Timer - ST
End Sub
-----------------------结果如下------------------------------------
12345 12354 12435 12453 12534 12543
13245 13254 13425 13452 13524 13542
14235 14253 14325 14352 14523 14532 30个
15234 15243 15324 15342 15423 15432
21345 21354 21435 21453 21534 21543
23145 23154 23415 23451 23514 23541
24135 24153 24315 24351 24513 24531
25134 25143 25314 25341 25413 25431 60个
31245 31254 31425 31452 31524 31542
32145 32154 32415 32451 32514 32541
34125 34152 34215 34251 34512 34521
35124 35142 35214 35241 35412 35421
41235 41253 41325 41352 41523 41532 90个
42135 42153 42315 42351 42513 42531
43125 43152 43215 43251 43512 43521
45123 45132 45213 45231 45312 45321
51234 51243 51324 51342 51423 51432
52134 52143 52314 52341 52413 52431 120个
53124 53142 53214 53241 53412 53421
54123 54132 54213 54231 54312 54321
上一篇:excel怎么单条件多数据求和