[练习]数组随机数竟赛题

兰色幻想

<p>写了一个,用时0.4秒,正在改进中~~~~</p><p>

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2008-6-26 10:26:25编辑过]

cjch1969

<p>机器配置：Intel Pentium(R) D&nbsp;CPU 2.80GHz&nbsp;&nbsp; 1GB 内存</p><p>&nbsp;</p><p>兰版的代码，生成时间：0.25秒</p><p><strong><font face="Verdana" color="#61b713">cjch1969</font></strong>的代码：生成时间：0.29秒</p><p>15楼<font face="Verdana" color="#61b713"><strong>oobird</strong><font color="#000000">的代码，生成时间：0.45秒</font></font></p><p>5楼<strong><font face="Verdana" color="#61b713">rqan</font></strong><font face="Verdana">的代码，生成时间：7.85秒</font></p>

[此贴子已经被作者于2008-6-26 17:47:52编辑过]

兰色幻想

<p>一个经典问题,希望更多的VBA高手参与</p>

劫-后-余-生

学习！

oobird

Sub yy()<br/>Dim i&amp;, a(65536) As Boolean, num&amp;, arr(1 To 65536, 1 To 1) As Long<br/>t = Timer<br/>For i = 1 To 65536<br/>&nbsp; num = Int(65536 * Rnd + 1)<br/>&nbsp; Do While a(num) = True<br/>&nbsp;&nbsp;&nbsp; num = Int(65536 * Rnd + 1)<br/>&nbsp; Loop<br/>&nbsp; a(num) = True<br/>&nbsp; arr(i, 1) = num<br/>Next i<br/>Sheet1.Range("A1:A65536") = arr<br/>MsgBox Timer - t<br/>End Sub<br/>我的机子0.5秒

exceletyn

学习一下

一剑惊心

学习一下

ipaab

<p>

游客，如果您要查看本帖隐藏内容请回复

</p><p>试试看运气</p>[em02]

szshx

<div style="MARGIN-TOP: 10px; FONT-SIZE: 10pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: normal; WORD-WRAP: break-word;">学习<br/></div>

劫-后-余-生

<p>两种典型的思路，学习了！</p><p>也来个有点不计成本且文不对题的：</p><p>Sub test()<br/>Dim l As Long<br/>Dim dic As New Dictionary<br/>Do While dic.Count &lt; 65536<br/>&nbsp;&nbsp; l = Int(65536 * Rnd + 1)<br/>&nbsp;&nbsp; dic(l) = 1<br/>Loop<br/>Range("A1:A65536") = Application.Transpose(dic.Keys)<br/>End Sub</p>