用VB编写双色球程序,具体要求请看详细。。。

r2008j 2008-05-05 04:29:55
要用VB编程序,众所周知,双色球是随机输出一组双色球号码,先从1到33数字的33个红色球任选6个,再从数字为1到16的16个蓝色球任选1个组成一组开奖号码。
但我想要的程序功能略有不同,红球里面我只想从个位含有2,3,4,7,8,9尾的数字里随机出6个,比如从02,03,04,07,08,09,12,13,14,17,18,19,22,23,24,27,28,29,32,33中随机选6个,篮球也是一样,从16个数字里选择所有含有3,4,5,9尾的数字里随机出1个,这样的程序该怎么用VB实现,急,在线等,答案满意,我会追加100.
附带一点说明,希望程序的界面是摇出的数字一个一个顺序出,这样比较有真实感,而不希望是点击命令按钮7个数字一下就全部显示出来了,我希望就像中福彩现场开奖出球顺序一样。先是红球6个一个一个出,然后最后出篮球数字。谢谢。^-^
...全文
262 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
舉杯邀明月 2008-05-05
  • 打赏
  • 举报
回复
骗人的把戏,何必做得那么真嘛!

^_^


要想感觉更真实,你用 DirectX 3D 技术来做,做一些“逼真”的模型,弄个三维场景吧。
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

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧