asp生成一个不重复的随机数字
作者:豆腐 时间:2007-09-12 19:12:00
写这个文章绝对是偶然的偶然的机会,前年等一回的 元旦节,和 老婆上街 溜达,猛然想起买上一张福利彩票,结果屁都没有中上,开春第一天,就写了个预测彩票中奖的程序,这其中的一个很关键的算法就是如何生成一个不重复的随机数字,大家看完这个程序以后如果中奖,千万不要忘记豆腐了呀:)
Sub CalCaPiao()
Dim strCaiPiaoNoArr() As String
Dim strSQL As String
Dim strCaiPiaoNo As String
strCaiPiaoNo = "01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33"
Dim StrTempArr(7) As String
Dim strZhongJiangArr(7) As String
strCaiPiaoNoArr = Split(strCaiPiaoNo, ",")
Dim intRand As Integer
Dim i As Integer
Dim j As Integer
i = 0
Dim find As Boolean
Do While True
find = False
Randomize
intRand = Int((33 * Rnd) + 1)
For j = 0 To i - 1
If StrTempArr(j) = CStr(intRand) Then
find = True
End If
Next
If Not find Then
StrTempArr(j) = CStr(intRand)
strZhongJiangArr(i) = CStr(intRand)
'Text1(i) = strZhongJiangArr(i)
i = i + 1
If i = 7 Then
Exit Do
End If
End If
Loop
End Sub
呵呵,过几天,我把这个程序搞成组件,放到我的站点上 大家一起来玩玩,呵呵!
推荐阅读:
标签:随机,随机数字
0
投稿
猜你喜欢
SQL脚本语言学习(黑客篇)
2008-02-29 13:09:00
url传递中文的解决方案
2007-10-09 20:17:00
用IE浏览器UTF-8页面是一片空白
2009-06-14 19:55:00
Javascript: 为<input>设置readOnly属性问题,希望大家以后要小心
2009-07-23 20:24:00
浅析“Rich”设计模式
2009-03-12 12:36:00
如何捕获人家站点的页面?
2009-11-11 19:19:00
理清mysql外链的含义和命令
2010-03-09 15:55:00
IE下float产生双倍margin
2007-12-26 12:29:00
windows系统下让mysql支持federated的storage engine
2010-01-20 11:16:00
ASP缓存类 【先锋缓存类】Ver2004
2009-01-05 12:28:00
asp 动态生成rss(不成生xml文件)代码
2011-04-04 11:17:00
Cookies 欺骗漏洞的防范方法(vbs+js 实现)
2011-03-09 11:09:00
比较详细的Asp伪静态化方法及Asp静态化探讨
2011-04-14 10:41:00
MySQL安全性指南 (1)(转)
2010-07-27 12:49:00
让ASP搭配MYSQL
2009-10-04 20:30:00
必须知道的10个不常用HTML标签[译]
2009-03-31 13:19:00
怎么样才能设计出漂亮的网页?
2008-10-07 16:57:00
asp根据出生时间判断生肖
2008-03-24 19:49:00
巧用SQL链接服务器访问远程Access数据库
2008-11-28 16:32:00
键盘上下键的操作代码(选择)
2008-06-10 12:28:00