用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）对应的颜色。...[ 查看全文 ]
