用VB编写抽奖程序.docxVIP

用 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)In（t ）：返回一个非整形数字取整后的整数。 Rnd：产生一个 0～1 之间的随机数（大于等于 0，但小于 1）。 Qbcolo（r ）：返回参数（0～15）对应的颜色。 Va：l 将一个字符形变量转化为一个数值型变量。 Format：格式化一个表达式。四、运行 单击工具栏上的“启动”按钮，启动抽奖程序。单击“开始”按钮，Label1控件将用五彩缤纷的颜色快速显示 1～32 之间的数字，并在 Label3控件数组中产生一组 7 个数字的中奖号码。再次单击“开始”按钮，程序将自动清除 Label3 控件数组中的内容，并重新产生一组 7 个数字的中奖号码（与前面的不相同）。 以下是程序的完整代码： 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=In（t sj2=In（t Rnd ＊32 ）＋1 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=Va（lLabel3（a）.Caption） Then sy=sy － 1 Exit Sub End If Next Label3（sy）.Caption=Format（sj1, ″0）0″ Label3（sy）.ForeColor=QBColor（ys） End If If sy=6 Then如′果索引值等于 6 Timer1.Enabled=False 关′闭定时器 Comm and1.Enabled=True ′使命令按钮有效（即可重新开始抽奖） End If End Sub