Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

实现大乐透机选的功能

时 间: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交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

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