vb编写彩票投注程序

原创 2007年03月29日 16:45:00

下面这段简单代码用来产生体彩的七星彩,两个命令按钮,一个文本框控件数组:

Private Sub Command1_Click() '产生七位随机数

Dim i As Integer, a(1 To 7) As Integer

For i = 1 To 7

a(i) = 0

Next i

Randomize

For i = 1 To 7

a(i) = Fix(10 * Rnd)

Text1(i - 1).Text = a(i)

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

下面的程序是对福利彩票22选5的投注模拟,在程序上增加产生了不重复数,及排序的功能.窗体上有两个命令按钮,一个文本框控件:

Private Sub Command1_Click()

Dim a(1 To 5) As Integer, i As Integer, str1 As String, j As Integer, n As Integer

For i = 1 To 5 '初始化数组及随机化种子

a(i) = 0

Next i

Randomize

a(1) = Fix(1 + 22 * Rnd) '产生5个不重复的数(1-22)

j = 1

Do

n = Fix(1 + 22 * Rnd)

For i = 1 To j

If n = a(i) Then

Exit For

ElseIf i = j Then

a(i + 1) = n

j = j + 1

End If

Next i

Loop While j < 5

For i = 2 To 5 '对生成的5个数进行从小到大排序

For j = 5 To i Step -1

If a(j) < a(j - 1) Then

n = a(j)

a(j) = a(j - 1)

a(j - 1) = n

End If

Next j

Next i

str1 = a(1) & " " & a(2) & " " & a(3) & " " & a(4) & " " & a(5) & " ;"

Text1.Text = CStr(str1)

End Sub

Private Sub Command2_Click()

End

End Sub

 

初学python-练习_2使用python编写彩票软件

#!/usr/bin/python #-*- coding: UTF-8 -*- #指定编码格式,让py文件支持万国码 #设置生成票数的最大值 import sys; Maximum = sys.ma...
  • bjbz_cxy
  • bjbz_cxy
  • 2018年01月31日 13:32
  • 85

彩票复式投注时,计算注数的程序(C#)

做了一个彩票程序,为了复式投注颇费了点脑筋,网上找了半天,才知道这个公式,比如36选7,如果买10个号,公式就是:10!/ (10-7)!/ 7! 顺手做了一个测试程序:using System;pu...
  • youbl
  • youbl
  • 2008年12月12日 16:45
  • 2670

PAIP.彩票系统的对外接口流程实录

PAIP.彩票系统的对外接口流程实录 这几天,做了下彩票系统的统一接口,在此纪录。。完整的表明如何做真正的模块化.... 目前,常常所谓的模块化,但是模块化往往都不是跨语言的,比如。NET...
  • attilax
  • attilax
  • 2012年07月14日 21:49
  • 4944

Python实现的彩票机选器

本文实例讲述了Python实现彩票机选器的方法。分享给大家供大家参考。具体实现方法如下:# -*- coding: utf8 -*- from Tkinter import * import tkFo...
  • xsj_blog
  • xsj_blog
  • 2016年09月07日 23:35
  • 274

java学习之小项目彩票购买系统

项目需求 双色球投注区分为红色球号码区和蓝色球号码区, 红色球号码区由1-33共33个号码组成,蓝色球号码区由1-16共16个号码组成。 投注时选择6个红球号码和1个蓝球号码组成一注进行单式投注,每注...
  • Mark_marui
  • Mark_marui
  • 2017年07月15日 08:43
  • 303

iOS开发 - 第02篇 - UI进阶 - 14 - 彩票(第一天)

1、环境部署2、搭建项目主框架(Storyboard主框架搭建、设置tabBar上按钮图片、控制器切换、tabBar封装、自定义导航控制器、设置导航条外观、自定义导航条titleView)3、我的彩票...
  • NSRyan
  • NSRyan
  • 2016年06月17日 15:02
  • 544

Java关于玩彩票的小程序

刚学了Java,老师和书上讲的看起来简单但是用起来就不是那么回事了,所以现找了个小项目试试。 本次用到的知识点是容器和布局、菜单和对话框、String类 代码如下: import java.aw...
  • Vampierty
  • Vampierty
  • 2012年04月15日 13:59
  • 3838

体育彩票中的业务题

在面试的时候常会被问到一些业务题,这和公司的性质做什么产品肯定是有很大关系的,比如同学去的中体骏彩,在面试的时候就会问体育彩票中的业务题,先让公司负责人简单介绍下业务是怎么回事,怎么一个流程,大概20...
  • jj12345jj198999
  • jj12345jj198999
  • 2011年11月20日 12:24
  • 1321

MG娱乐612341.com

MG娱乐城一直以提供高品质高效率的客户服务为傲,根据对市场及玩家的分析而拟定之严谨客服人员培训规范,创造出具有专业认真,热情服务特点的专业客服团队,透过掌握丰富专业知识的客服人员友善热情的态度,玩家每...
  • qpbooayz
  • qpbooayz
  • 2015年10月07日 17:03
  • 167

java彩票系统

彩票订单:@ResponseBody @RequestMapping(value = "orderPay", method = RequestMethod.POST) public A...
  • caipiaocloud
  • caipiaocloud
  • 2017年05月01日 11:44
  • 1844
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb编写彩票投注程序
举报原因:
原因补充:

(最多只允许输入30个字)