HanDs
管理员

[Visual Studio文章] 双色球算法源码 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

今天我们来写一个双色球算法 所以我们必须要了解双色球原理

1. 双色球有6个篮球 , 和一个红球

2. 6个篮球分别是1 - 33 之间不重复的6 个数字

3. 1个红球是1-16 直接的任意数字

Dim a(8), b As Integer                                

 

Private Sub Form_Load()

Randomize
For i = 0 To 8

        Do
            a(i) = Int((33 - 1 + 1) * Rnd + 1)
            For j = 1 To i - 1
                If a(i) = a(j) Then Exit For
            Next
        Loop While j < i
       
    Next


b = Int((16 - 1 + 1) * Rnd + 1)
If b <= 9 Then
Label2.Caption = "0" & CStr(b)
Else
Label2.Caption = b
End If
Call lq
End Sub

Public Sub lq()
For i = 0 To 7
For j = 0 To 7 - i
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i

For j = 0 To 7
If a(j) <= 9 Then
a(j) = "0" + CStr(a(j))
End If
Label1.Caption = Label1.Caption + " " & a(j)
Next j
End Sub


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
双色球 算法 源码
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复