6825.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 47 行

HTML
47 行
字号 
<html>
  <head>
    <title>嗯，两秒搞定</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>嗯，两秒搞定</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:yfwu@iname.com">小吴</a> on October 28, 1998 at 15:54:19:<p>
In Reply to: <a href="6812.html">VB有无  "产生不重复乱数"  之功能函数?</a> posted by 小Sam on October 28, 1998 at 10:24:22:<p>
VB 去那里生这种函式给你用呀？这个功能用点小技巧不过出来了吗？<br>下面这个范例在 PII-266 的电脑中约花 1.2 秒。<p>Dim colDataPool As New Collection<br>Dim lngNum As Long<br>Dim vntNum As Variant<br>Dim i As Integer<p>On Error Resume Next<br>For i = 1 To 10000<br>　Do<br>　　Err.Clear<br>　　lngNum = Rnd * 10000000<br>　　If lngNum = 0 Then lngNum = 1<br>  <br>　　colDataPool.Add lngNum, CStr(lngNum)<br>　Loop While Err<br>Next i<br>On Error GoTo 0<p>For Each vntNum In colDataPool<br>　Debug.Print vntNum<br>Next vntNum<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 6825-->
<!--top: 6992--><li><a href="6992.html">简单问题: 如果有20个数字,1 To 20,如何可以Random地出现不同次序?</a> <b>匡</b> <i>14:29:48 11/02/98</i>
(<!--responses: 6992-->0)
<ul><!--insert: 6992-->
</ul><!--end: 6992-->
<!--top: 6891--><li><a href="6891.html">那可否中途停止程式并储存进度呢？又,理论上数字范围极限应为何？</a> <b>小Sam</b> <i>08:32:26 10/30/98</i>
(<!--responses: 6891-->0)
<ul><!--insert: 6891-->
</ul><!--end: 6891-->
<!--top: 6878--><li><a href="6878.html">Re: 跟小吴讨论一下..</a> <b>小马</b> <i>18:53:58 10/29/98</i>
(<!--responses: 6878-->1)
<ul><!--insert: 6878-->
<!--top: 6889--><li><a href="6889.html">当然不会</a> <b>小吴</b> <i>07:33:08 10/30/98</i>
(<!--responses: 6889-->0)
<ul><!--insert: 6889-->
</ul><!--end: 6889-->
</ul><!--end: 6878-->
<!--top: 6837--><li><a href="6837.html">很佩服你会想到这种方法！</a> <b>Cary</b> <i>23:20:17 10/28/98</i>
(<!--responses: 6837-->0)
<ul><!--insert: 6837-->
</ul><!--end: 6837-->
<!--top: 6833--><li><a href="6833.html">感激不尽五体投地...能否再请教一题脑力激荡--乐透彩券...</a> <b>小Sam</b> <i>19:19:11 10/28/98</i>
(<!--responses: 6833-->0)
<ul><!--insert: 6833-->
</ul><!--end: 6833-->
</ul><!--end: 6825-->
<br><hr size=7 width=75%><p>

</body></html>

6825.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 6825.html 源码文件，采用 HTML 编程语言编写，共 47 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?