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

 

相关文章推荐

彩票投注软件开发必须考虑的因数

2013年中国彩票继续保持稳定增长趋势,全年彩票销售3093.25亿元,增幅稳定在18%以上,而互联网彩票规模销额为420亿元,增幅高达82.6%。...

VC++ 多线程实现双色球投注选号程序

   双色球与 35 选 7 的规则,不用说。 双色球选号程序: 在 VS2005 中,新建对话框应用程序:CSportLottery 对话框程序:文本ID为:IDC_EDIT1, IDC_ED...

一个关于足彩投注结果的优化的包

--包头 create or replace package pkg_caculate_soccer   AS   FUNCTION GET_result(p1 in number,p2 in ...
  • jyjxs
  • jyjxs
  • 2013年07月22日 15:40
  • 923

北京赛车pk10的投注方式473727795之选号技巧

丰亿彩漂网,高手群:473727795,pk10的投注方式中,买冠军号是比较多人追捧的玩法之一,玩法简单,就是投注冠军位置出什么号码,中了就可以获得10元的奖金。在不翻倍的情况下只要5期内中奖一次就回...

投注北京赛车pk10前选择平台群473727795和赔率的重要性

丰亿彩漂网,稳赚高手群:473727795,曾经总是和大家讲游戏里边的技巧,可是技巧说多了本来都是差不多的,不过有相同东西在我们投注之前是有必要要衡量好的,这个即是每个投注渠道的赔率,在我们购彩前挑选...

双色球复式投注奖等计算算法

算法分析: 计算双色球复式(单式也按复式计算,胆拖可先拆成复式来计算)的算法就是一个简单的排列组合算法。 例如:      选了m个红球,中了n个红球,选了k个篮球,中了j个篮球(m、n、k、j...

iOS 借助排列组合求赛事投注的注数问题。

排列组合是组合学最基本的概念。所谓排列,就是指从给定个数的元素中取出指定个数的元素进行排序。组合则是指从给定个数的元素中仅仅取出指定个数的元素,不考虑排序。排列组合的中心问题是研究给定要求的排列和组合...

淘宝双色球复式投注器

  • 2009年05月03日 22:03
  • 1.36MB
  • 下载

某开奖投注平台源码

  • 2015年07月09日 09:39
  • 17.67MB
  • 下载

Java_socket程序学习06-彩票销售-第一阶段+3d+lot销售

3D和lot的销售均能成功,不足是sale中的tolotstr方法就是取不到nb_l1等的值。 server代码如下 package db; import java.io.*; ...
  • ly4983
  • ly4983
  • 2015年04月05日 14:30
  • 729
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb编写彩票投注程序
举报原因:
原因补充:

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