随机排列n*n方阵

将n组1-n随机置于n*n的单元格中，使得每行，每列都是1-n的一个全排列

1. SubPerm()
2. DimnAsLong,iAsLong,jAsLong,arr(),brr(),tAsLong
3. n=20
4. ReDimarr(n-1,n-1)
5. ReDimbrr(n-1)
6. Fori=0Ton^2-1
7. arr(i\n,iModn)=(i\n+i)Modn+1
8. Next
9. Randomize
10. Fori=n-1To0Step-1
11. t=Int(Rnd*i+1)
13. Forj=0Ton-1
14. brr(j)=arr(j,t)
15. Next
17. Forj=0Ton-1
18. arr(j,t)=arr(j,i)
19. arr(j,i)=brr(j)
20. Next
22. t=Int(Rnd*i+1)
23. Forj=0Ton-1
24. brr(j)=arr(t,j)
25. Next
26. Forj=0Ton-1
27. arr(t,j)=arr(i,j)
28. arr(i,j)=brr(j)
29. Next
30. Next
31. [a1].Resize(n,n)=arr
32. EndSub

执行结果：

1	19	14	6	8	9	18	10	16	11	13	4	20	17	3	5	15	2	7	12
3	1	16	8	10	11	20	12	18	13	15	6	2	19	5	7	17	4	9	14
10	8	3	15	17	18	7	19	5	20	2	13	9	6	12	14	4	11	16	1
16	14	9	1	3	4	13	5	11	6	8	19	15	12	18	20	10	17	2	7
14	12	7	19	1	2	11	3	9	4	6	17	13	10	16	18	8	15	20	5
2	20	15	7	9	10	19	11	17	12	14	5	1	18	4	6	16	3	8	13
17	15	10	2	4	5	14	6	12	7	9	20	16	13	19	1	11	18	3	8
15	13	8	20	2	3	12	4	10	5	7	18	14	11	17	19	9	16	1	6
20	18	13	5	7	8	17	9	15	10	12	3	19	16	2	4	14	1	6	11
18	16	11	3	5	6	15	7	13	8	10	1	17	14	20	2	12	19	4	9
13	11	6	18	20	1	10	2	8	3	5	16	12	9	15	17	7	14	19	4
7	5	20	12	14	15	4	16	2	17	19	10	6	3	9	11	1	8	13	18
8	6	1	13	15	16	5	17	3	18	20	11	7	4	10	12	2	9	14	19
12	10	5	17	19	20	9	1	7	2	4	15	11	8	14	16	6	13	18	3
6	4	19	11	13	14	3	15	1	16	18	9	5	2	8	10	20	7	12	17
11	9	4	16	18	19	8	20	6	1	3	14	10	7	13	15	5	12	17	2
9	7	2	14	16	17	6	18	4	19	1	12	8	5	11	13	3	10	15	20
19	17	12	4	6	7	16	8	14	9	11	2	18	15	1	3	13	20	5	10
5	3	18	10	12	13	2	14	20	15	17	8	4	1	7	9	19	6	11	16
4	2	17	9	11	12	1	13	19	14	16	7	3	20	6	8	18	5	10	15