[已解决]求老师修改一下代码，把那些图形全部显示

mmc998

Book行列图.rar (15.11 KB, 下载次数: 34)

2014-2-18 20:26 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-2-20 13:48

增加一个循环

1. Sub A()
   
2.     Dim D As New Dictionary
   
3.     Dim K, X, i&, s&
   
4.     Application.Volatile
   
5.     For i = 1 To 10
   
6.     s = (i - 1) * 4 + 1
   
7.         Do
   
8.             K = Int(Rnd() * 10)
   
9.                 D(K) = ""
   
10.         Loop Until D.Count = 9
    
11.         For X = 1 To 9
    
12.             Cells(Int((X - 1) / 3) + s, (X - 1) Mod 3 + 1) = D.Keys(X - 1)
    
13.         Next
    
14.         D.RemoveAll
    
15.     Next
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

组成啥图形？

mmc998

hwc2ycy 发表于 2014-2-18 22:56
组成啥图形？

三行三列的

mmc998

一楼做的是一个一个的显示，如何做成全部一下显示出来

dsmch

=PERMUT(10,9)=3628800
这么多数字如何排列？

mmc998

dsmch 发表于 2014-2-19 21:55
=PERMUT(10,9)=3628800
这么多数字如何排列？

一次做9个数，十次做完

hetianjun888

学习了

dsmch

增加一个循环

1. Sub A()
   
2.     Dim D As New Dictionary
   
3.     Dim K, X, i&, s&
   
4.     Application.Volatile
   
5.     For i = 1 To 10
   
6.     s = (i - 1) * 4 + 1
   
7.         Do
   
8.             K = Int(Rnd() * 10)
   
9.                 D(K) = ""
   
10.         Loop Until D.Count = 9
    
11.         For X = 1 To 9
    
12.             Cells(Int((X - 1) / 3) + s, (X - 1) Mod 3 + 1) = D.Keys(X - 1)
    
13.         Next
    
14.         D.RemoveAll
    
15.     Next
    
16. End Sub
    

复制代码

mmc998

dsmch 发表于 2014-2-20 13:48
增加一个循环

能全部生成吗

dsmch

mmc998 发表于 2014-2-20 19:40
能全部生成吗

6楼有答案