生成一个不重复的随即数字

2016-01-29 18:14 8 1 收藏

生成一个不重复的随即数字,生成一个不重复的随即数字

【 tulaoshi.com - ASP 】

/*
豆腐制作都是精品
http://www.asp888.net 豆腐技术站
如转载请保留完整版权信息
*/
写这个文章绝对是偶然的偶然的机会，前年等一回的元旦节，和老婆上街溜达，猛然想起买上一张福利彩票，结果
屁都没有中上，开春第一天，就写了个预测彩票中奖的程序,这其中的一个很关键的算法就是如何生成一个不重复的随即数
字,
大家看完这个程序以后如果中奖，千万不要忘记豆腐了呀：）
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
呵呵，过几天，我把这个程序搞成组件，放到我的站点上大家一起来玩玩,呵呵！

.

来源:http://www.tulaoshi.com/n/20160129/1504954.html

上一篇：《上古卷轴5 天际》人类战神塔罗斯详细解析攻略
下一篇： WinXP下磁盘格式转换高招

看过《生成一个不重复的随即数字》的人还看了以下文章更多>>

一个采集入库生成本地文件的几个FUCTION

标签： ASP

'***************************************************************** ' function ' 作用：利用流保存文件 ' 参数：from（远程文件地址），tofile（保存文件位置） '***************************************************************** Private Function SaveFiles(byref from,byref tofile) Dim Datas Datas=Ge...

Excel多行多列提取不重复姓名

标签： excel

Excel多行多列提取不重tuLaoShi.com复姓名 Excel多行多列提取不重复姓名 Excel温度计图表制作 Excel让你的报表更精彩温度计图表制作 Excel在透视表中如何查找分区域的销售前三名？ &ntulaoShi.combsp; Excel在透视表中如何查找分区域的销售前三名 Excel巧用条件格式做数据分析 Excel巧用条件...

使用mysql的disctinct group by查询不重复记录

标签：编程语言网络编程

有个需求，一直没有解决，在google上找了半天，给出的方案没有一个能用了，最后鬼使神差搞定了。是这样的，假设一个表： id f_id value 1 2 a 2 ...

JavaScript 一个忽悠人的无刷新数字累计增加效果

标签： Web开发

百姓生活网的一个效果，可以用在大多数的分类信息站上~ 代码：程序代码 span style="margin:0 20px 0 10px;"全国鲜活信息：font id="total_active"9172369/font 条/span span style="margin-right:20px;"今日新发信息数：font id="total_new"28940/font 条/span span注册用户数：font id="total_user"3523473/font/span script type="...

一直复略了的一个问题关于表单重复提交

标签： Web开发

主页里面做登录判断时JSCRIPT：以下是代码：代码如下： script language="JavaScript" !-- function checkform(){ if (form1.Fs_UserName.value ==""){ alert("请输入用户名称！"); form1.Fs_UserName.focus(); return fa...

查看更多精彩>>