用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个数字的中奖号码(与前面的不相同)。
(沈从)