实现大乐透机选的功能

时　间: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()

结果：