转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 软件开发 >> VB.NET程序 >> 正文
用VB编写接近实际的抽奖程序    热     ★★★★

用VB编写接近实际的抽奖程序

作者：闵涛 文章来源：闵涛的学习笔记 点击数：823 更新时间：2009/4/23 14:58:49
　　近来彩票风行全国，普通人将他作为改变生活的希望，国家将他作为创收的一个项目。笔者设计了一个颇有味道的彩票程序，希望能帮助您重奖，如果您中奖请通知我,呵呵。

　　'本程序以"江苏风采福利彩票"(36选7)为例

　　'由于福利彩票是从36个球中选出7个球,有一些资料上介绍是用随机函数产生一个数,为了避产生重复的数故而进行比较，重复时舍弃重选。或者做7个变量使它们不同。

　　'本程序特点接近实际,ListBox作为数据容器,每产生一个数将其移去(RemoveItem方法)。产的数放在数组中，最后再排序。

　　'在窗体中放置两个命令按钮(CmdRnd,CmdExit);包含5个元素的控件数(text1(0)~text1(4));一个组合框控件List1,将其Visible属性设置为False。

　　'注：可以用ComboBox控件代替ListBox控件,只要将程序中的ListBox控件（list1）改
为ComboBox控件（combo1）即可。

　　'声明

　　Private Const AllData = 36 '总数为36

　　Private Const Choose = 7 '要选出的数为7个

　　Dim Num(Choose - 1) As Byte '数组用来存放选出的数

　　Private Sub CmdRnd_Click() '产生随机数

　　Dim i, j, RndData

　　For j = 0 To 4 '产生5组数据

　　　For i = 1 To AllData

　　　　List1.AddItem i

　　　Next i

　　　For i = 0 To Choose - 1

　　　　Randomize '初始化随机数的种子数

　　　　RndData = Int(((AllData - i) * Rnd) + 1)

　　　　Num(i) = List1.List(RndData - 1)

　　　　List1.RemoveItem (RndData - 1)

　　　Next i

　　　PopSort '调用冒泡排序

　　　Text1(j) = " "

　　　For i = 0 To Choose - 1

　　　　If Num(i) < 10 Then

　　　　　Text1(j) = Text1(j) &; "0" & Num(i) & " " '小于10的数在前面补“0”

　　　　Else

　　　　　Text1(j) = Text1(j) & Num(i) & " "

　　　　End If

　　　Next i

　　　List1.Clear '清除总数容器

　　Next j

　　End Sub

　　Sub PopSort() '冒泡排序

　　　　Dim i, j, Temp As Byte

　　　　For i = Choose - 1 To 1 Step -1

　　　　　For j = Choose - 1 To 1 Step -1

　　　　　　If i >= Choose - 1 - j Then

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

　　　　　　　　　Temp = Num(j - 1)

　　　　　　　　　Num(j - 1) = Num(j)

　　　　　　　　　Num(j) = Temp

　　　　　　　End If

　　　　　　End If

　　　　　Next j

　　　　Next i

　　　End Sub

　　Private Sub CmdExit_Click() '退出程序

　　　Unload Me

　　End

　End Sub


没有相关教程
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台