输入不重复的随机整数(参考答案在1楼)

blacktulip20

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>suye1010</i>在2008-6-23 14:21:00的发言：</b><br/><p>找不到了……</p><p>主要使用了 rnd，int函数，外加两个嵌套循环，搞定……</p><p></p><p>重写了个……</p><p>Sub random()<br/>Dim arr(1 To 10), i As Integer, j As Integer<br/>&nbsp;&nbsp;&nbsp; For i = 1 To 10<br/>100:<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(i) = Int(Rnd() * 101 + 100)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If i &gt; 1 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For j = 1 To i - 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If arr(i) = arr(j) Then GoTo 100<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next j<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next i<br/>Range("A1:A10") = Application.Transpose(arr)<br/>End Sub</p><br/></div><p>这个看着真晕 试试</p>

简简-单单

<p>数据有效性？</p><p>虚心请教！</p><p>我新手上路，能得到这么多高手指点，本人感激不尽。不过，还请大家多多指点。</p><p>谢啦</p>

laoau138

DFSDFSFDS

sly401

学习