📄 10055.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

💻 HTML

字号:

<html>
  <head>
    <title>Re: 请问 CWW </title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 请问 CWW </h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:maxwell@email.gcn.net.tw">maxwell</a> on February 11, 1999 at 04:17:26:<p>
In Reply to: <a href="10051.html">请问 CWW </a> posted by xuyan on February 11, 1999 at 00:33:41:<p>
:   用VB心得笔记中如何产生A与B之间乱数产生1与10之间乱数<br>: 得到如下结果：<br>:  <br>: 2 4 1 5 2 4 6 5 10 9<p>: 2与5重复而缺少3 7 8 <p>: 如何才能让其不重复？<p>您好像发了很多信问这个问题, 应该是很急吧?<br>可以考虑用用 Collection<br>Collection 的 KEY 可以让你很快速的知道集合中是否有已经存在的资料, 如果还不知道怎么写, 可以参考我的写法:<p>Dim Number As Integer<br>Dim NumQueue As New Collection<p>Randomize Timer<br>Do<br>  ' 如果集合已经有 100 个资料, 就跳出回圈<br>  If NumQueue.Count >= 100 Then Exit Do<br>  Number = Int(Rnd(1) * 100) + 1<br>  <br>  ' 增加到集合中<br>  ' 不过集合如果有存在的资料, 就会产生错误<br>  On Error Resume Next<br>  NumQueue.Add Number, "N" & Number<br>  On Error GoTo 0<br>Loop<p>写完之后可以用下列程式码列印:<p>FOR I=1 TO NumQueue.Count<br>  MSGBOX NumQueue(I)<br>Next I
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 10055-->
</ul><!--end: 10055-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -