用VB编写抽奖程序

原创 2000年12月29日 11:53:00
                          用VB编写抽奖程序

{  一、界面设计
  新建一个标准的EXE工程。在Form1窗体中放置一个定时器(Timer1)、两个文本框(Label1,Label2)、两个命令按钮(Command1,Command2)和包含7个元素的控件数组(Label3(0)—Label3(6))。
  二、属性设置
  Label3控件数组中的所有元素皆采用相同设置。
  三、代码编写
  本程序的实现原理是:当用户单击“开始”按钮时,打开定时器,利用定时器控件同时产生两个随机数sj1、sj2,sj1的范围是1~32,sj2的范围是0~49。当sj1=24的时侯,用sj2与前面产生的中奖号码作比较,若与前面的中奖相同,则退出本过程;若与前面的中奖号码不同,则将此随机数作为中奖号码。当产生了7个中奖号码时,关闭定时器控件,停止产生随机数。
  本程序用到的函数简介:
  (1)Randomize:初始化随机数的种子数。
  (2)Int():返回一个非整形数字取整后的整数。
  (3)Rnd:产生一个0~1之间的随机数(大于等于0,但小于1)。
  (4)Qbcolor():返回参数(0~15)对应的颜色。
  (5)Val:将一个字符形变量转化为一个数值型变量。
  (6)Format:格式化一个表达式。
  以下是程序的完整代码:
  Dim sy As Integer
  ′命令按钮1的单击事件
  Private Sub Command1_Click()
  ′清除Label3控件数组的内容
  For i=0 To 6
  Label3(i).Caption=″″
  Next
  Timer1.Enabled=True′打开定时器
  Command1.Enabled=False′使开始按钮失效
  sy=-1′索引值初始化为-1
  End Sub
  ′命令按钮2的单击事件
  Private Sub Command2_Click()
  Unload Me ′卸载本窗体
  End Sub
  ′定时器1的定时事件
  Private Sub Timer1_Timer()
  Dim sj1,sj2,ys As Integer
  Randomize′初始化随机数
  sj1=Int(Rnd*32)+1
  sj2=Int(Rnd*50)
  Label1.Caption=sj1′设置标签1的内容
  ys=Int(Rnd*6)+9
  Label1.ForeColor=QBColor(ys)
  If sj2=24 Then′如果sj2等于24
  sy=sy+1′索引值加1
  For a=o To sy
  If sj1=Val(Label3(a).Caption) Then
  sy=sy - 1
  Exit Sub
  End If
  Next
  Label3(sy).Caption=Format(sj1, ″00″)
  Label3(sy).ForeColor=QBColor(ys)
  End If
  If sy=6 Then′如果索引值等于6
  Timer1.Enabled=False ′关闭定时器
  Command1.Enabled=True ′使命令按钮有效(即可重新开始抽奖)
  End If
  End Sub
  单击工具栏上的“启动”按钮,启动抽奖程序。单击“开始”按钮,Label1控件将用五彩缤纷的颜色快速显示1~32之间的数字,并在Label3控件数组中产生一组7个数字的中奖号码。再次单击“开始”按钮,程序将自动清除Label3控件数组中的内容,并重新产生一组7个数字的中奖号码(与前面的不相同)。
(沈 从)

vb编写的抽奖程序。可照片和文字抽奖。

  • 2013年12月20日 17:26
  • 8.83MB
  • 下载

用VB编写抽奖程序

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:17
  • 267

用Visual Basic设计抽奖程序

 抽奖活动在生活中屡见不鲜,给我们日常生活也增添了不少乐趣。这里向大家介绍一种都很熟悉的电脑模拟抽奖游戏,就像各类晚会上经常使用的抽奖模式。抽奖程序操作要求方便直观,全体人员都可以清楚地观看抽奖全过程...
  • vbcrack
  • vbcrack
  • 2005年03月02日 17:35
  • 2617

抽奖程序源代码 VB编写 随机抽取 不重复 新版本

  • 2011年01月17日 15:29
  • 205KB
  • 下载

1个VB开发的抽奖程序 支持图片抽奖

  • 2008年08月20日 13:23
  • 16KB
  • 下载

VB抽奖程序

  • 2014年07月06日 07:20
  • 2.14MB
  • 下载

用VB6.0编写电脑抽奖程序

 用VB6.0编写电脑抽奖程序    近年来在娱乐节目之中常常见到利用电脑来抽奖,笔者对其发生了兴趣遂自己动手用VB编了一个小程序来实现电脑抽奖的小功能,其原理如下:  主要利用VB中的Rnd函数,来...
  • gnuljf
  • gnuljf
  • 2001年05月10日 13:28
  • 980

vb 抽奖程序可支持照片和名称抽奖

  • 2013年12月20日 17:20
  • 8.75MB
  • 下载

VB抽奖程序(按座位抽奖)

  • 2008年01月08日 22:46
  • 6.87MB
  • 下载

抽奖程序源代码 VB编写 随机抽取 不重复

  • 2010年01月21日 09:54
  • 572KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB编写抽奖程序
举报原因:
原因补充:

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