使用vb6.0编写的随机生成双色球中奖号码（预测）

使用vb6.0编写的随机生成双色球中奖号码（预测）

2019/10/1 12:16

 

最近研究双色球，在网络上搜索到这里：

http://blog.sina.com.cn/s/blog_4cd4ffc401018xbx.html
vb编写双色球号码生成小程序源码

需要3个label，用来显示相应信息；两个文本框，一个显示生成的号码，一个用来设置号码数量；两个按钮，一个用来开始生成，一个用来复制生成的号码。完整代码如下：

'首先声明一个生成号码的函数用于调用
Sub 生成()   'vb的函数名称可以用汉字的，呵呵
    Dim n(1 To 33), i, j, q, p  '定义变量
    
    For i = 1 To 33
        n(i) = 0
    Next
    
    j = 0
    
    Randomize Timer     '防止随机数重复
    While j < 6         '生成6个红球号码
        q = Int(Rnd(1) * 33 + 1)   '红球号码为01到33
    
        If q < 10 Then             '判断是否是小于10
            q = 0 & q                  '小于10则在前面加0
        End If
    
        If n(q) = 0 Then
            Text1.Text = Text1.Text & q & " " '生成后写入文本框，各球中间用1个空格隔开
            n(q) = 1
            j = j + 1
        End If
    
    Wend
    
    
    '红球已经生成完毕了，下面是蓝球，同红球
    Randomize Timer
    p = Int(Rnd(1) * 16 + 1)
    If p < 10 Then            '判断是否是小于10
        p = 0 & p                  '小于10则在前面加0
    End If
    
    Text1.Text = Text1.Text & "  " & p & vbCrLf '红球和蓝球联合起来，用两个空格隔开，末尾加上换行符，以便于生成多个号码
End Sub

Private Sub Command1_Click()
    '使用Clipboard来实现复制到剪贴板功能
    Clipboard.Clear
    Clipboard.SetText Text1.Text
End Sub

Private Sub Command2_Click()
    '我们在界面加上一个显示生成时间的小东西
    Dim s, t, k
    
    s = Timer '开始生成
    Text1.Text = "" '先清空文本框
    k = 0
    
    While k < Val(Text2.Text) '按照需要来生成所需数量的号码
        Call 生成
        k = k + 1
    Wend
    
    t = Timer '生成结束
    Label2.Caption = "用时" & t - s & "秒" '显示生成时间
End Sub

Private Sub Form_Load()
    '在load里面设置一下文本框内容
    Text1.Text = ""
    Text2.Text = 5
End Sub

 

 

 

 

 

 

 

 

源码链接：

https://download.csdn.net/download/wb4916/11831069
01vb编写双色球号码生成小程序源码20191001_1221.7z