| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 506 人关注过本帖
标题:VB练习之-双色球模拟
只看楼主 加入收藏
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:28
帖 子:119
专家分:792
注 册:2021-8-1
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:6 
VB练习之-双色球模拟
图片附件: 游客没有浏览图片的权限,请 登录注册

模拟双色球算法,随机+开奖+兑奖功能(由于开奖规则较多,只模拟了巨奖...)
感兴趣的小伙伴可以在源码基础上进一步完善和优化!
双色球开奖模拟软件.zip (621.86 KB)
搜索更多相关主题的帖子: 双色球 练习 源码 VB 模拟 
2022-05-09 19:49
独木星空
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:河北省曲阳县
等 级:版主
威 望:23
帖 子:490
专家分:406
注 册:2016-6-29
收藏
得分:7 
是一个不错vb练习,对于学习vb大有帮助。

素数问题的解决是我学习编程永恒的动力。
2022-05-10 05:38
apull
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:三体星系
等 级:版主
威 望:115
帖 子:1098
专家分:6408
注 册:2010-3-16
收藏
得分:7 
我是来接分的
2022-05-10 14:13
yuma
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:银河系
等 级:版主
威 望:27
帖 子:1478
专家分:2297
注 册:2009-12-22
收藏
得分:7 
有一个Shuffle洗牌算法,很容易实现这个功能吧。

心生万象,万象皆程序!
2022-05-10 14:56
独木星空
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:河北省曲阳县
等 级:版主
威 望:23
帖 子:490
专家分:406
注 册:2016-6-29
收藏
得分:0 
回复 4楼 yuma
那就把它贴上来吧!

素数问题的解决是我学习编程永恒的动力。
2022-05-10 19:59
yuma
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:银河系
等 级:版主
威 望:27
帖 子:1478
专家分:2297
注 册:2009-12-22
收藏
得分:0 
回复 5楼 独木星空
程序代码:
Sub Shuffle(ByRef a)
    Dim t, j, n
    n = UBound(a): Randomize
    For i = n To 1 Step -1
        j = Int(Rnd * (i + 1))
        t = a(j): a(j) = a(i): a(i) = t
    Next
End Sub

Private Sub Form_Load()
Me.Hide
'Author: Demon
'Website: http://demon.tw
'Date: 2011/12/16

a = Array("", "", "", "", "", "", "", "", "", "", "", "", "", "", "")

MsgBox Join(a)  '洗牌前
Shuffle a
MsgBox Join(a)  '洗牌后
End Sub

心生万象,万象皆程序!
2022-05-11 07:59
sssooosss
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:408
专家分:900
注 册:2019-8-27
收藏
得分:0 
不错,共同学习
2022-05-13 17:08
快速回复:VB练习之-双色球模拟
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030861 second(s), 9 queries.
Copyright©2004-2022, BCCN.NET, All Rights Reserved