用VB编写抽奖程序

{一、界面设计

新建一个标准的EXE工程。在Form1窗体中放置一个定时器（Timer1）、两个文本框（Label1，Label2）、两个命令按钮（Command1，Command2）和包含7个元素的控件数组（Label3（0）—Label3（6））。

二、属性设置

Label3控件数组中的所有元素皆采用相同设置。

三、代码编写

采用组合式玩法： 类别 中奖条件 奖金 好彩1 所选1个号码与36选7当期正常开奖号码的特别号码相同 按中奖注数平分当期总奖金 （单注奖金以元为单位取整） 好彩2 所选2个号码与36选7当期正常开奖号码的6个基本号码中任意2个号码相同 按中奖注数平分当期总奖金 （单注奖金以元为单位取整） 好彩3 所选3个号码与36选7当期正常开奖号码的6个基本号码中任意3个号码相同 按中奖注数平分当期总奖金 （单注奖金以元为单位取整） 第三章 兑奖 第八条 1：每注2元。要么多期中奖稀少后，某期开奖号码落入规律性号码范围而中奖“井喷”。结果悲剧的事情来了，第四张一刮开我看了下没有中奖，第五章我刮开了中奖号码区的号码，发都是一样的vb抽奖程序步骤，所有号码都一样。

本程序用到的函数简介：

(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

单击工具栏上的“启动”按钮，启动抽奖程序。单击“开始”按钮vb抽奖程序步骤，Label1控件将用五彩缤纷的颜色快速显示1～32之间的数字，并在Label3控件数组中产生一组7个数字的中奖号码。再次单击“开始”按钮，程序将自动清除Label3控件数组中的内容，并重新产生一组7个数字的中奖号码（与前面的不相同）。

(沈从)

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-107927-1.html