Access专家课堂周年庆
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

实现大乐透机选的功能

时 间:2019-07-04 12:04:37
作 者:易勋   ID:35404  城市:上海
摘 要:通过使用Randomize和Rnd来实现大乐透5+2机选
正 文:

函数:

Function Generate()
    Dim s As Integer
    Dim rndNo As Integer
    Dim strResult As String
    s = 0
    Randomize
    Do Until s = 5
        rndNo = Int(Rnd(1) * 34) + 1
        If Not Nz(strResult, 0) Like "*" & rndNo & "*" Then
            strResult = strResult & "-" & rndNo
            s = s + 1
        End If
    Loop
    Dim lNo As Integer
    s = 0
    lNo = 0
    Do Until s = 2
        rndNo = Int(Rnd(1) * 11) + 1
        If rndNo <> lNo Then
            strResult = strResult & "-" & rndNo
            lNo = rndNo
            s = s + 1
        End If
    Loop
    Generate = Mid(strResult, 2)
End Function

调用:

Generate()

结果:



Access软件网QQ交流群 (群号:86789465)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

最新帖子

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助