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

ycb20010823

<p>兰版，这样写的行不，感觉不行呢，不过也出来数了！</p><p>Sub 十个随机整数()<br/>Dim i As Integer</p><p>For i = 1 To 10<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Range("a" &amp; i) = Application.Evaluate("=RANDBETWEEN(100,200)")</p><p>Next i</p><p>End Sub</p>

lvxingong

<p>学习</p>

lvxingong

Sub 随机()<br/>&nbsp;Dim x%, i%<br/>&nbsp;For i = 1 To 10<br/>&nbsp;x = Int(Rnd() * (200 - 100 + 1) + 100)<br/>&nbsp;Range("a" &amp; i) = x<br/>&nbsp;Next<br/>End Sub

suye1010

<p>楼上的各位怎么都不看题目的要求呢？</p><p>跟我刚出道时一个性子^_^</p><p>兰版的要求很清楚，是要求 <font color="#ff0000" size="6"><strong>随机 不重复 整数</strong></font> 的，你的程序满足要求吗？</p>

cjch1969

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

cjch1969

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

yibyibhuai

xuexi

ycb20010823

<p><strong><font face="Verdana" color="#61b713">cjch1969，你好，辛苦了，我是用的Excel2007，里面有这个现成的公式啊！</font></strong></p><p>'11楼&nbsp;&nbsp; ycb20010823 <br/>'有问题，不理解 BANDBETWEEN ,是不是自定义函数？<br/>Sub 十个随机整数()<br/>Dim i As Integer<br/>For i = 1 To 10<br/>&nbsp; Range("a" &amp; i) = Application.Evaluate("=RANDBETWEEN(100,200)")<br/>Next i<br/>End Sub</p>

suye1010

randbetween在2003版中需要加载分析工具库后才能调用^_^

cjch1969

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>ycb20010823</i>在2008-6-23 17:29:00的发言：</b><br/><p><strong><font face="Verdana" color="#61b713">cjch1969，你好，辛苦了，我是用的Excel2007，里面有这个现成的公式啊！</font></strong></p><p>'11楼&nbsp;&nbsp; ycb20010823 <br/>'有问题，不理解 BANDBETWEEN ,是不是自定义函数？<br/>Sub 十个随机整数()<br/>Dim i As Integer<br/>For i = 1 To 10<br/>&nbsp; Range("a" &amp; i) = Application.Evaluate("=RANDBETWEEN(100,200)")<br/>Next i<br/>End Sub</p></div><p></p><p>&nbsp;</p><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>suye1010</i>在2008-6-23 20:06:00的发言：</b><br/>randbetween在2003版中需要加载分析工具库后才能调用^_^</div><p>&nbsp;</p><p>&nbsp;</p><p>学习了</p>