用VB编写抽奖程序

日期：2007年6月7日作者：查看:[大字体中字体小字体]

一、界面设计

　　新建一个标准的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个数字的中奖号码（与前面的不相同）。
[1] [2] 下一页
用VB编写抽奖程序相关文章：
·用VB编写抽奖程序
用VB编写抽奖程序相关软件

上一篇:用VB编写监视指定进程的程序

下一篇:用VB建立字符界面的控制台程序

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

用VB编写抽奖程序

精品推荐

热点TOP10

特别推荐