计算机二级辅导:用VB编写抽奖程序

　　用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