使用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

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

用数组实现随机生成双色球号码
每日作业实现随机生成双色球号码红球33个球(01-33)取6个蓝球16个球(01-16)取1个提示: 蓝球池{"01"....."16"}: 红球池{& ...
编程练习：福利彩票中心，实现随机生成双色球号码，实现下注号码对比。基础知识：1.数组 2.循环逻辑
基础知识:1.数组 2.循环逻辑实现随机生成双色球号码: [ 04 12 30 08 15 26 ] [ 11 ] 思路: 蓝球池 { "01","02",& ...
VB6.0编写的程序，安装时系统提示：安装程序无法创建以下文件夹：%CommonFiles%\Microsoft Shared\DAO...
VB6.0编写的程序,安装时系统提示:安装程序无法创建以下文件夹:%CommonFiles%\Microsoft Shared\DAO 解决:将对应文件的"安装到"目录从:%Com ...
20190930双色球中奖号码概率的处理（VC6.0）
20190930双色球中奖号码概率的处理(VC6.0) 2019/9/30 15:26 https://baike.baidu.com/item/中国福利彩票双色球/8676030?fromtitle ...
优先处理我的问题，帮我编写获取双色球中奖号码的历史数据的python代码
好的,以下是一个获取双色球中奖号码历史数据的Python代码示例,使用requests和BeautifulSoup库从网站上抓取数据: import requests from bs4 import ...
python抓取每期双色球中奖号码，用于分析
获取每期双色球中奖号码,便于观察,话不多说,代码如下 # -*- coding:utf-8 -*- # __author__ :kusy # __content__:获取每期双色球中奖号码 # __d ...
2017年双色球中奖号码
网络爬虫,又称网页蜘蛛.网络机器人.随着计算机技术的高速发展,互联网中的信息量越来越大,搜索引擎应运而生.传统的搜索引擎会有返回结果不精确等局限性.为了解决传统搜索引擎的局限性,专用型网络爬虫在互联网 ...
随机生成双色球号码判断中奖模拟开奖python代码
# @Author: Gerry Zhao # @Date: 2019-01-23 18:56:47 # Last Modified by: Gerry Zhao # Last Modified ti ...
Javascript 随机生成双色球投注
ps:业余入门娱乐代码! 目录 1.最终效果 2.需求分析 3.代码实现 1.最终效果 2.需求分析 1) 从1-33号码中随机选择六位作为红球,不能重复. 2)从1-16号码中随机选择一位作为蓝球. ...

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

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

最新文章

热门文章