 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
写这个文章绝对是偶尔的偶尔的机会，前年等一回的 元旦节，和 老婆上街 溜达，猛然想起买上一张福利彩票，结果 屁都没有中上，开春第一天，就写了个猜测彩票中奖的程序,这其中的一个很要害的算法就是如何生成一个不重复的随即数 字, 大家看完这个程序以后假如中奖，千万不要忘记豆腐了呀：） 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 呵呵，过几天，我把这个程序搞成组件，放到我的站点上 大家一起来玩玩,呵呵！ 返回类别: 教程 上一教程: 利用随机函数获取某一范围的整数及其应用 下一教程: 具体讲解ASP脚本循环语句 您可以阅读与"生成一个不重复的随即数字"相关的教程: · 升级MD5.ASP，打造完全动态不重复的安全加密代码 · 一个不错的随机函数 · ASP实现一个不太让人讨厌的自动弹出窗口 · 一个改进的ASP生成SQL 命令字符串的类 · 一个不太让人讨厌的自动弹出窗口 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
