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

最新推荐文章于 2026-04-30 06:27:13 发布

原创最新推荐文章于 2026-04-30 06:27:13 发布 · 3.5k 阅读

5 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#杂质

杂质专栏收录该内容

872 篇文章

订阅专栏

本文介绍了一个使用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